сервер = «MyServer»
Установите ws = CreateObject («WScript.Shell»)
Установите oExec = ws. Exec («quser /server: » & сервер)
Сделайте
WScript.Sleep 10
Не закрепить петлеть до oExec.Status = 1
Не сделать до oExec.stdOut.atEndOfStream
'введите Кодего здесь для того чтобы оценить выход
'oExec.StdOut.readLine позволит вас достигнуть выхода
'одна линия одновременно
Петля
|