Étape 1: Étape 1... Écrire le scénario
Dim x
Dim y
Set oShell = createobject("wscript.shell")
x = InputBox (« Entrez l’utilisateur ou IP », "Net Send Messenger.. script par Cavingboy92")
y = InputBox ("Enter Messege", « script Messenger.. Net envoyer par Cavingboy92 »)
oshell.Run "net send" & (x) & "" & (y) & ""