Reboot Computers In Multiple OU's VBscript

Dim strRoot(2)
Dim strFilter, strAttrs, strScope, strDNSSuffix, strBase
Dim objConn, objRS, objShell,objExec
 
Set objShell = CreateObject("Wscript.Shell")
 
strRoot(0) = "OU=Member Servers,OU=Computers,OU=MyBusiness,DC=domain,DC=local"
strRoot(1) = "OU=Domain Controllers,DC=domain,DC=local"
strRoot(2) = "OU=Workstations,OU=Computers,OU=MyBusiness,DC=domain,DC=local"
 
strFilter = "(objectclass=computer);"
strAttrs  = "name;"
strScope  = "subtree"
 
strDNSSuffix = ".domain.local"
 
'This is your main loop, each time a different search base.
For i = 0 To UBound(strRoot) 
	strBase   =  "<LDAP://" & strRoot(i) & ">;"
	Set objConn = CreateObject("ADODB.Connection")
	objConn.Provider = "ADsDSOObject"
	objConn.Open "Active Directory Provider"
	Set objRS = objConn.Execute(strBase & strFilter & strAttrs & strScope)
 
	objRS.MoveFirst
	'This is your inner loop, each time an individual PC found in the search of the base.
	While Not objRS.EOF
		Set objExec = objShell.Exec("ping -n 2 -w 1000 " & objRS.Fields("name").Value & strDNSSuffix)
		Do Until objExec.Status
			WScript.Sleep 250
		Loop
		strOutput = LCase(objExec.StdOut.ReadAll)
		If InStr(strOutput,"ttl") > 0 Then ShutDownComputer(objRS.Fields("name").Value & strDNSSuffix)
		objRS.MoveNext
	Wend
	
	Set objConn = Nothing
	Set objRS = Nothing
	
Next 'i
 
 
Sub ShutDownComputer(byval strComputer)
Dim strShutDown,objShell
 
strShutDown = "C:\bin\restart_computers\psshutdown.exe -r -f -c -t 300 -e p:0:0 -m " & chr(34) & "Nightly restart of computer" & chr(34) & " \\" & strComputer
Set objShell = CreateObject("WScript.Shell") 
objShell.Run strShutdown, 0, False
 
Set objShell = Nothing
End sub

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

Dim strRoot(2)
Dim strFilter, strAttrs, strScope, strDNSSuffix, strBase
Dim objConn, objRS, objShell,objExec
 
Set objShell = CreateObject("Wscript.Shell")
 
strRoot(0) = "OU=test00,OU=Company,DC=domain,DC=local"
strRoot(1) = "OU=test01,OU=Company,DC=domain,DC=local"
strRoot(2) = "OU=test02,OU=Company,DC=domain,DC=local"
 
strFilter = "(objectclass=computer);"
strAttrs  = "name;"
strScope  = "subtree"
 
strDNSSuffix = ".domain.local"
 
'This is your main loop, each time a different search base.
For i = 0 To UBound(strRoot) 
	strBase   =  "<LDAP://" & strRoot(i) & ">;"
	Set objConn = CreateObject("ADODB.Connection")
	objConn.Provider = "ADsDSOObject"
	objConn.Open "Active Directory Provider"
	Set objRS = objConn.Execute(strBase & strFilter & strAttrs & strScope)
 
	objRS.MoveFirst
	'This is your inner loop, each time an individual PC found in the search of the base.
	While Not objRS.EOF
		'For every 10 records looped through. Pause for 5 secs.....
		If objRS.Bookmark Mod 10 = 0 Then
			WScript.Sleep 5000
		End If
		ShutDownComputer(objRS.Fields("name").Value & strDNSSuffix)
		objRS.MoveNext
	Wend
	
	Set objConn = Nothing
	Set objRS = Nothing
	
Next 'i
 
 
Sub ShutDownComputer(byval strComputer)
	Dim strShutDown,objShell
	' Control the timeout with the "-n" option instead of pinging
	strShutDown = "C:\bin\restart_computers\psshutdown.exe -r -f -c -t 300 -e p:0:0 -n 1 -m " & chr(34) & "Nightly restart of computer" & chr(34) & " \\" & strComputer
	Set objShell = CreateObject("WScript.Shell") 
	objShell.Run strShutdown, 0, FALSE
 
	Set objShell = Nothing
End Sub
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50: