以文本方式查看主题 - 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 谢谢 |