strComputer = inputbox ("Zadawalać wchodzić do the imię the komputer: ")
'Sprawdzać że użytkownik wchodzić do wartość
jeżeli strComputer = "" wtedy
wscript.quit
kończyć jeżeli
NA BŁĄD ŻYCIORYS NASTĘPNIE 'Rękojeść błąd the komputerowy (Dalej, pozwolenie błąd etc)
ustawiać objWMI = GetObject ("winmgmts: {impersonationLevel=impersonate}! /" & strComputer & "")
jeżeli błądzić <> (0) wtedy 'Sprawdzać dla błąd
wscript.echo "Błąd precyzować komputer: " & err.description
wscript.quit
kończyć jeżeli
NA BŁĄD ROZPOCZYNAJĄCY (0) 'Zwrot z życiorys następny błąd
ustawiać colOS = objWMI.ExecQuery ("Wybiórka * od Win32_ComputerSystem")
Dla ColOS objItem W colOS
jeżeli strUsers <> "" wtedy
strUsers = strUsers & "," & objItem.UserName
inny
strUsers = objItem.UserName
Kończyć Jeżeli
Następnie
wscript.echo "The następujący użytkownik notować dalej" & strComputer & ": " & strUsers
|