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


.



Relevant Pages

  • Re: VB.Net 2003: Exception, keine Ahnung warum ... völlig irre
    ... Private Sub GetBins(ByVal Drucker As String) ... Dim bins As Integer ... Dim BinNumsAs Int16 ... Private Sub cb_Drucker_SelectedIndexChanged(ByVal sender As ...
    (microsoft.public.de.german.entwickler.dotnet.vb)
  • Re: Printer von Cluster auslesen
    ... Und wie sieht der Aufruf im Hauptprogramm aus? ... die vorhandene Drucker ausliest. ... Dim objWMIService ... Set colInstalledPrinters = objWMIService.ExecQuery ("Select * from ...
    (microsoft.public.de.german.scripting.wsh)
  • Aufruf des Printer-Dialogs =?ISO-8859-15?Q?ver=E4ndert_den_i?= =?ISO-8859-15?Q?n
    ... Dann soll der Anwender einen Drucker auswählen können und auf diesen Drucker soll der Ausdruck geschehen. ... Private Sub Command2_Click ... dass hier der Standarddrucker von Windows auf den vom Anwender ausgewählten Drucker verändert wird. ... Dim sDefaultPrinter As String ...
    (microsoft.public.de.vb)
  • Re: Aufruf des Printer-Dialogs =?ISO-8859-15?Q?ver=E4ndert_den?= =?ISO-8859-15?Q
    ... Dann soll der Anwender einen Drucker auswählen können und auf diesen Drucker soll der Ausdruck geschehen. ... Private Sub Command2_Click ... dass hier der Standarddrucker von Windows auf den vom Anwender ausgewählten Drucker verändert wird. ... Dim sDefaultPrinter As String ...
    (microsoft.public.de.vb)
  • Project Error
    ... Private Declare Sub Sleep Lib "Kernel32" ... Dim strDataSrc As String ...
    (microsoft.public.vb.bugs)