2
Druckerzuweisung und löschen von bestehende Drucker
Die Benutzer melden sich an einem XP Prof an. Skript funktioniert teilweise sprich Drucker hinzufügen geht aber bestehende löschen geht nicht.
Hallo,
habe folgendes Problem: Die Benutzer melden sich an einem XP Prof an. Das Anmeldeskript liegt auf einem W2K Server.
Das Skript funktioniert teilweise sprich Drucker hinzufügen geht aber bestehende löschen geht nicht. (Wenn ich Admin bin aber schon)
Das Skript sieht wie folgt aus:
'----------------------------------------------------------
'Ausblenden eventueller Fehlermeldungen
'----------------------------------------------------------
on error resume next
'----------------------------------------------------------
'Instanzieren des Windows Scripting Hosts
'----------------------------------------------------------
Set Network = CreateObject("Wscript.Network")
'----------------------------------------------------------
'Löschen eventuell bestehender Printerconnections
'----------------------------------------------------------
For i = 0 To network.EnumPrinterConnections.Count - 1
On Error Resume Next
network.RemovePrinterConnection network.EnumPrinterConnections.Item(i)
Next
'----------------------------------------------------------
'Auslesen der ersten 4 Buchstaben des Computernamens
'----------------------------------------------------------
sPCName = UCase(Left(network.ComputerName, 4))
'----------------------------------------------------------
'Zuweisen der jeweiligen Drucker sowie des Defaultdruckers
'----------------------------------------------------------
Select Case sPCName
Case "PC01"
PrinterShare = "\\ITMain\Raum1Color"
network.AddWindowsPrinterConnection PrinterShare
PrinterShare = "\\ITMain\Raum_1_Laser"
network.AddWindowsPrinterConnection PrinterShare
network.SetDefaultPrinter PrinterShare
Case "PC02"
PrinterShare = "\\ITMain\Raum1Color"
network.AddWindowsPrinterConnection PrinterShare
PrinterShare = "\\ITMain\Raum_2"
network.AddWindowsPrinterConnection PrinterShare
network.SetDefaultPrinter PrinterShare
Case "PC03"
PrinterShare = "\\ITMain\Raum1Color"
network.AddWindowsPrinterConnection PrinterShare
PrinterShare = "\\ITMain\Raum_3"
network.AddWindowsPrinterConnection PrinterShare
network.SetDefaultPrinter PrinterShare
End Select
Wer kann helfen?
Skol
habe folgendes Problem: Die Benutzer melden sich an einem XP Prof an. Das Anmeldeskript liegt auf einem W2K Server.
Das Skript funktioniert teilweise sprich Drucker hinzufügen geht aber bestehende löschen geht nicht. (Wenn ich Admin bin aber schon)
Das Skript sieht wie folgt aus:
'----------------------------------------------------------
'Ausblenden eventueller Fehlermeldungen
'----------------------------------------------------------
on error resume next
'----------------------------------------------------------
'Instanzieren des Windows Scripting Hosts
'----------------------------------------------------------
Set Network = CreateObject("Wscript.Network")
'----------------------------------------------------------
'Löschen eventuell bestehender Printerconnections
'----------------------------------------------------------
For i = 0 To network.EnumPrinterConnections.Count - 1
On Error Resume Next
network.RemovePrinterConnection network.EnumPrinterConnections.Item(i)
Next
'----------------------------------------------------------
'Auslesen der ersten 4 Buchstaben des Computernamens
'----------------------------------------------------------
sPCName = UCase(Left(network.ComputerName, 4))
'----------------------------------------------------------
'Zuweisen der jeweiligen Drucker sowie des Defaultdruckers
'----------------------------------------------------------
Select Case sPCName
Case "PC01"
PrinterShare = "\\ITMain\Raum1Color"
network.AddWindowsPrinterConnection PrinterShare
PrinterShare = "\\ITMain\Raum_1_Laser"
network.AddWindowsPrinterConnection PrinterShare
network.SetDefaultPrinter PrinterShare
Case "PC02"
PrinterShare = "\\ITMain\Raum1Color"
network.AddWindowsPrinterConnection PrinterShare
PrinterShare = "\\ITMain\Raum_2"
network.AddWindowsPrinterConnection PrinterShare
network.SetDefaultPrinter PrinterShare
Case "PC03"
PrinterShare = "\\ITMain\Raum1Color"
network.AddWindowsPrinterConnection PrinterShare
PrinterShare = "\\ITMain\Raum_3"
network.AddWindowsPrinterConnection PrinterShare
network.SetDefaultPrinter PrinterShare
End Select
Wer kann helfen?
Skol
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 18571
Url: https://administrator.de/contentid/18571
Printed on: April 23, 2024 at 17:04 o'clock
2 Comments
Latest comment
Moin, skol,
liest sich so, als hätten die Normal-Anwender das eine oder andere Recht nicht.
Überprüf doch mal bei so einem User
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
"NoAddPrinter" REG_DWORD 0
; 1 = keine Drucker installierbar. 0 = Standard
"NoDeletePrinter" REG_DWORD 0
; 1 = Drucker können nicht mehr entfernt werden.
HTH
Biber
liest sich so, als hätten die Normal-Anwender das eine oder andere Recht nicht.
Überprüf doch mal bei so einem User
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
"NoAddPrinter" REG_DWORD 0
; 1 = keine Drucker installierbar. 0 = Standard
"NoDeletePrinter" REG_DWORD 0
; 1 = Drucker können nicht mehr entfernt werden.
HTH
Biber
Moin, skol,
liest sich so, als hätten die
Normal-Anwender das eine oder andere Recht
nicht.
Überprüf doch mal bei so einem
User
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
"NoAddPrinter" REG_DWORD 0
; 1 = keine Drucker installierbar. 0 =
Standard
"NoDeletePrinter"
REG_DWORD 0
; 1 = Drucker können nicht mehr
entfernt werden.
HTH
Biber
Hallo Biber,liest sich so, als hätten die
Normal-Anwender das eine oder andere Recht
nicht.
Überprüf doch mal bei so einem
User
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer
"NoAddPrinter" REG_DWORD 0
; 1 = keine Drucker installierbar. 0 =
Standard
"NoDeletePrinter"
REG_DWORD 0
; 1 = Drucker können nicht mehr
entfernt werden.
HTH
Biber
herzlichen dank für Ifo.
NoAddPrinter ist gar nicht vorhanden...
Ich habe jetzt ein test wie folgt durchgeführt, vielleicht hift es weiter:
Benutzer löscht Drucker2 (Drucker1= Standard)
Benutzer fügt Drucker3 hinzu.
Benutzer meldet sich ab und wieder an.
Benutzer hat jetzt Drucker1 wie vorher, Drucker3 ist jetzt gelöscht! Also irgendwie funktioniert das Löschen doch aber halt nicht wenn der Drucker mit dem Skript angelegt wurde...
Also ich weiss nichts mehr...
Skol
