IP1="10.1.6.100"
IP2="200.49.32.127"
RunLocalCMD("mstsc -v:" & IP1)
status = InputBox("Was the session connected? (Y/N)")
if (UCASE(status) = "N") then
RunLocalCMD("mstsc -v:" & IP2)
end if
Function RunLocalCMD(argument)
cmd = "%comspec% /k " & argument
Set obj2Shell = CreateObject("WScript.Shell")
obj2Shell.Run cmd
Set obj2Shell = Nothing
End Function
|