Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Druckerpfad via vbscript auslesen

Frage Entwicklung VB for Applications

Mitglied: PF4

PF4 (Level 1) - Jetzt verbinden

21.07.2006, aktualisiert 24.07.2006, 8143 Aufrufe, 4 Kommentare

Hallo zusammen,

ich suche eige möglichkeit via vbscript den Druckerpfad im Netzwerk auszulesen \\server\druckersharename. Hab es schon mit WMI und mit WScript.Network Objekt probiert aber diese geben mit entweder nur den druckersharename(brauche es MIT dem Server) oder eben \\server\Druckername aus.
Kennt jemand eine möglichkeit dieses richtig auszulesen?

Kleines Beispiel:
Ich brauche:
\\server06\kyor54
Ich bekomme immer
\\server06\Kyocera 5400 an XYZ

beides der selbe Drucker aber eben kann ich mit dem 2 in meinem Script nichts anfangen

mfg
PF4
Mitglied: AndreasHoster
24.07.2006 um 09:34 Uhr
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer",,48)
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Wscript.Echo "ServerName: " & objItem.ServerName
Wscript.Echo "Network: " & objItem.Network
Wscript.Echo "ShareName: " & objItem.ShareName
Next

Name gibt den kompletten Namen an \\server\druckersharename
ServerName den Namen des Servers, ShareName den Namen des Druckershares und Network ob es ein Netzdrucker ist.
Vom Client aus, hast Du keine Chance rauszubekommen, wie der Druckername auf dem Server ist, Du siehst nur den Sharenamen (aber wenn die unterschiedlich sind, läuft organisatorisch was falsch bei Euch).
Ich bekomme damit jedenfalls kein "Drucker an Server" sondern das normale \\server\drucker Ergebnis.
Bitte warten ..
Mitglied: Biber
24.07.2006 um 10:50 Uhr
Moin PF4 und AndreasHoster,

das stimmt so nicht ganz IMHO.

Mit einer kleinen Änderung (Auswerten oPrinter.DriverName) geht es:
01.
'snipp Quickprinterlist.vbs 
02.
On Error Resume Next 
03.
strComputer = "." 
04.
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 
05.
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer",,48) 
06.
For Each objItem in colItems 
07.
   Wscript.Echo vbCrLf & "Name: " & objItem.Name 
08.
   Wscript.Echo "DriverName: " & objItem.Drivername 
09.
   If objItem.Network = TRUE then 
10.
      Wscript.Echo "ServerName\Sharename: " & objItem.ServerName &"\" &objItem.ShareName  
11.
   End if     
12.
Next 
13.
'-------snapp Quickprinterlist.vbs
Gruß
Biber
Bitte warten ..
Mitglied: AndreasHoster
24.07.2006 um 11:52 Uhr
Sorry, aber DriverName gibt nicht den Namen des Druckers auf dem Server an, sondern den Namen des Treibers, der von diesem Drucker verwendet wird (In der graphischen Oberfläche: Eigenschaften des Druckers, Reiter Erweitert, Feld Treiber).
Bitte warten ..
Mitglied: Biber
24.07.2006 um 12:00 Uhr
@AndreasHoster

...na, dann hab ich wohl was verkehrt gemacht...
Bei mir wird auf dem Bildschirm ausgegeben:

...
Name: PDF-ConverterPro
DriverName: PDF-ConverterPro

Name: \\SERVERXY00021\PRINTER000033
DriverName: HP LaserJet 5N
ServerName\Sharename: \\SERVERXY00021\PRINTER000033

Name: \\SERVERXY00023\PRINTER000036
DriverName: HP Color LaserJet 4550 PCL 6
ServerName\Sharename: \\SERVERXY00023\PRINTER000036
...

Und für mich klingt das schon wie der gesuchte "Kyocera 5400" an ...Lauchkartoffeln oder was immer.

War ja nur eine Idee.
Gruß
Biber
[Edit]
Stimmt, @AndreasHoster... den Namen des Druckers auf dem Server kann ich nicht bekommen...
... wie sollte das auch gehen?
Hab die Frage falsch verstanden... sorry, die sommerliche Wärme...
[/Edit]
Bitte warten ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(7)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
VB for Applications
gelöst Bestimmte Spalten aus CSV-Datei auslesen (VBS) (9)

Frage von Gurkenhobel zum Thema VB for Applications ...

Batch & Shell
Eventlog Druckjobs mit VBS auslesen (2)

Frage von joni2000de zum Thema Batch & Shell ...

Batch & Shell
gelöst Appx aus Image auslesen und entfernen (9)

Frage von Markus2016 zum Thema Batch & Shell ...

Entwicklung
gelöst Get ip from external txt file and use in vbscript (5)

Frage von thankusomuch zum Thema Entwicklung ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Netzwerkmanagement
gelöst Anregungen, kleiner Betrieb, IT-Umgebung (17)

Frage von Unwichtig zum Thema Netzwerkmanagement ...