VBS - Druckereigenschaften Druck Schwarz Weis - Farbe

Hallo Zusammen,

ich habe eine simple Frage, ich möchte meine Printserver durch suchen ob die Installierten Drucker die Farbauswahl auf Schwarz/Weiß oder Farbe stehen haben.
Wenn möglich - dann auch um diese zu ändern.

Im Msdn steht unter : http://msdn.microsoft.com/en-us/library/aa394364%28VS.85%29.aspx der Punkt "Color" readonly.

Wenn ich per Skript:
objPrinter.Color aufrufe "jibet dat net" - Das Objekt unterstützt diese Eigenschaft nicht.

Dann fand ich im WWW dieses hier http://www.osronline.com/ddkx/graphics/webfnc_0r6v.htm

Da muss ich aber sagen, da spinnt es bei "Session" und "Server" rum im Confused!


Das skript bisher ist noch nur zum Testen aber hier:


Dim objPrinter, HasColor
Dim Name, fso
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPrinter = objWMIService.ExecQuery("Select * from Win32_Printer",,48)

For Each objPrinter in colPrinter

Name = objPrinter.Name
Wscript.Echo Name
Wscript.Echo objPrinter.Color

Set objPrinter = Server.CreateObject ("OlePrn.AspHelp")
objPrinter.Open strPrinter
HasColor = objPrinter.Color
On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")
Set tFile = fso.OpenTextFile("Fehler.txt",8,true)
tFile.WriteLine Namen & " Farbe: " & HasColor
tFile.close


Next

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("ComputerName") 'hier bitte deinen Computernamen eingeben!  
For Each strComputer In arrComputers

   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")  
   Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PrinterConfiguration", "WQL", _  
                                          wbemFlagReturnImmediately + wbemFlagForwardOnly)

   For Each objItem In colItems
      WScript.Echo "Caption: " & objItem.Caption  
      WScript.Echo "Color: " & objItem.Color  
   Next
Next