ディスクのシリアル番号のリモートWMIコール

Question

私は比較的経験の浅いコーダーで、VBScript経由で物理ディスクのシリアル番号をリモートで取得する問題に取り組んでいます。

現在Scripting Guysが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の問題であることを読んだ。これは、使用しているOSのためにここでは問題ではありません。誰が何が間違っているのか知っていますか？

フォローアップの質問として、誰でも2000年ステーションからシリアル番号を取得する方法を知っていますか？

ご協力いただきありがとうございます。

Answer 1

単一引用符を使用してOn Error Resume Nextをコメントアウトし、返される可能性が高いエラーメッセージを投稿します。