VB.NET の Tips で
紹介した OS 情報収集の WSH 版です。
VB.NET 版とは少し出力内容を変更して、全てのプロパティは表示せず、下記の項目のみを表示してみます。
- オペレーティングシステム名
- バージョン
- サービスパック
- システムディレクトリ
- システムドライブ
- 仮想メモリ容量
- 物理メモリ容量
対象 OS は Windows XP Service Pack 1 です。
'osinfo.vbs
Set OSInfoCollection = GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
For Each OSInfo In OSInfoCollection
WScript.Echo "オペレーティングシステム:" & OSInfo.Caption
WScript.Echo "バージョン:" & OSInfo.Version
WScript.Echo "サービスパック:" & OSInfo.CSDVersion
WScript.Echo "システムディレクトリ:" & OSInfo.SystemDirectory
WScript.Echo "システムドライブ:" & OSInfo.SystemDrive
WScript.Echo "仮想メモリ容量:" & OSInfo.TotalVirtualMemorySize & "Bytes"
WScript.Echo "物理メモリ容量:" & OSInfo.TotalVisibleMemorySize & "Bytes"
Next
'オブジェクトの開放
Set OSInfoCollection = Nothing
コマンドプロンプトから cscript コマンドで実行した出力結果は次のようになります。
C:\>cscript osinfo.vbs
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.
オペレーティングシステム:Microsoft Windows XP Professional
バージョン:5.1.2600
サービスパック:Service Pack 1
システムディレクトリ:C:\WINDOWS\System32
システムドライブ:C:
仮想メモリ容量:1815444Bytes
物理メモリ容量:523248Bytes
C:\>