求助！如何用VBS脚本实现更改打印机默认纸张格式！！！

[leonfox]

我刚刚学习脚本语言，现在遇见以下问题，请各位高手救急！

我想通过VBS脚本更改打印机的默认纸张格式：现初步编码如下：
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_PrinterConfiguration where Name = 'Epson LQ-1600K'")
For Each objPrinter in colInstalledPrinters
Wscript.Echo "Name: " & objPrinter.Name
Wscript.Echo "Paper Length: " & objPrinter.PaperLength
Wscript.Echo "Paper Width: " & objPrinter.PaperWidth

objPrinter.Name = "Epson LQ-1600K1"
objPrinter.PaperLength = 2970
objPrinter.PaperWidth = 2100

Wscript.Echo "Name: " & objPrinter.Name
Wscript.Echo "Paper Length: " & objPrinter.PaperLength
Wscript.Echo "Paper Width: " & objPrinter.PaperWidth
Next

但这样写设置不能保存！
想使用 objPrinter.Put_ 命令保存信息却提示：SWbemObjectEx: 提供程序无法执行该操作
请各位帮帮忙！急！
[e-mail]

[leonfox]

感谢您的回复，我研究一下，谢谢。

[leonfox]

很着急，请各位高手多多帮忙！

没把握不要紧，大家发上来一起讨论讨论嘛

[feillex]

wmi的类Win32_PrinterConfiguration 是只读，不支持更新的方法，你强制写入当然要出错。
要相对打印机进行操作用Win32_Printer类的renameprinter等方法。
具体用法查msdn
Win32_Printer
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/wmisdk/wmi/win32_printer.asp