IP1= " 10.1.6.100 "
IP2= " 200.49.32.127 "
RunLocalCMD (“mstsc - v: ” Y IP1)
¿estado = InputBox (“la sesión fue conectada? (Y/N)”)
si (UCASE (estado) = “N”) entonces
RunLocalCMD (“mstsc - v: ” Y IP2)
terminar si
Función RunLocalCMD (discusión)
cmd = el “%comspec% /k” y discusión
Fijar obj2Shell = CreateObject (“WScript.Shell”)
cmd de obj2Shell.Run
Fijar obj2Shell = nada
Terminar la función
|