Am Server anmelden-Drucker auslesen-für jeden Server eine txt- Datei erstellen- kleiner Fehler im Skript

'1. Schritt: An den Servern anmelden (Server1, Server2 usw.)'  

Const WbemAuthenticationLevelPktPrivacy = 6
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set oArg = wscript.arguments
strNamespace = "root\cimv2"  
'--------Datei einlesen und in ein Array schreiben--------'  
Set fso = CreateObject("Scripting.FileSystemObject")  
Set oFile = fso.OpenTextFile("C:\tssserver.txt")  
i=0
' ---------Erstmal zählen wieviele Einträge----------  
while not oFile.AtEndOfStream
i=i+1
oFile.ReadLine
Wend
oFile.Close
' Array definieren  
REDIM arrServer(i)
Set oFile = fso.OpenTextFile("C:\tssserver.txt")  
i=0
' Jetzt Werte ins Array übernehmen  
while not oFile.AtEndOfStream
arrServer(i)=oFile.ReadLine
i=i+1
Wend

servername   =0
servernummer =0
servernummerT =0
'--------Servernamen befinden sich nun im Array--------  
'-------Für jeden Server eine extra datei anlegen ! '  
'--------------------------------------------Schleifen- ANFANG-------------  
For Each strServer In arrServer

    ifertig = "False"  
    i2fertig = "False"  

    If isOnline(strServer) Then

'--------------------------------------------Username und Passwort---------------------------------------------------'          
strUser = "domäne\admin"  
strPassword = "PW"  
'--------------------------------------------Einstellung Ende-------------------------------------------------------'  
'--------------------------------------------Am Server anmelden-------------------------------------------------------'  
        Set objWMI = objwbemLocator.ConnectServer _
            (strServer, strNamespace, strUser, strPassword)
        objWMI.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy  
'-------------------------Hier muss die Abfrage kommen---------------------------------------------------------------'  
'Set objWMIService = GetObject("winmgmts:\\domäne"& strServer &"\root\cimv2")  
Set colItems = objWMI.ExecQuery("Select * from Win32_Printer",,48)  
Set Ausgabedatei = objFSO.CreateTextFile("C:\druckerliste_" & strServer &".txt",1)  

For Each objItem in colItems
Ausgabedatei.WriteLine "Servername: " & strServer   
Ausgabedatei.WriteLine "Drucker: " & objItem.Name  
Ausgabedatei.WriteLine "Model und Kommentar: " & objItem.Comment  
Ausgabedatei.WriteLine "DriverName: " & objItem.DriverName  
Ausgabedatei.WriteLine "-----------------------------------------"  
Next
              
              servername= servername +1             
              servernummer = servernummer +1

                End If
Next
oFile.Close
'  


'--------------------------------------------Schleifen- ENDE-------------  
   MsgBox "Fertig!", Abgeschlossen, vbInfo