Server aus AD auslesen und verarbeiten VBS

Option Explicit
       'specified Database - make connection to db and select  
       Const adOpenStatic = 3
       Const adLockOptimistic = 3

       Set objConnection = CreateObject("ADODB.Connection")  
       Set objRecordSet = CreateObject("ADODB.Recordset")  

      'Oeffnen der Datenbank - Verbindung  
       objConnection.Open _
            "Provider=SQLOLEDB;Data Source=SQL-Server; Initial Catalog=DB; User ID=DB_User; Password=PW"  
		
Dim Computerliste, Computer, Benutzer, objConnection, objConnectionAD, objRecordset, objRecordset1, objCommand1, ID_Host, ID, Computername, Hostname, objRecordSet2, ID_Server, Hostzahl, objCommand, PCName, PC, Name
'Abgefrage Computer  
Const ADS_SCOPE_SUBTREE = 2

Hostzahl = 0

Set objConnectionAD = CreateObject("ADODB.Connection")  
Set objCommand =   CreateObject("ADODB.Command")  
objConnectionAD.Provider = "ADsDSOObject"  
objConnectionAD.Open "Active Directory Provider"  
Set objCOmmand.ActiveConnection = objConnectionAD
objCommand.CommandText = _
    "Select Name, Location from 'LDAP://DC=Domäne,DC=Domäne' " _  
        & "Where objectClass='computer'"    
objCommand.Properties("Page Size") = 1000  
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE   
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
	Computer = objRecordset.Fields("Name").Value  
	Wscript.Echo "Computer Name: " & Computer  
    Wscript.Echo "Location: " & objRecordSet.Fields("Location").Value  

On Error Resume Next

Wscript.Echo ("In Schleife: ")  
	Wscript.Echo
	Wscript.Echo ("Computer: ") & Computer  
	For Each Benutzer In GetObject("WinNT://" & Computer & "/Administratoren").Members  
    
	    	    Wscript.Echo ("lokale Adminstratoren: ") & Benutzer.name  
		
		If Err.Number <> 0 Then
		     Wscript.Echo("Lokale Admingruppe nicht vorhanden")  
		    Wscript.Echo("Error Anzahl:") &Err.Number  
					
		else

		    'Überprüfung ob Hostname = Computer dann Hostzahl = 1  
		    objRecordSet.Open "SELECT Count(Hostname) as Hostzahl FROM tbl_Hosts WHERE Hostname = ('" & Computer & "')" , objConnection, dOpenStatic,          adLockOptimistic  
		     Hostzahl = objRecordset.Fields.Item("Hostzahl")  
		    objRecordSet.close
					
				
		   Wscript.Echo("Hostzahl: ") & Hostzahl  
									
					

		   'Wenn Hostzahl 1 ist der Hostname schon in der tbl_Hosts vorhanden  
		        if Hostzahl = 1 THEN	
					
		   Wscript.Echo("Computer: ") & Computer  
		   Wscript.Echo("Computername: ") & Computername  
		   Wscript.Echo("Error Anzahl:") &Err.Number  
		    'Suchen der HostID und in Variable schreiben  
		    objRecordset.Open "SELECT ID from tbl_Hosts WHERE Hostname = ('" & Computer & "')" , objConnection, adOpenStatic, adLockOptimistic  
		    ID_Server = objRecordset.Fields.Item("ID")  
	                        objRecordSet.close
	   	  'Ausfueren des INSERTs auf die Tabelle tbl_administratoren						  
                                              objRecordSet.Open "INSERT tbl_Administratoren (Admin, ID_Host) VALUES ('" & Benutzer.Name & "', '" & ID_Server &"')", objConnection, adOpenStatic, adLockOptimistic  
		   WScript.Echo "Eintrag DB: " & Benutzer.Name & "   " & ID_Host  
		    'objRecordset.MoveNext  
					
		else
		    'Eintragen des Hostnamens  
		    objRecordSet.Open "INSERT tbl_Hosts (Hostname) VALUES ('" & Computer & "')", objConnection, adOpenStatic, adLockOptimistic  
		    'Auslesen der Host_ID der Tabelle tbl_Hosts  
	                         objRecordSet.Open "SELECT ID FROM tbl_Hosts where Hostname = '" & Computer & "' " , objConnection, adOpenStatic, adLockOptimistic  
		   ' geht an das erste Recordset  
		   objRecordset.MoveFirst
		   ID_Host = objRecordset.Fields.Item("ID")  
		   Wscript.Echo("ID: ") & ID_Host  
		   Wscript.Echo("Error Anzahl:") &Err.Number  
		    objRecordSet.close
		    'Ausfueren des INSERTs auf die Tabelle tbl_administratoren  
		  objRecordSet.Open "INSERT tbl_Administratoren (Admin, ID_Host) VALUES ('" & Benutzer.Name & "', '" & ID_Host &"')", objConnection, adOpenStatic, adLockOptimistic  
		   WScript.Echo "Eintrag DB: " & Benutzer.Name & "   " & ID_Host  
		    objConnectionAD.close
		    'objConnection.close  
		    'Hostzahl = 0  
		end if
	   end if			
					
	Next
	WScript.Echo	
					
objRecordSet.MoveNext
Loop

objConnection.close