jodecpmp
Goto Top

Alle Drucker (auch lokal installierte) auflisten

Hallo zusammen,

ich kämpfe seit längerem in unserem Netzwerk mit alten Druckerleichen, die leider auch das System zu verlangsamen scheinen. Betroffene Rechner mit alten lokal installierten Druckern sind langsamer druckbefehl dauerd ewig etc.

Gibt es eine möglichkeit z. B. mittels Loginscript alle Drucker also vorallem die lokal installierten auf dem jeweiligen PC´s, abzufragen und am besten in eine Logdatei zwecks späterer Auswertung zu schreiben?

Oder eventuell einen Befehl um die Drucker abzufragen?

System:
5 Terminalserver (Win Server 2003)
150 Clienten (unterschiedliche OS von 98 bis XP, kein Vista!)

Danke und lieben Gruß

Jodec

Content-Key: 90394

Url: https://administrator.de/contentid/90394

Printed on: April 24, 2024 at 02:04 o'clock

Member: Logan000
Logan000 Jun 23, 2008 at 09:33:37 (UTC)
Goto Top
Moin

Mit diesem Skript kannst du remote die Drucker abfragen:
strComputer = "PCName"		' Pemote PC  
'strComputer = "."		' Lokaler PC  
szSQL = "Select * From Win32_Printer"        
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
Set colInstalledPrinters =  objWMIService.ExecQuery(szSQL)
For Each objPrinter in colInstalledPrinters
		szMSG = szMSG & objPrinter.Caption & Chr(13) & chr(10)
Next
msgbox szmsg

Darüber hinaus gibt es etliche Inventarisierungstools die das auch können.
Sogar einige gute als Freeware.

Gruß L.
Member: JodecPmP
JodecPmP Jun 23, 2008 at 09:43:45 (UTC)
Goto Top
super Danke werde ich sofort Testen.

DIe Freeware tools muss ich dann mit dem Stichwort Inventar googlen.

Danke
Member: JodecPmP
JodecPmP Jun 23, 2008 at 10:01:24 (UTC)
Goto Top
mit dem Script komm ich nicht ganz zurecht wie muss ich das einbinden? bzw anpassen
Member: Logan000
Logan000 Jun 23, 2008 at 10:03:12 (UTC)
Goto Top
DIe Freeware tools muss ich dann mit dem Stichwort Inventar googlen.
Zum Beispiel, oder Forumssuche:


Mitglied: 60730
60730 Jun 23, 2008, updated at Oct 18, 2012 at 16:35:54 (UTC)
Goto Top
Hi,

du willst das im Login verarbeiten - nichts leichter als das face-wink

Also ist die Zeile mit Pemote / Remote uninteressant - du mußt die zweite Zeile nehmen.

strComputer = "."		' Lokaler PC  
szSQL = "Select * From Win32_Printer"        
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
Set colInstalledPrinters =  objWMIService.ExecQuery(szSQL)
For Each objPrinter in colInstalledPrinters
		szMSG = szMSG & objPrinter.Caption & Chr(13) & chr(10)
Next
WScript.Echo szmsg

"So" ist das vbs aber uninteressant für dich - du willst ja schließlich irgendwo sammeln und nicht lokal als Popup ausgeben.

Nun gibt es folgende Lösungen.

Du legst irgendwo einen freigegebenen Ordner - auf den die User Schreibrechte haben an und
fügst eine ähnliche Zeile ins loginscript an:

Edit:
der notwenige doppelte / wird im Forensystem als Befehl für Inverse Schrift geparst - daher in codeblöcke geändert.
 @cscript "\\server\freigabe\drucker.vbs" //NoLogo > \\server\freigabe\%computername%.txt  
Damit erstellt jeder Benutzer bei jeder Anmeldung diese txt datei.
Eleganter kannst du diesen "langwierigen Prozeß auch nur einmal" laufen lassen.

 if not exist  \\server\freigabe\%computername%.txt cscript "\\server\freigabe\drucker.vbs" //NoLogo > \\server\freigabe\%computername%.txt  

Oder du baust diese vbs als Custom in das
Member: pbpbpb
pbpbpb Aug 01, 2011 at 19:27:21 (UTC)
Goto Top
hallo jodec
versuch es mal mit "Bonjour" wurde für mac gemacht, gibts aber auch in win version zu download. Bonjour sieht alle drucker, egal ob in einer domäne oder nicht etc.
gruss pb