VBScript : OSのバージョンを取得

関数になっていますので、他から利用可能です

バージョン数値(小数以下がある場合もある) = 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 バージョンによって変化しています。

VBS + WMI

Windows10 : VBScript : WMI を使用してレジストリ情報より、shell: を使ってフォルダを開く(実行できる)コマンドラインの一覧ボタンを表示する Html Application のコードを作成する

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 ファイルに登録するスクリプト