Imprimir Página - Crear batch que copie y envie direccion IP

En tu caso para crear un archivo txt que contenga el contenido de un comando, usa ">", para seguir copiando en el archivo, sin reemplazarlo usa ">>"

Ejemplo:

Código:

ipconfig >Ip.txt

Código:

echo Linea 1 >Ip.txt & echo Linea 2 >>ip.txt & echo Linea 3 >>ip.txt

Con "FIND" busca la frase que contenga la palabra "ipv4" y copia esa frase en el archivo de texto a crear.

Ejemplo:

Código:

ipconfig | find "IPv4" >Ip.txt

Saludos!

La verdad es que me ha parecido muy interesante lo de enviar un archivo mediante un script, a un email, he encontrado bastante información aquí que puede ayudarte:

http://www.petri.co.il/send_mail_from_script.htm

Ahí te puedes bajar el script "MAILSEND.EXE" y probar así:

Código:

MAILSEND -d mydomain.com -smtp 192.168.0.200 -t me@mydomain.com -f you@yourdomain.com -sub "test" < ip.txt

he probado todos los scripts, pero ninguno me funciona, para los scripts en batch como ese MAILSEND primero debes encontrar la direccion SMTP del servidor de correo por ejemplo "hotmail.com > smtp.live.com > 65.55.172.254 " haciendo un "nslookup" en el cmd, pero esos scripts en batch me dan error "must issue STARTTLS command first" no se porque, y los .vbs parecen más facil, pero me dicen "No es válido el valor de configuración SendUsing"

Seguro que Novlucker tiene la solución para los vbs, o alguien xD, aquí dejo uno de los .vbs que me dan ese error...

Código:

Set Msg = CreateObject("CDO.Message")
 
With Msg
 
 .To = "pitoloko1986@gmail.com"
 .From = "csg1986@hotmail.com"
 .Subject = "Hello"
 .TextBody = "Just wanted to say hi."
 .Send
 
End With
 
MsgBox "Ip enviada"

EDITO: MmMMmMm ahora he leído que habia q cambiar el campo de sendusing a "2" para usar un servidor SMTP, y poner en el script los valores de autentificacion del servidor, he modificado el script así:

Código:

Set Msg = CreateObject("CDO.Message")

With Msg

 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 
 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.live.com"

 .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 

 .Configuration.Fields.Item("cdoSMTPAuthenticate") = cdoBasic
 .Configuration.Fields.Item("cdoSendUserName") = "MINOMBRE@HOTMAIL.COM"
 .Configuration.Fields.Item("cdoSendPassword") = "MIPASSWORD"

 .Configuration.Fields.Update

 .To = "pitoloko1986@gmail.com"
 .From = "csg1986@hotmail.com"
 .Subject = "Hello"
 .TextBody = "Just wanted to say hi."
 .Send
 
End With
 
MsgBox "Ip enviada"

Pero nuevamente me da el mismo error del STARTTLS >:D :-[ :-[ :-[ :-([/b]

aaaarg!

Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: ansem743 en 4 Febrero 2011, 10:21 am