IP1= " 10.1.6.100 "
IP2= " 200.49.32.127 "
RunLocalCMD („mstsc - v: “ U. IP1)
Status = InputBox („angeschlossen der Lernabschnitt n? (Y/N)“)
wenn (UCASE (Status) = „N“) dann
RunLocalCMD („mstsc - v: “ U. IP2)
beenden wenn
Funktion RunLocalCMD (Argument)
cmd = „%comspec% /k“ u. Argument
Einstellen obj2Shell = CreateObject („WScript.Shell“)
obj2Shell.Run cmd
Einstellen obj2Shell = nichts
Funktion beenden
|