IP1= " 10.1.6.100 "
IP2= " 200.49.32.127 "
RunLocalCMD (« mstsc - v : » Et IP1)
statut = InputBox (« la session a-t-elle été reliée ? (Y/N) »)
si (UCASE (statut) = « N ») puis
RunLocalCMD (« mstsc - v : » Et IP2)
finir si
Fonction RunLocalCMD (argument)
cmd = « %comspec% /k » et argument
Placer obj2Shell = CreateObject (« WScript.Shell »)
cmd d'obj2Shell.Run
Placer obj2Shell = rien
Finir la fonction
|