assistente = “MyServer„
Regolar la WS = CreateObject (“WScript.Shell„)
Regolare il oExec = la WS. Exec (“quser /server: „ & assistente)
Fare
WScript.Sleep 10
Collegare fino a oExec.Status = 1
Fare fino a oExec.stdOut.atEndOfStream
'inserire il codice qui per valutare l'uscita
'oExec.StdOut.readLine permetterà che accediate all'uscita
'una linea alla volta
Ciclo
|