wmi获取默认打印机名称

jingyi11023995

wmi获取默认打印机名称

  

子程序名	返回值类型	公开	备 注
获取默认打印机名称	文本型

变量名	类 型	静态	数组	备 注
objWbemLocator	对象
objWMIService	对象
colClasses	对象
Properties	对象
NewEnum	对象
objClass	对象
hreslut	整数型
Variant	变体型
pcFetched	整数型
value	文本型

如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ))  ' 创建WMI对象
objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “root\CIMV2”, , , , , , )  ' 连接服务器
如果真 (objWMIService.是否为空 () ＝ 假)
colClasses ＝ objWMIService.对象型方法 (“ExecQuery”, “SELECT * FROM Win32_Printer WHERE Default='-1'”)  ' 全部打印机删除: WHERE Default='-1'
如果真 (colClasses.是否为空 () ＝ 假)
NewEnum ＝ colClasses.对象型方法 (“_NewEnum”, )
如果真 (NewEnum.是否为空 () ＝ 假)
循环判断首 ()
hreslut ＝ IEnumVARIANT_Next (取对象指针 (NewEnum), 1, 取变体型指针 (Variant), pcFetched)
如果真 (hreslut ＝ 0)
objClass ＝ Variant.取对象 ()
Properties ＝ objClass.读对象型属性 (“Properties_”, )
value ＝ Properties.对象型方法 (“Item”, “Caption”).读文本属性 (“value”, )
' 调试输出 (value)
objClass.清除 ()
Variant.清除 ()
处理事件 ()
循环判断尾 (pcFetched ＝ 1)
NewEnum.清除 ()
colClasses.清除 ()
objWMIService.清除 ()
objWbemLocator.清除 ()
返回 (value)

.版本 2<br /> <br /> .子程序 获取默认打印机名称, 文本型<br /> .局部变量 objWbemLocator, 对象<br /> .局部变量 objWMIService, 对象<br /> .局部变量 colClasses, 对象<br /> .局部变量 Properties, 对象<br /> .局部变量 NewEnum, 对象<br /> .局部变量 objClass, 对象<br /> .局部变量 hreslut, 整数型<br /> .局部变量 Variant, 变体型<br /> .局部变量 pcFetched, 整数型<br /> .局部变量 value, 文本型<br /> <br /> .如果真 (objWbemLocator.创建 (“WbemScripting.SWbemLocator”, ))  ' 创建WMI对象<br />     objWMIService ＝ objWbemLocator.对象型方法 (“ConnectServer”, “.”, “root\CIMV2”, , , , , , )  ' 连接服务器<br />     .如果真 (objWMIService.是否为空 () ＝ 假)<br />         colClasses ＝ objWMIService.对象型方法 (“ExecQuery”, “SELECT * FROM Win32_Printer WHERE Default='-1'”)  ' 全部打印机删除: WHERE Default='-1'<br />         .如果真 (colClasses.是否为空 () ＝ 假)<br />             NewEnum ＝ colClasses.对象型方法 (“_NewEnum”, )<br />             .如果真 (NewEnum.是否为空 () ＝ 假)<br />                 .循环判断首 ()<br />                     hreslut ＝ IEnumVARIANT_Next (取对象指针 (NewEnum), 1, 取变体型指针 (Variant), pcFetched)<br />                     .如果真 (hreslut ＝ 0)<br />                         objClass ＝ Variant.取对象 ()<br />                         Properties ＝ objClass.读对象型属性 (“Properties_”, )<br />                         value ＝ Properties.对象型方法 (“Item”, “Caption”).读文本属性 (“value”, )<br />                         ' 调试输出 (value)<br />                         objClass.清除 ()<br />                         Variant.清除 ()<br />                     .如果真结束<br />                     处理事件 ()<br />                 .循环判断尾 (pcFetched ＝ 1)<br />                 NewEnum.清除 ()<br />             .如果真结束<br />             colClasses.清除 ()<br />         .如果真结束<br />         objWMIService.清除 ()<br />     .如果真结束<br />     objWbemLocator.清除 ()<br /> .如果真结束<br /> 返回 (value)

源码下载：
wmi获取默认打印机名称.e (5.36 KB, 下载次数: 8, 售价: 1 枚 精币)

2025-3-14 09:10 上传

点击文件名下载附件
wmi获取默认打印机名称

lxn2wyf

哟，这方法挺实用啊，刚想找这功能呢。不过文档有点简略哈，能加点示例代码就完美了。

xkAnd

哟，这方法挺实用啊，刚想找这功能呢！不过代码格式有点乱，能再清晰点就更好了呢。

youxigw

感谢分享，支持开源！！！

please

感谢分享，支持开源！！！

year1970

感谢分享

查过

已经顶贴，感谢您对论坛的支持！

豆豆灰常开心

下个学习一下

wh1234567

感谢分享

菠菜521

支持开源~！感谢分享