I am using this script:
strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colInstalledPrinters = objWMIService.ExecQuery _
("SELECT * FROM Win32_PrinterConfiguration")

For Each objPrinter in colInstalledPrinters
objPrinter.color = 1
Next

But I do not see a change. Can you help me

Color property is read-only property and you can't assign a value to it. it
indicates whether your printer supports color printing.

refer to the page for details of Win32_PrinterConfiguration class:
http://msdn.microsoft.com/en-us/libr...64(VS.85).aspx

I too don't know how to change the color settings, however, just wanted to
tell you about color property.

uc

"freddy" <freddy@xxxxxx> wrote in message
news:C95F99BE-16AB-4819-AC68-BD9398D9DA9D@xxxxxx

> I am using this script:
> strComputer = "."
>
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
>
> Set colInstalledPrinters = objWMIService.ExecQuery _
> ("SELECT * FROM Win32_PrinterConfiguration")
>
> For Each objPrinter in colInstalledPrinters
> objPrinter.color = 1
> Next
>
> But I do not see a change. Can you help me
>