Wo befinden sich alle installierten Druckertreiber in der Registry ?

 
Const HKEY_CURRENT_USER = &H80000001
strComputer = "."  
sKeyPath = "Software\Microsoft\Windows NT\CurrentVersion\Devices"  

Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _  
strComputer & "\root\default:StdRegProv")  

If oReg.EnumValues(HKEY_CURRENT_USER, sKeyPath, _
aValueNames, aValueTypes) = 0 Then

'Wenn keine Werte vorhanden sind, ist 'aValueNames' null, wenn welche vorhanden sind  
'ist es ein Variant-Array. Als IsNull u/o VarType anwenden  

If not isnull(aValueNames) Then
WScript.Echo "Anzahl Values in HKCU " & sKeyPath & " -> " _  
& UBound(aValueNames) + 1
For i = 0 To UBound(aValueNames)
WScript.Echo aValueNames(i)
Next
Else
WScript.Echo "Keine Werte im Key vorhanden!"  
End If
Else
WScript.Echo "Key nicht vorhanden oder Fehler beim Enumerieren der Werte!"  
End If


'Software\Microsoft\Windows NT\CurrentVersion\Devices" listet nur die verwendeten Drucker auf und nicht alle installierten !  
' hkey_local_machine\system\currentcontrolset\control\print\printers\  

'####################################################################################################################################################'  
'#Dieses Skript soll sich auf allen Terminalserver anmelden und checken welche Druckertreiber jeweils installiert sind.                             #'  
'#Die Infos sollen dann in eine Excel oder TXT- DAtei übersichtlich dargestellt werden und später zum Abgleich verschiedenener Probleme helfen      #'  
'#Als nächstes sollen die Listen jeweils mit der Liste von dem Printserver abgeglichen werden und die Unterschiede übersichtlich dargestellt werden #'  
'####################################################################################################################################################'  
'Option Explicit  

Dim i, j, fso, flgDouble, objFile, strArray (), strLine
Dim Abgeschlossen, objWbemLocator, vbInfo, objFSO, oArg, oFile, strNamespace, strUser, strPassword
Dim  strServerpfad

Const WbemAuthenticationLevelPktPrivacy = 6
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")  
Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set oArg = wscript.arguments
'--------------------------------------------Einstellung Anfang--------------------------------'  
strNamespace  = "root\cimv2"          
strUser       = "Domäne\Admin"   
strPassword   ="PW"  
strServerpfad = "Pfad"  
'strAusgabe  =  "Zeile 36"  
'--------------------------------------------Einstellung Ende----------------------------------'  
'---------------Datei einlesen und in ein Array schreiben--------------------------------------'  
arrServer = Split(objFSO.OpenTextFile(strServerpfad).ReadAll, vbCrLf)
Set oFile = objFSO.OpenTextFile(strServerpfad)
'--------------------------------------------Schleifen- ANFANG---------------------------------'  
For Each strServer In arrServer

    ifertig = "False"  
    i2fertig = "False"  

    If isOnline(strServer) Then
    
        Set objWMI = objwbemLocator.ConnectServer _
                     (strServer, strNamespace, strUser, strPassword)
        objWMI.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy  

Set colItems = objWMI.ExecQuery("Select * from Win32_Printer",,48)  
Set Ausgabedatei = objFSO.CreateTextFile("C:\test\doppelt\Druckerliste_" & strServer &"_doppelt.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 objItem.DriverName
  'Ausgabedatei.WriteLine "-----------------------------------------"  
  Next
  Ausgabedatei.Close

'##### Hier wird nun gecheckt ob es doppelte Treiber gibt, die dann gelöscht werden'  
'Ein = "Pfad"  
Aus = "C:\test\Druckerliste_" & strServer &".txt"  

'Set fso = CreateObject("Scripting.FileSystemObject")  
Set d = CreateObject("Scripting.Dictionary")  

ZeilenEin = Split(objFSO.OpenTextFile("C:\Druckerlisten\doppelt\Druckerliste_" & strServer &"_doppelt.txt").ReadAll, vbCrLf)  
For Each Zeile In ZeilenEin
    If Not d.Exists(Zeile) Then d.Add Zeile, Dummy
Next

objFSO.CreateTextFile(Aus).Write Join(d.Keys, vbCrLf)

  End If
Next
oFile.Close
'--------------------------------------------Schleifen- ENDE---------------------------------'  
objFSO.DeleteFile "C:\test\doppelt\*.*"  
'-------------------------------Ende--------------------------------------------'  
function IsOnline(host)
set WshShell = CreateObject("Wscript.Shell")  
set temp = wshshell.Exec ("ping.exe -n 1 -w 100 "&host)  
dummy = temp.StdOut.ReadAll
IF instr(1,dummy,"Antwort") >0 THEN  
isonline = true
ELSE
isonline = false
END IF
end Function
'------------------------Fertig----------------------------------------------'  
MsgBox "Fertig!", Abgeschlossen, vbInfo