関数になっていますので、他から利用可能です バージョン数値(小数以下がある場合もある) = GetOSVersion()
Wscript.Echo GetOSVersion() ' ********************************************************** ' Windows 2000 : 5 ' Windows XP : 5.1 ' Windows 7 : 6.1 ' Windows 8 : 6.2 ' Windows 8.1 : 6.3 ' ********************************************************** Function GetOSVersion() Dim obj,colTarget,objRow,str,aData,nData,I Set obj = GetObject("winmgmts:\\.\root\cimv2") Set colTarget = obj.ExecQuery( "select * from Win32_OperatingSystem" ) For Each objRow in colTarget str = objRow.Version Next aData = Split( str, "." ) For I = 0 to Ubound( aData ) if I > 1 then Exit For end if if I > 0 then nTarget = nTarget & "." end if nTarget = nTarget & aData(I) Next GetOSVersion = CDbl( nTarget ) End Function
関連する記事 WSH : 指定したキーでレジストリエディタを開く レジストリエディタの直前に開いたレジストリの場所の保存名が、Windows バージョンによって変化しています。
VBScriptドキュメント
|
【VBS + WMIの最新記事】
- Windows10 : VBScript : WMI を使用してレジストリ情報より、shell: を使ってフォルダを開く(実行できる)コマンドラインの一覧ボタンを表示する Html Applicati..
- VBScript( WMI )によるイベント関数を WMI に登録するタイマー処理
- VBScript : スクリプトを終了しないようにする
- 64ビット PC の VBScript で 32ビット ODBC ドライバの一覧を取得する( ODBC 接続のドライバ文字列を正しく取得したい )
- VBScript + WMI : ファイルの状態の監視
- VBScript : WMI と NT Provider(ADSI) をそれぞれ使用して、共有を『登録』『一覧』『削除』するサンプル
- VBSCript+WMI : コンピュータ上のファイル検索と詳細情報
- VBS : コンピュータから c$ 共有を一時的に削除
- VBS : 指定した HOST 名を現在の IP アドレスで HOSTS ファイルに登録するスクリプト
【VBScript関連のカテゴリ】