Status von Remotedrucker

[XanRaZoR]

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:

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.