2
Im Logonscript MSTerminalserver2003 KIX alle Drucker löschen
Hallo,
ich arbeite mit MSTS2003 und rufe beim Userlogon mein kix für meine Net-Shares und Net-Printers auf. Alle User haben veränderbare Profile, deshalb sollten in diesem Kix zuerst alle Net-Printer gelöscht werden.
Kennt einen KIX-Befehl der alle Drucker löscht?
ich arbeite mit MSTS2003 und rufe beim Userlogon mein kix für meine Net-Shares und Net-Printers auf. Alle User haben veränderbare Profile, deshalb sollten in diesem Kix zuerst alle Net-Printer gelöscht werden.
Kennt einen KIX-Befehl der alle Drucker löscht?
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: 21265
Url: https://administrator.de/contentid/21265
Printed on: April 23, 2024 at 16:04 o'clock
2 Comments
Latest comment
Hi,
einen direkten Befehl gibt es nicht, aber man kann sich was selbst stricken.
Versuch mal folgendes:
$Index = 0
$TempPrinter = ""
;Erstellt eine Liste mit allen installierten Druckern
Dim $PrinterArray[40]
:Loop
If @16034=0
$TempPrinter = $TempPrinter + EnumValue("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts",$Index) + ","
$Index = $Index + 1
GoTo "Loop"
EndIf
$TempPrinter = Trim($TempPrinter)
$Length = Len("$TempPrinter") - 2
$TempPrinter = Left("$TempPrinter","$Length")
$PrinterArray = Split("$TempPrinter",",")
;trennt alle Netzwerkdrucker
For $Count = 0 to $Index-2
? $PrinterArray[$Count]
;$rc=DelPrinterConnection ($PrinterArray[$Count])
Next
Gruss,
Thomas
einen direkten Befehl gibt es nicht, aber man kann sich was selbst stricken.
Versuch mal folgendes:
$Index = 0
$TempPrinter = ""
;Erstellt eine Liste mit allen installierten Druckern
Dim $PrinterArray[40]
:Loop
If @16034=0
$TempPrinter = $TempPrinter + EnumValue("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts",$Index) + ","
$Index = $Index + 1
GoTo "Loop"
EndIf
$TempPrinter = Trim($TempPrinter)
$Length = Len("$TempPrinter") - 2
$TempPrinter = Left("$TempPrinter","$Length")
$PrinterArray = Split("$TempPrinter",",")
;trennt alle Netzwerkdrucker
For $Count = 0 to $Index-2
? $PrinterArray[$Count]
;$rc=DelPrinterConnection ($PrinterArray[$Count])
Next
Gruss,
Thomas
Hi,
im Prinzip das gleiche wie das Skript von Superboh nur eine Variante davon.
Sei ServerA der Druckserver.
Break off
SetConsole("Hide")
FlushKB
$ps01="ServerA"
$index = 0
Do
$keyname = EnumKey ("HKEY_CURRENT_USER\Printers\Connections",$index)
Select
Case InStr ("$keyname","$ps01") <> 0
DelKey ("HKEY_CURRENT_USER\Printers\Connections\$keyname")
Case 1
$index = $index + 1
EndSelect
Until @16034 <> 0
exit
Gruß Miguel
im Prinzip das gleiche wie das Skript von Superboh nur eine Variante davon.
Sei ServerA der Druckserver.
Break off
SetConsole("Hide")
FlushKB
$ps01="ServerA"
$index = 0
Do
$keyname = EnumKey ("HKEY_CURRENT_USER\Printers\Connections",$index)
Select
Case InStr ("$keyname","$ps01") <> 0
DelKey ("HKEY_CURRENT_USER\Printers\Connections\$keyname")
Case 1
$index = $index + 1
EndSelect
Until @16034 <> 0
exit
Gruß Miguel
