Foxtable(狐表)用户栏目专家坐堂 → 请问有没有打印机重命名的方法?


  共有2371人关注过本帖树形打印复制链接

主题:请问有没有打印机重命名的方法?

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110443 积分:562081 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部