strComputer = inputbox („te gaan gelieve de naam van de computer in: “)
'Controle dat de gebruiker een waarde inging
als strComputer = "" toen
wscript.quit
beëindig als
OP FOUT HERVAT DAARNA de 'fouten die van het Handvat met de computer verbinden (ingeschakelde niet, toestemmingenfout enz.)
plaats objWMI = GetObject („winmgmts: {impersonationLevel=impersonate}! /“ & strComputer & "")
als me vergis <> controleren 0 dan 'fout
wscript.echo „Fout die met gespecificeerde computer verbindt: “ & err.description
wscript.quit
beëindig als
OP de Draai van de FOUT GOTO 0 'van samenvattings volgende fout behandeling
reeks colOS = objWMI.ExecQuery („selecteer * uit Win32_ComputerSystem“)
Voor Elke objItem in colOS
als strUsers <> "" toen
strUsers = strUsers & „,“ & objItem.UserName
anders
strUsers = objItem.UserName
Eind als
Daarna
wscript.echo de „Volgende gebruiker wordt het programma geopend aan“ & strComputer & „: “ & strUsers
|