Netzwerkdrucker finden und feststellen ob sie angeschaltet sind

Hallo

mein Titel ist vielleicht nicht so aussagekräftig, aber mir ist nichts besseres eingefallen.

Ich habe im Netzwerk (Windows XP Rechner) mehrere Drucker die an einem PC angeschlossen sind und dort per Drucker Freigabe im Netz zu erreichen sind.
(die Drucker sind keine eigenständigen Netzwerkdrucker).
Nun passiert es das jemand einen Drucker ausschaltet und dann beschweren sich die Leute das sie nicht drucken können.

Meine ist nun ob man per script, wmi oder batch feststellen kann ob die entfernten Drucker noch laufen? Dann könnte man ein kleines Symbol im Systemtray einblenden lassen wie eine Ampel grün Drucker laufen, gelb, Rechner läuft aber Drucker sind aus, Rot Rechner selbst ist nicht erreichbar.

Ich denke die Drucker von der entfernung einzuschalten wird bei den wenigsten Druckern funktionieren, aber dann wäre schon mal eine Info da.

Gib es für sowas einen Ansatzpunkt?
Leider kenne ich mich mit WMI oder solchen Sachen gar nicht aus.

Es wäre super wenn mir da jemand helfen könnte.

Vielen Dank schon mal im voraus

Seaquest30

set strComputer="."  

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer")  

For Each objPrinter in colInstalledPrinters
    WScript.Echo objPrinter.ServerName & ": " & objPrinter.WorkOffline  
Next

	Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")  

	For Each objItem In colItems
        wscript.echo Message & objItem.Caption & vbcrlf
    Next

dim printer_name(20)
Set objNetwork = WScript.CreateObject("WScript.Network")  
strComputer = objNetwork.ComputerName

       wscript.echo strcomputer



Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer")  

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Printer")  

	For Each objItem In colItems
	printer_name(i) = objitem.caption & vbcrlf
	i = i +1
   
    Next

       I=0

For Each objPrinter in colInstalledPrinters

       WScript.Echo objPrinter.ServerName & printer_name(i) &": " & objPrinter.WorkOffline  
       i=i+1
Next

Set objNetwork = WScript.CreateObject("WScript.Network")  
strComputer = objNetwork.ComputerName

       wscript.echo strcomputer

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
Set colInstalledPrinters = objWMIService.ExecQuery("SELECT * FROM Win32_PrintJob", "WQL", _  
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)
i=0
for each colItem in colInstalledPrinters
i=i+1
next
wscript.echo "Anzahl aller Printjobs auf dem Rechner " & strComputer & ": " & i