'查找总体来说是很容易的：
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_Printer WHERE Default = True",,48)
For Each objItem in colItems
Wscript.Echo "Name: " & objItem.Name
Next

yongfa, 有没有办法找到default printer的名字或者IP？

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_PrinterConfiguration")
For Each objPrinter in colInstalledPrinters
Wscript.Echo objprinter.Duplex
objprinter.Duplex = "-1"
Next
但是好像不行, 当打印机设为单面的时候duplex的默认值是0，双面为-1。我改为-1后不行，为什么呢？

这个比较困难，本来想用wmi实现，但wmi好像只能r不能w,郁闷呀。如果你找到解决方法告诉我下，

您好。在网上搜索的时候无意中进入了你的blog，发现你的文章很好。在这里想问一下您如何用vbscript实现电脑连接的打印机都是设置为双面打印?
我的原意是一开机就运行一段logon script,调用这个vbs文件实现所有的用户都双面打印。谢谢。

可能XP上不适合吧，我用的是2003系统，运行正常

小弟电邮33ch7777@163.com

柳大哥,您好,我是一个脚本爱好者,也是一个菜鸟,您的脚本,我试用了,可用,但我无意中对开始菜单中-所有程序-Windows Media Player,这个快捷方式点击右键"显示目标位置",不起作用,不知您注意过没有
还有开始菜单中的命令提示符和笔记本,都不行,奇怪的是画图却可以打开,能否解释一下?期盼您的回复,我会定时来这看看,大哥也可回我电邮

我是过客

分析的很有意思，我觉得还是做自己好。先做正确的事情，再把事情做正确。

你好，请问如何才能更多多的找到和你的博客类似的地址呢？谢谢
你的博客很好 谢谢你的大度

看不明白你说的什么，这个直接放到网页里，程序会自动解析的。

{king:article type="new" union="2,3" number="10"}
<a href="(king:path/)" target="_blank">(king:title size="20"/)</a>
{/king}
想请问下,这个标签程序如何实现读取呀,能不能把实现这个功能的程序给我发一份!
QQ:156090202
E-mail:tly@ycseo.com

你的问题太广了，如果这样讨论下去不知何时了，你可以QQ聊系我