strComputer = inputbox (”behaga skriver in det känt av datoren: ”)
'Kontrollera att användaren skrev in en värdera
om strComputer = "" därefter
wscript.quit
avsluta om
Fel för handtag PÅ för FELMERITFÖRTECKNINGEN som DÄREFTER 'förbinder till datoren (som inte kopplas på, tillåtelsefelet etc.)
fastställd objWMI = GetObject (”winmgmts: {impersonationLevel=impersonate}! /” & strComputer & "")
om fela <> 0 därefter ', kontrollera för fel
wscript.echo-”fel som förbinder till den specificerade datoren: ” & err.description
wscript.quit
avsluta om
PÅ FEL GOTO 0 'vänd av nästa felbruk för meritförteckning
fastställd colOS = objWMI.ExecQuery (”välj * från Win32_ComputerSystem”),
För varje objItem i colOS
om strUsers <> "" därefter
strUsers = strUsers & ”,” & objItem.UserName
annars
strUsers = objItem.UserName
Avsluta om
Därefter
wscript.echo ”användarena loggas in efter” & strComputer & ”: ” & strUsers
|