Re: Printer von Cluster auslesen



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


.