IP1= " 10.1.6.100 "
IP2= " 200.49.32.127 "
RunLocalCMD (“mstsc - v: ” & IP1)
status = InputBox (“a sessão foi conetada? (Y/N)”)
se (UCASE (status) = “N”) então
RunLocalCMD (“mstsc - v: ” & IP2)
terminar se
Função RunLocalCMD (argumento)
cmd = “%comspec% /k” & argumento
Ajustar obj2Shell = CreateObject (“WScript.Shell”)
cmd de obj2Shell.Run
Ajustar obj2Shell = nada
Terminar a função
|