Druckerpfad ändern

Option Explicit

Dim Text, i, PS1, nPS1
Dim drucker, server, tempname, fso, fi2, message, intro, def_printer, old_def_printer, error_meldung, reg_eintrag
Dim WshNetwork, WshShell, oDevices ' Objektvariable  
Const ForWriting = 8 ' 2 = Write und 8 = anhängen  

Set WshShell = WScript.CreateObject("WScript.Shell")  
' Erstelle neues WshNetwork-Objekt, welches man zum Zugriff  
' auf die Netzwerk-Eigenschaften brauchen.  
Set WshNetwork = WScript.CreateObject("WScript.Network")  

On error resume next

if WshShell.RegRead("HKCU\Software\Shortcut\chgPrinter\chgPrinterVersion") <> "100" Then  
Select Case err.number
Case 0
error_meldung = " Registryeintrag vorhanden " & vbCRLF  
Case -2147024894
error_meldung = " Registryeintrag fehlt " & vbCRLF  
Case Else
error_meldung = " Unbekannter Fehler: Code " & Err.Number & " Bezeichnung : " & Err.Description & vbCRLF  
End Select

' Alte Druckserver  
PS1 = "AlterServer"  
' Neue Druckserver  
nPS1 = "NeuerServer"  

def_printer = WshShell.RegRead("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows\Device")  
old_def_printer = Split(def_printer, ",", -1, 1)  
'msgBox "Alter Default Printer = : " & old_def_printer(0)  
def_printer = Replace(ucase(old_def_printer(0)), "PRINT", "PS", 1, 1, 1)  
'msgBox "Neuer Default Printer = : " & def_printer  

' Schreiben der Logdatei "Printer.txt" in "D:\"  
Set fso = CreateObject("Scripting.FileSystemObject")  
Set fi2 = fso.OpenTextFile("D:\PRINTER.TXT", ForWriting, true) ' Ausgabedatei  

' Jetzt die Zuordnungen auflisten  
Set oDevices = WshNetwork.EnumPrinterConnections

' Überschrift der Ausgabe  

Text = vbCRLF &" Zusammenfassung der Druckerzuordnungen" & vbCRLF  
Text = text &"-----------------------------------------------------------------------" & vbCRLF & vbCRLF  


' Untertitel der Ausgabe  
Text = text & " Die alten Druckerzuordnungen lauteten:" & vbCRLF & vbCRLF  
text = text & "Old Default Printer = " & old_def_printer(0) & vbCRLF  

' Ermitteln der alten (aktuell) definierten Druckerobjekte  
For i = 0 To oDevices.Count-1 Step 2
' Ausgabe bei jedem Durchlauf ergänzen  
Text = " " & Text & oDevices(i) & " " & oDevices(i+1) & vbCRLF  
' Variable splitten wo ein \ vorkommt  
tempname = Split(oDevices(i+1), "\", 2, 1)  
for each server in tempname
' Variable abermals splitten wo ein \ vorkommt, damit Server und Drucker übrig bleibt  
drucker = Split(server, "\", -1, 1)  
' Prüfen welcher Printserver gefunden wurde  
if Instr(1, ucase(server), PS1, 1) Then
' Druckerzuordnung zu neuem Server herstellen  
WshNetwork.AddWindowsPrinterConnection "\\"&nPS1&"\"&drucker(2)  
' Druckerzuordnung löschen  
WshNetwork.RemovePrinterConnection "\\"&PS1&"\"&drucker(2)  
end if
Select Case err.number
Case 0
message = " Info: Druckervorgang " & "\\"&server&"\"&drucker(2) & " erfolgreich durchgeführt." & vbCRLF  
End Select
next
Next

' Abermals die neuen Druckereinstellungen auslesen  
Set oDevices = WshNetwork.EnumPrinterConnections
' Ausgabetext definieren  
Text = " " & Text & vbCRLF &vbCRLF & " Die neuen Druckerzuordnungen lauten jetzt:" & vbCRLF &vbCRLF  

' Ermitteln der alten (aktuell) definierten Druckerobjekte  
For i = 0 To oDevices.Count-1 Step 2
Text = " " & Text & oDevices(i) & " " & oDevices(i+1) & vbCRLF  
Next

' Default Printer setzen  
WshNetwork.SetDefaultPrinter def_printer

text = text & "New Default Printer = " & def_printer & vbCRLF  

MsgBox Text, vbOkonly + vbInformation

fi2.WriteLine Text & "----------------------------------------------------" & vbCRLF & error_meldung  
fi2.WriteLine " " & vbCRLF & vbCRLF & "--------------------------- E N D E --------------------------------" & vbCRLF  

'In Registry schreiben, um bei jedem Start zu prüfen ob schon gelaufen  
WshShell.RegWrite "HKCU\Software\shortcut\chgPrinter\chgPrinterVersion", "0"  

Set fi2 = Nothing
else
' msgBox "Fehlermeldung = : " & err.Number  
' MsgBox "Ist schon gelaufen"  
WScript.Quit
end if
WScript.Quit