Hallo zusammen,
wir haben 4 2008er Terminal Server im Einsatz und als Druckerserver benutzen wir ebenfalls einen 2008er Server. Unsere Drucker werden per Kix-Script den jeweiligen Usern bzw. Gruppen zugeordnet. Das Kix Script löscht jedes mal alle bestehenden Drucker und
mappt sie neu durch. Hier ein kleiner Auszug aus dem Script:
;-------------------------------------------------------------------------------------------------------------------
; Löschen aller Benutzerspezifischen Drucker vor erneutem Anschließen
;-------------------------------------------------------------------------------------------------------------------
DelTree("HKEY_CURRENT_USER\Printers\connections")
;-------------------------------------------------------------------------------------------------------------------
; Drucker ** anschließen
;-------------------------------------------------------------------------------------------------------------------
IF INGROUP("Standard_**")
$file="@LDRIVE\Drucker\sharedprnf_**.txt" GOSUB "Printermap" ENDIF
IF INGROUP("**_Bon_Drucker")
$file="@LDRIVE\Drucker\sharedprnf_**_counter.txt" GOSUB "Printermap" ENDIF
IF INGROUP("**_InfoCenter_Drucker")
$file="@LDRIVE\Drucker\sharedprnf_**_infocenter.txt" GOSUB "Printermap" ENDIF
IF INGROUP("**_TuZ_Drucker")
$file="@LDRIVE\Drucker\sharedprnf_**_tuz.txt" GOSUB "Printermap" ENDIF
IF INGROUP("**_Counter_Drucker")
$file="@LDRIVE\Drucker\sharedprnf_**_counter.txt" GOSUB "Printermap" ENDIF
IF INGROUP("**_BU_Drucker")
$file="@LDRIVE\Drucker\sharedprnf_**_bu.txt" GOSUB "Printermap" ENDIF
Die *txt Files liegen auf dem Netlogon!
:Printermap
? "Drucker werden gesucht; Kann bis zu 5 Minuten dauern"
? "Steuerung: $file"
if open(3, $file) = 0
$printersharename = readline(3)
? "Mapping.fuer..$printersharename"
sleep 3
$Lauf = 1
$printersharename = readline(3)
while @error = 0
$returncode = existkey("HKEY_CURRENT_USER\Printers\Connections\,,$keyvalue,$printersharename")
if $returncode = 0
? "Mapping..$printersharename" ;Printer exists already but user is notified nevertheless
else
if addprinterconnection ($printersharename) = 0
? "Mapping..$printersharename"
else
? "MappingFehler..$printersharename"+"["+@error+"]"
sleep 3
endif
endif
IF $Lauf = 1
if SETDEFAULTPRINTER ($printersharename) = 0
? "Standarddrucker ist:" + $printersharename
endif
$Lauf = 0
endif
$printersharename = readline(3)
loop
close (3)
else
messagebox ("Konnte Drucktabelle nicht finden: ["+@error+"]", "Error",64)
endif
Return
:Final
Wie gesagt die Druckwarteschlange auf den Servern "hängt" sich nur auf und beendet sich nicht.
Im Eventlog ist leider kein Eintrag zu finden!
Abhilfe schafft nur, wenn man den Dienst Druckwarteschlange 7 oder 8 mal neu startet.
Hat jemand einen Tipp oder eine Ahnung woher das kommen könnte?
Vielen fank im voraus! Grüße Marco Rau
