IP1= " 10.1.6.100 "
IP2= " 200.49.32.127 "
RunLocalCMD („mstsc - v: “ & IP1)
status = InputBox („werd de zitting verbonden? (Y/N)“)
als (UCASE (status) = „N“) toen
RunLocalCMD („mstsc - v: “ & IP2)
beëindig als
Functie RunLocalCMD (argument)
cmd = „%comspec% /k“ & argument
Vastgesteld obj2Shell = CreateObject („WScript.Shell“)
obj2Shell.Run cmd
Vastgesteld obj2Shell = niets
De Functie van het eind
|