Hi,
ich hab folgendes Problem: ich soll ein Programm schreiben, dass mir den Status eines Druckers anzeigt, der auf einem entfernten Rechner angeschlossen ist.
Habe sowohl in Google als auch hier im Forum geschaut, finde allerdings nichts brauchbares.

Habe folgenden Code gefunden (weiß nicht mehr wo, vl. sogar hier im Forum, hab es mir nur abgespeichert sorry) und ein bisschen verändert, sieht folgendermaßen aus:

Code vb:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Option Explicit Function Drucker(CompName)     Dim DruckerInfo, WMI, allinstallPrinters, objPrinter, wql, i, test1     Set objPrinter = Printer     Set WMI = GetObject("winmgmts://" & CompName & "\root\cimv2")     wql = "select * from win32_printer"     Set allinstallPrinters = WMI.execquery(wql)                 i = 0     For Each objPrinter In allinstallPrinters         i = i + 1         DruckerInfo = DruckerInfo & "Drucker " & i & ": " & objPrinter.Name & " " & objPrinter.Status & " "     Next         MsgBox DruckerInfo End Function   Private Sub Form_Load() Call Drucker("PCNAME") End Sub

Das ganze ist im Prinzip recht schön ich bekomme damit schon mal die installierten Drucker eines PCs der im Netzwerk hängt. Allerdings liefert er mir bei jedem Drucker den Status "Unknown" zurück.

Weiß einer von euch Rat?

Lg & danke im Voraus!
raz0r

Edit: Im übrigen wird für oben genannten Code der Verweis zu "Active DS Type Library" benötigt.