如何使用WMI获取控制面板中设备和打印机中设置的默认打印机的名称？

水星钓鱼

问：如何使用WMI获取控制面板中设备和打印机中设置的默认打印机的名称？
答：代码如下：

1. Sub lyq()
   
2.     Set wbemServices = GetObject("winmgmts:\" & ".")
   
3.     Set obj = wbemServices.execquery("select * from Win32_Printer where default=true")
   
4.     For Each obj1 In obj
   
5.         MsgBox obj1.Caption
   
6.     Next
   
7. End Sub

复制代码