Re: Printer von Cluster auslesen



Und wie sieht der Aufruf im Hauptprogramm aus?

Schöne Grüsse
Nils

"Andrej Golubew" <AndrejGolubew@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb im
Newsbeitrag news:787C622D-75E9-4F70-B0CB-68F00B9E5F43@xxxxxxxxxxxxxxxx
Es wird gar kein Drucker angezeigt. Und kein Fehler Meldung.

"Nils Loeber" wrote:

Wie rufst Du denn das Sub auf, d.h. wie sieht das Hauptprogramm aus? Und
was
passiert genau, wenn Du das Programm laufen lässt? Kommt eine
Fehlermeldung
oder kommt eine falsche Ausgabe?

Schöne Grüsse
Nils

"Andrej Golubew" <AndrejGolubew@xxxxxxxxxxxxxxxxxxxxxxxxx> schrieb im
Newsbeitrag news:9034401C-8C9E-404C-BF71-570FC5196055@xxxxxxxxxxxxxxxx
Guten Tag,

ich habe eine Funktion geschrieben, die vorhandene Drucker ausliest.
Auf
Standalone Server geht es nur auf dem Cluster leider nicht.

Hat jemand Idee, wie man vom Cluster(Knote) alle Drucker auflisten
kann?

Danke.

Sub PrinterServer(strComputer)
Dim objWMIService
Dim objPrinter
Dim colInstalledPrinters
Dim arrPrinterLocation
Dim strPrinterLocation

Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from
Win32_Printer")
For Each objPrinter In colInstalledPrinters
strPrinterLocation=objPrinter.Location
If strPrinterLocation <> "" Then
arrPrinterLocation=Split(strPrinterLocation,",",-1,1)
If arrPrinterLocation(0)=arrOfficeLocationUser(0) And _
arrPrinterLocation(2)=arrOfficeLocationUser(2) Then
dicPrinterServer.Add "\\" & strPrintServer & "\" & objPrinter.Name,
objPrinter.Name
End If
End If
Next


End Sub





.