麻雀の殿堂(468×60)

Microsoft WMI Scripting

 自身を含め、ネットワークでつながったコンピュータのシステム情報を取得 したり、できるらしい。
 2000,Me 以上なら標準で入っているらしい。95/98/NT 4.0 の場合、 ここ からダウンロードすれば、使えるようになります。


 上記 のマイクロソフトによる紹介記事にある例を実行してみると、
Option Explicit
Dim strComputer
Dim wbmServices, wbmObjectSet, wbmObject

strComputer = "."

Set wbmServices = GetObject("winmgmts:\\" & strComputer)
Set wbmObjectSet = wbmServices.InstancesOf("Win32_LogicalMemoryConfiguration")

For Each wbmObject In wbmObjectSet
    WScript.Echo "物理メモリ合計 (kb): " & wbmObject.TotalPhysicalMemory
Next
 となります。


オブジェクト探検隊