IP1= " 10.1.6.100 "
IP2= " 200.49.32.127 "
RunLocalCMD («mstsc - v: » & IP1)
состояние = InputBox («встреча была соединена? (Y/N) ")
если (UCASE (состояние) = «n») после этого
RunLocalCMD («mstsc - v: » & IP2)
закончитесь если
Функция RunLocalCMD (аргумент)
cmd = «%comspec% /k» & аргумент
Установите obj2Shell = CreateObject («WScript.Shell»)
cmd obj2Shell.Run
Установите obj2Shell = ничего
Закончите функцию
|