以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问有没有打印机重命名的方法?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=189439)

--  作者:km007
--  发布时间:2023/12/1 14:30:00
--  请问有没有打印机重命名的方法?
例如 我想将已安装的 指定打印机 HP1001 重命名为 HP12345,请问这个如何写代码呢?
[此贴子已经被作者于2023/12/1 14:43:20编辑过]

--  作者:有点蓝
--  发布时间:2023/12/1 15:09:00
--  
添加外部引用:System.Management.dll:http://www.foxtable.com/webhelp/topics/1936.htm

代码
Dim mc As New System.Management.ManagementClass("Win32_Printer")
Dim moc = mc.GetInstances()
For Each mo As System.Management.ManagementObject In moc
    Output.Show( mo.Properties("name").Value.ToString())
    If mo.Properties("name").Value.ToString() = "HP1001" Then
        mo.InvokeMethod("RenamePrinter", New Object(){ "HP12345" })
    End If 
Next

--  作者:km007
--  发布时间:2023/12/1 15:21:00
--  
ok 谢谢