Étape 1: Let's Get Started
Dim cible
Cible = InputBox ("Entrez les ordinateur cible: «, » pigeons v1.7 (TheKnight)")
Si Target = "" alors
WScript.Quit
END IF
Dim commencent
commencer = MsgBox (« Commencer la conversation avec » & cible & "?", 36, « Pigeons v1.7 »)
Si commencer = vbNo Then
WScript.Quit
End If
Dim message
message = « 0 »
Faire jusqu'à ce que message = ""
message = InputBox ("entrez Message:" & vbcr & vbcr + _
« Aucune valeur n’envoie un message vide » & vbcr + _
"Appuyer sur Cancel ou Alt + F4 pour fermer la fenêtre","" & cible, "", 13 500 100)
Set fs=CreateObject("Scripting.FileSystemObject")
strFileName = fs. BuildPath (Wscript.ScriptFullName & "\..", "~ msngr.bat")
strFileName = fs. GetAbsolutePathName(strFileName)
Set ts = fs. OpenTextFile (strFileName, 2, True)
TS. WriteLine « off »
TS. WriteLine "set message =" & message
TS. WriteLine "set cible =" & cible
TS. WriteLine "net envoyer % cible %%d message%"
TS. Fermer
Dim shell
Set shell=createobject("wscript.shell")
coque. Exécutez "~msngr.bat",2
Boucle