strComputer = inputbox («пожалуйста впишите имя компьютера: ")
'Проверите что потребитель вписал значение
если strComputer = "" после этого
wscript.quit
закончитесь если
НА ОШИБКИ РЕЗЮМЕ ошибки ручки ЗАТЕМ 'подключая к компьютеру (переключенному дальше, ошибка etc позволений)
установите objWMI = GetObject («winmgmts: {impersonationLevel=impersonate}! /» & strComputer & "")
если заблуждается <> 0 после этого ', то проверите для ошибки
ошибка wscript.echo «подключая к определенному компьютеру: » & err.description
wscript.quit
закончитесь если
НА ОШИБКУ ПЕРЕХОД 0 'поверните обработку ошибок резюма следующую
установите colOS = objWMI.ExecQuery («выберите * от Win32_ComputerSystem»)
Для каждого objItem в colOS
если "" <> strUsers после этого
strUsers = strUsers & «,» & objItem.UserName
еще
strUsers = objItem.UserName
Закончитесь если
Затем
wscript.echo «следующий потребители внесены в журнал дальше» & strComputer & «: » & strUsers
|