Druckerinfos via VBScript auslesen - GOTO Syntax

Hallo Leute

Ich muss zugeben, ich kenne mich mit VB überhaupt nicht aus, obwohl mich das Thema tierisch interessieren würde. Aber die Zeit ...
Auf jeden Fall habe ich in diesem Forum ein Script gefunden *https://www.administrator.de/installierte_Drucker_auslesen.html*, das ich mir als Vorlage genommen habe und dieses nun anpassen/optimieren möchte.

Ausgangslage:
Ich möchte alle relevanten Infos der installieren Drucker auslesen und auf einem Share in eine INI-Datei schreiben, damit ich mittels dieser INI-Datei die Druckertreiber wieder installieren kann, wenn der Rechner mal neu aufgesetzt wird.

Mein Script sieht in etwa so aus:

Um die Daten in eine INI zu bekommen starte ich dieses Script wie folgt:
cscript "Printer auslesen.vbs" > C:\temp\Printer_%ComputerName%.ini


Das Resultat sollte dann etwa so aussehen:

Nun aber endlich zu meinem Problem
1. Ich möchte nur die Infos der physische Drucker auslesen, nicht aber die der "Softwaredrucker" (wie etwas SnagIt oder PDF Drucker)
Aus diesem Grund habe ich die Goto-Sprungmarke "> GoTo auslassen" eingebaut, aber das nimmt mir das Script übel! Offenbar ist es überrascht über mein GoTo

Fehler:
Zeile: 8
Zeichen: 33
Fehler: Expected statement
Code: 800A0400
Quelle: Microsoft VBScript compilation error

Ich hab's auch schon mit >>> IF objItem.Name="SnagIt 8" then Next <<< probiert, allerdings mitdem selben Resultat.

2. Über welchen Paramter könnte ich besser prüfen, ob es ich im einen "Software-Drucker" handelt (damit ich nicht jeden "Software-Drucker" im Script aufnehmen muss?
Also so was wie: IF objItem.Type="Software" then ..... oder so...

3. Für die Installation eines TCP/IP-Printer-Ports brächte ich neben dem Portnamen auf die Port-IP.
Also so was wie: Wscript.Echo "PortAdresse=" & objItem.PortIPAdress (erfunden)
Kennt jemand so einen Parameter?

Ich bin sicher, dass das nur kleine Anfängerfehler sind und entschuldige mich hier gleich mal dafür, dass ich als VB-Neuling so dumme Fragen stelle

Besten Dank für eure Hilfe.


[Edit Biber] Ein paar Code-Tags ergänzt [/Edit]

For Each...

Ausgabe = True
If objItem.Name="SnagIt 8" Then Ausgabe = False  
If objItem.Name="PDF Drucker (eDoc PDF Printer)" Then Ausgabe = False  

If Ausgabe = True Then
   ....
   ....
End If

Next

cscript //nologo "Printer auslesen.vbs" > C:\temp\Printer_%ComputerName%.ini

DIM Druckernummer

IF objItem.Name="SnagIt 8" then Next  

if not exist \\server\Freigabe\!user2printer\printserver\%computername%.reg regedit /e \\server\Freigabe\!user2printer\printserver\%computername%.reg "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print"  

if not exist \\server\Freigabe\!user2printer\%computername%-%username%.reg regedit /e \\server\Freigabe\!user2printer\%computername%-%username%.reg HKEY_CURRENT_USER\Printers\Connections

find "%computername%" "\\server\freigabe\hp2035.log" && goto end  
reg query "HKLM\Software\Microsoft\Windows NT\Currentversion\Print\Printers\HP Laserjet P2035" && echo HP2035 auf %computername% installiert>>\\server\freigabe\hp2035.log && goto end  
rundll32 printui.dll,PrintUIEntry /if /b "HP LaserJet P2035" /f "\\server\freigabe\HP2030.INF" /r "lpt1:" /m "HP LaserJet P2035"  
:end

On Error Resume Next
Ausnahme = "#SnagIt 8#PDF Drucker (eDoc PDF Printer)#Microsoft XPS Document Writer#Microsoft Office Document Image Writer#"  

strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer",,48)  
For Each objItem in colItems
    If InStr(1, Ausnahme, "#" & objItem.Name & "#", vbTextCompare) = 0 Then  
        Druckernummer=Druckernummer+1
        WScript.Echo
        WScript.Echo
        WScript.Echo "[Drucker"&Druckernummer&"]"  
        WScript.Echo "Name=" & objItem.Name  
        WScript.Echo "DriverName=" & objItem.DriverName  
        WScript.Echo "PrintProcessor=" & objItem.PrintProcessor  
        WScript.Echo "PrintJobDataType=" & objItem.PrintJobDataType  
        WScript.Echo "PortName=" & objItem.PortName  
    End If
Next

REM *** Port erstellen ...
cscript portmgr.vbs -a -h %PortName% -p %PortAdresse% -t %PrintJobDataType% -n 9100

REM Installation eines Treibers via einer INF-Datei auf einem Share ...
cscript %vbsPfad%\prnmgr.vbs -a -f "%INFFILE%" -b "%Name%" -m "%DriverName%" -r %PortName%