skript für druckerinstallation

Seite 1 von 1 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/skript_fuer_druckerinstallation_181198/page_1 - zur Vollversion wechseln!

HitTheCow schrieb am 12.06.2007 um 11:34

ich hoff ich bin im richtigen subforum.

und zwar: ich bräuchte ein skript, das mir die aktuellen installierten (vom druckerserver zur verfügung gestellten) drucker ausliest - sie speichert - löscht und dann neu vom druckerserver installiert.

das ganze bräuchte ich um neue druckereinstellungen global per einmaligem loginskript zu aktualisieren/ändern.

ich hoff das war verständlich - oder gibts eine einfachere lösung?

ich hab bisher nur das "verbinden" gefunden:

Zitat
Drucker verbinden:

Dim WshNetwork
Set WshNetwork = WScript.CreateObject(“WScript.Network”)
On Error Resume Next
WshNetwork.AddWindowsPrinterConnection „\\server\druckerfreigabe”

//Bei W9x :
WshNetworkAddPrinterConnection „LPT1“, „\\ROM\HP500“

//Als Standarddrucker:
WshNetwork.SetDefaultPrinter “druckerfreigabe“

aber wie lese ich die derzeit installierten drucker aus? sind bei den clients unterschiedlich...

lg, htc

edit1:
drucker auslesen geht damit:
reg query "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices" >> C:\drucker.txt

Meltdown schrieb am 12.06.2007 um 22:23

Würde auch via WMI funktionieren
Set objWMIService = GetObject("winmgmts://./root/cimv2" )

set colitems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer", , 48)
For Each objItem In colItems
msgbox(objItem.Name)
Next