anun1

domingo, 15 de julio de 2018

Codigos Enviar Mail Con Powershell y VBScript

Hola amigos soy flamer de nuevo aquí les dejare los códigos para enviar un mail por powershell y el código para adaptarlo a vbscript el cual es el único mio los demás los encontré navegando por Internet y los traigo para compartirlo con ustedes.


CODIGO 1

$From = "TU_CORREO@CORREO.com"

$To = "VICTIMA@CORREO.com"

$Subject = "Esto es una prueba fake mail"

$Body = "mensaje de prueba fake mail"

$SMTPServer = "smtp.live.com"

$SMTPClient = New-Object Net.Mail.SmtpClient($SMTPServer,587)

$SMTPClient.EnableSsl = $true

$SMTPClient.Credentials = New-Object System.Net.NetworkCredential("TU_CORREO@hotmail.com","TU_CONTRASEÑA")

$SMTPClient.Send($From,$To,$Subject,$Body)



CODIGO 2

$From = "TU_CORREO@CORREO.com"

$To = "VICTIMA@CORREO.com"

$Cc = "VICTIMA@CORREO.com"

$Attachment = "C:\archivo.txt"

$Subject = "pruebas mail"

$Body = "esto es una prueba mail fake"

$SMTPServer = "smtp.live.com"

$SMTPPort = "587"

Send-MailMessage -From $From -to $To -Cc $Cc -Subject $Subject -Body $Body -SmtpServer $SMTPServer -port $SMTPPort -UseSsl -Credential (Get-Credential) -Attachments $Attachment –DeliveryNotificationOption OnSuccess



CODIGO 3

$EmailTo = "VICTIMA@CORREO.com"

$EmailFrom = "TU_CORREO@CORREO.com"

$Subject = "Pruebas Mail" 

$Body = "Esto es una prueba send mail con powershell" 

$SMTPServer = "smtp.live.com" 

$filenameAndPath = "C:\archivo.txt"

$SMTPMessage = New-Object System.Net.Mail.MailMessage($EmailFrom,$EmailTo,$Subject,$Body)

$attachment = New-Object System.Net.Mail.Attachment($filenameAndPath)

$SMTPMessage.Attachments.Add($attachment)

$SMTPClient = New-Object Net.Mail.SmtpClient($SmtpServer, 587) 

$SMTPClient.EnableSsl = $true 

$SMTPClient.Credentials = New-Object System.Net.NetworkCredential("TU_CORREO@CORREO.com", "TU_CONTRASEÑA")

$SMTPClient.Send($SMTPMessage)




CODIGO MIO

option explicit
dim shell,cmd

set shell=createobject("wscript.shell")

cmd="C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe -command "

shell.run cmd & "$EmailTo = 'VICTIMA@CORREO.com';$EmailFrom = 'TU_CORREO@CORREO.com';$Subject = 'Pruebas Mail';$Body = 'Esto es una prueba send mail con powershell';$SMTPServer = 'smtp.live.com';$filenameAndPath = 'C:\archivo.txt';$SMTPMessage = New-Object System.Net.Mail.MailMessage($EmailFrom,$EmailTo,$Subject,$Body);$attachment = New-Object System.Net.Mail.Attachment($filenameAndPath);$SMTPMessage.Attachments.Add($attachment);$SMTPClient = New-Object Net.Mail.SmtpClient($SmtpServer, 587);$SMTPClient.EnableSsl = $true;$SMTPClient.Credentials = New-Object System.Net.NetworkCredential('TU_CORREO@CORREO.com', 'TU_CONTRASEÑA');$SMTPClient.Send($SMTPMessage)",0

msgbox "terminamos"



Nota: recuerden poner su correo en donde dice TU_CORREO@CORREO.com y poner su contraseña donde seles pida o donde dise TU_CONTRASEÑA.

Otra cosa yo les puse como servidor smtp.live.com que es de hotmail si usan gmail tendrán que usar el servidor smtp.gmail.com y habilitar lo para aplicaciones desconocidas en https://myaccount.google.com/lesssecureapps


Aquí les dejo el vídeo donde se  muestra como usarse: https://www.youtube.com/watch?v=ZrJL0ZEq-Q8&t=17s

Bueno creo que eso es todo saludos Flamer y hasta la proxima



martes, 29 de mayo de 2018

Codigo Para Copiar o Capturar Pantalla Con Vbscript

Ahora vengo con algo nuevo algo que creía que no se podía y que mucho creo que pensaban lo mismo, pero de tanto buscar y buscar por fin di con el clavo.

Se trata de copiar o capturar la pantalla de nuestro escritorio utilizando vbscript cosa que creía imposible, para después aguardarla en un archivo de word.

Sin mas que decir les dejare el código y al final el link de mi vídeo donde demuestro el uso de el.


option explicit
dim excel,word,doc   ''declaramos las variables

set excel=createobject("excel.application")  '' creamos el objecto excel
set word=createobject("word.application")    ''creamos el objecto word

excel.Application.SendKeys ("%{1068}") ''se pulsa la tecla para capturar pantalla y se copea al porta papeles
msgbox "pantalla capturada"  '' mensaje de pantalla capturada

Set doc = word.Documents.Add() '' se crea el documento de word
word.Selection.Paste  '' pega lo que se encuentra en el porta papeles
doc.saveas "C:\Users\Flamer\Desktop\img.doc" '' guarda el documento de word creado
word.quit '' cierra el objecto word

Saludos Flamer y creo que vbscript cada día me sorprende mas