Hi,
Ich will einen Drucker per Script umbenennen, das funktioniert auch, wenn der Name bekannt ist.
Ich weiss aber nur den Anfang des Namens. Gibt es eine Möglichkeit das so ähnlich zu lösen?
Ich will einen Drucker per Script umbenennen, das funktioniert auch, wenn der Name bekannt ist.
Ich weiss aber nur den Anfang des Namens. Gibt es eine Möglichkeit das so ähnlich zu lösen?
Code:
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer Where DeviceID = 'HP_LaserJet_1234_01*'")
For Each objPrinter in colPrinters
objPrinter.RenamePrinter("ArtDepartmentPrinter")
Next
Set colPrinters = objWMIService.ExecQuery _
("Select * From Win32_Printer Where DeviceID = 'ArtDepartmentPrinter' ")
For Each objPrinter in colPrinters
objPrinter.ShareName = "ArtDepartmentPrinter"
objPrinter.Put_
Next