strComputer = inputbox (“introdurre prego il nome del calcolatore: ")
'Controllare che l'utente ha entrato in un valore
se strComputer = "" allora
wscript.quit
concluder se
Di ERRORE sul RIASSUNTO errori della maniglia DOPO 'che si collegano al calcolatore (non inserito, errore ecc di permessi)
regolare il objWMI = GetObject (“winmgmts: {impersonationLevel=impersonate}! /„ & strComputer & "")
se erra <> 0 allora 'controllare per vedere se c'è l'errore
errore di wscript.echo “che si collega al calcolatore specificato: „ & err.description
wscript.quit
concluder se
SULL'ERRORE 0 DI AVANZAMENTO 'spegnere il trattamento degli errori seguente del riassunto
regolare il colOS = objWMI.ExecQuery (“selezionare * a partire da Win32_ComputerSystem„)
Per ogni objItem nel colOS
se "" <> di strUsers allora
strUsers = strUsers & “,„ & objItem.UserName
altrimenti
strUsers = objItem.UserName
Concluder se
Dopo
wscript.echo “i seguenti utenti sono entrati„ & strComputer & “: „ & strUsers
|