IP1= " 10.1.6.100 "
IP2= " 200.49.32.127 "
RunLocalCMD (“mstsc - v: „ & IP1)
condizione = InputBox (“la sessione è stata collegata? (Y/N)„)
se (UCASE (condizione) = “N„) allora
RunLocalCMD (“mstsc - v: „ & IP2)
concluder se
Funzione RunLocalCMD (discussione)
cmd = “%comspec% /k„ & discussione
Regolar obj2Shell = CreateObject (“WScript.Shell„)
cmd di obj2Shell.Run
Regolar obj2Shell = niente
Concludere la funzione
|