[已解决]列出本机所有打印机的方法

fuinei · 发表于 2012-3-29 14:58:04

本帖最后由 fuinei 于 2012-3-29 17:11 编辑

各位好,论坛中有很多贴子关于如何自动添加网络打印机和设置默认打印机的方法,但在测试的过程中发现自动添加网络打印机有些会报错,希望做一个校验判断打印机有没有添加成功,请问有没有命名或函数可列出当前所连接的所有打印机(含本机/网络)的名称呢?

502762378 · 发表于 2012-3-29 15:46:22

其实很简单的，大部分都是WMI操作

_wmi_Win32_ShowaddPrinter()
Func _wmi_Win32_ShowaddPrinter()
        Local $strComputer = "localhost"
    Local $Output = ""
        Local $objWMIService = ObjGet("winmgmts:\" & $strComputer & "\root\CIMV2")
        $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Printer", "WQL",48)
        For $objItem In $colItems
              $Output &= $objItem.Caption & @CRLF
        Next
    MsgBox(1,$strComputer&"连接的打印机和传真为:",$Output)
EndFunc

fuinei · 发表于 2012-3-29 17:11:18

回复 2# 502762378
谢谢502762378兄的指导,你的代码完全符合我的要求,看来要学好windows的自动化操作学习WMI部分是必不可少的,能否推荐一下比较好的学习WMI的资料.

502762378 · 发表于 2012-3-29 17:19:52

回复 3# fuinei

http://www.autoitx.com/forum.php ... mp;highlight=WMI%2B
这篇文章我反复看过很多次，AU3自带有AutoIt Scriptomatic 工具，再有就是反复测试root\CIMV2中每个类中属性的信息

fuinei · 发表于 2012-3-29 18:21:19

谢谢分享,一定抽空学习!

ojoojo · 发表于 2012-5-22 10:21:03

谢谢分享,一定抽空学习!

		自动登录	找回密码
密码			加入

[系统综合] [已解决]列出本机所有打印机的方法

评分

相关帖子

评分