On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject(«ADODB.Connection»)
Set objCommand = CreateObject(«ADODB.Command»)
objConnection.Provider = «ADsDSOObject»
objConnection.Open «Active Directory Provider»

Set objCommand.ActiveConnection = objConnection
objCommand.CommandText = «Select Name, Location from ‘LDAP://OU=Centura,OU=Binaria,OU=Computadores,DC=GRUPOCGE,DC=CL’ Where objectClass=’computer'»
objCommand.Properties(«Page Size») = 1000
objCommand.Properties(«Searchscope») = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
   ‘Wscript.Echo «Computer Name: » & objRecordSet.Fields(«Name»).Value
   ‘Wscript.Echo «Location: » & objRecordSet.Fields(«Location»).Value
   txtPCName = objRecordSet.Fields(«Name»).Value
   txtshutdown = «shutdown -r» 
   set objShell = CreateObject(«WScript.Shell»)
   objShell.Run txtShutdown
   objRecordSet.MoveNext
Loop