Paso 1: Paso 1... Escribir el guión
X DIM
Dim y
Set oShell = createobject("wscript.shell")
x = InputBox ("Ingrese usuario o IP", "Net Messenger enviar... guión de Cavingboy92")
y = InputBox ("Enter Messege", "Net enviar mensajero... guión de Cavingboy92")
oshell.Run "net send" & (x) & "" & (y) & ""