strComputer = inputbox (“dar entrada com por favor o nome do computador: ")
'Certific do usuário incorpore um valor
se strComputer = "" então
wscript.quit
terminar se
Do ERRO no RESUMO erros do punho EM SEGUIDA 'que conetam ao computador (não ligado, erro etc. das permissões)
ajustar o objWMI = o GetObject (“winmgmts: {impersonationLevel=impersonate}! /” & strComputer & "")
se erram <> 0 então 'verific para ver se há o erro
erro de wscript.echo “que coneta ao computador especific: ” & err.description
wscript.quit
terminar se
NO ERRO 0 EMPREENDEDORES 'desligar a manipulação de erro seguinte do resumo
ajustar o colOS = o objWMI.ExecQuery (“selecionar * de Win32_ComputerSystem”)
Para cada objItem no colOS
se "" <> dos strUsers então
strUsers = strUsers & “,” & objItem.UserName
mais
strUsers = objItem.UserName
Terminar se
Em seguida
wscript.echo “os seguintes usuários são entrados” & strComputer & “: ” & strUsers
|