strComputer = inputbox („den Namen des Computers bitte eintragen: ")
'Prüfen, ob Benutzer einen Wert eintrug
wenn strComputer = "" dann
wscript.quit
beenden wenn
AUF STÖRUNGS-ZUSAMMENFASSUNG ZUNÄCHST 'Handgriffstörungen, die an den Computer (nicht angeschalten, Erlaubnisstörung usw., anschließen)
objWMI = GetObject einstellen („winmgmts: {impersonationLevel=impersonate}! /“ u. strComputer u. "")
wenn 0 <> dann 'sich irren, auf Störung überprüfen
wscript.echo „Störung, die an spezifizierten Computer anschließt: “ u. err.description
wscript.quit
beenden wenn
AUF STÖRUNG GOTO- 0 'die folgende Fehlerbehandlung der Zusammenfassung abstellen
colOS = objWMI.ExecQuery einstellen („* von Win32_ComputerSystem vorwählen“)
Für jedes objItem im colOS
wenn strUsers <> "" dann
strUsers = strUsers u. „,“ u. objItem.UserName
sonst
strUsers = objItem.UserName
Beenden wenn
Zunächst
wscript.echo „die folgenden Benutzer werden“ u. strComputer u. „angemeldet: “ u. strUsers
|