远程WMI调用磁盘序列号

Question

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

目前，脚本专员使用Scriptomatic V2中的默认脚本。我从2003 Server运行它并试图从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并发布可能正在返回的错误消息。