远程 WMI 调用磁盘序列号

Question

我是一个相对缺乏经验的编码员，并且在通过 VBScript 远程获取物理磁盘序列号时遇到了问题。

目前我正在使用 Scriptomatic V2 中由脚本专家提供的默认脚本。我从 2003 服务器运行它并尝试从 Win2000 和 WinXP SP2/SP3 系统获取信息。我从几个教程中看到推荐的 WMI 类是 Win32_PhysicalMedia。

包括有用的位：

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

arrComputers = Array("STN_XP","STN_2000")
  For Each strComputer In arrComputers
    WScript.Echo
    WScript.Echo "=========================================="
    WScript.Echo "Computer: " & strComputer
    WScript.Echo "=========================================="

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PhysicalMedia", "WQL", _
                                      wbemFlagReturnImmediately + wbemFlagForwardOnly)

    For Each objItem In colItems
      '(Removed a couple from the code, just showing the useful ones)
      WScript.Echo "Model: " & objItem.Model
      WScript.Echo "Name: " & objItem.Name
      WScript.Echo "SerialNumber: " & objItem.SerialNumber
      WScript.Echo "Tag: " & objItem.Tag
      WScript.Echo
      Next
    Next

现在我得到的输出如下： 请注意，这是通过所有调用运行脚本的确切输出；除了 objItem.Tag 值之外，没有返回任何数据：

==========================================
Computer: STN_XP
==========================================
Capacity:
Caption:
CleanerMedia:
CreationClassName:
Description:
HotSwappable:
Manufacturer:
MediaDescription:
MediaType:
Model:
Name:
OtherIdentifyingInfo:
PartNumber:
PoweredOn:
Removable:
Replaceable:
SerialNumber:
SKU:
Status:
Tag: \\.\PHYSICALDRIVE0
Version:
WriteProtectOn:

==========================================
Computer: STN_2000
==========================================

所有计算机都连接到域，我登录到主管理员帐户。使用其他一些 WMI 库，我获取数据，并且到目前为止，我在一台特定计算机上收到了序列号（和标签，但没有其他内容）。我已经了解到这是 Vista 的一个问题，您需要在管理员模式下运行。由于所使用的操作系统，这在这里不应该成为问题。有人知道可能出了什么问题吗？

作为后续问题，有谁知道如何从 2000 站获取序列号？

预先感谢您能给我的任何帮助。

Answer 1

用单引号注释掉 On Error Resume Next，并发布可能返回的错误消息。