0

当我发现脚本中的错误实际上是因为 WMI 返回冲突甚至错误的信息时，我正在对一些旨在查询远程计算机的默认打印机的 vbscript 进行故障排除。请看这个截图： 替代文字

两者都针对同一台计算机（CLIFGRIFIN-PC）。左边是从 Windows Server 2003 安装运行的。正确的是在 PC 本身上运行。

左边的除了结果较少外，还显示没有打印机是默认的。这就是导致我对此进行调查的脚本错误的原因。

有任何想法吗？这很奇怪。

编辑： 这是我正在使用的代码......

Set WshShell = CreateObject("WScript.Shell")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections

Dim strComputer 
strComputer = WshShell.ExpandEnvironmentStrings("%CLIENTNAME%")

Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colInstalledPrinters =  objWMIService.ExecQuery ("Select * from Win32_Printer Where Default = True")

For Each Printer in colInstalledPrinters
    For i = 0 to OPrinters.Count - 1 Step 2
        If InStr(objPrinters.Item(i+1), Printer.Name) > 0 Then
            WshNetwork.SetDefaultPrinter(objPrinters.Item(i+1))
            Exit For
        End If
    Next
Next
4

2 回答 2

0

如前所述，它可能取决于登录用户。

当您从远程 PC 查询时，您将只能获得本地安装的打印机。当您从同一台电脑查询时，您还将获得所有网络连接的打印机。此处连接的网络意味着它们在其他电脑上共享。

添加网络打印机时会有些混乱，但在 Windows 中它被称为本地打印机，但它有一个 ip 端口。

于 2010-11-14T15:31:27.887 回答
0

尝试将模拟级别设置为模拟即

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
于 2010-11-15T07:01:37.933 回答