Salvar como .vbs , Edite o campo mencionado antes de executar.
Código: Selecionar todos
'Script para Massshutdown - shutdown.Vbs
'Por Marcelo Leães - [email protected]
'Retirado do fórum Itbr.org
dim objPing
dim objStatus
dim strComputer
'Aqui você deve definir o servidor AD com o nome qualificado e a OU onde serão localizados os computadores do domínio.
'Exemplo: LDAP://servidor.contoso.local/ou=Computers,dc=test,dc=local
Set ou = GetObject("LDAP://servidor.contoso.local/ou=Computers,dc=contoso,dc=local")
For Each obj in ou
If obj.class = "computer" Then
name = mid(obj.Name,4)
Shutdown(name)
End If
Next
Function Shutdown(strComp)
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select Replysize from Win32_PingStatus where address = '" & strComp & "'")
For Each objStatus in objPing
If IsNull(objStatus.ReplySize) Then
'WScript.Echo Serv&" está offline"
Else
'WScript.Echo Serv&" está online"
strShutdown = "shutdown.exe -s -c ""Seu computador vai ser desligado, salve seus trabalhos abertos."" -t 300 -m \\" & strComp
set objShell = CreateObject("WScript.Shell")
objShell.Run strShutdown
End If
Next
End Function