IP1= " 10.1.6.100 ",
IP2= " 200.49.32.127 ",
RunLocalCMD (”mstsc - v: ” & IP1)
status = InputBox (”perioden förbands? (Y/N)”)
om (UCASE (status) = ”N”) därefter
RunLocalCMD (”mstsc - v: ” & IP2)
avsluta om
Fungera RunLocalCMD (argumentet)
cmd = ”%comspec% /k” & argument
Uppsättning obj2Shell = CreateObject (”WScript.Shell”)
obj2Shell.Run-cmd
Uppsättning obj2Shell = ingenting
Avsluta fungerar
|