VBScript : 数値として比較できる OS のバージョンの取得

Windows 2000 : 5.0、XP : 5.1
Vista : 6.0、Windows7 : 6.1

なので、if GetOSVersion() > 5 then というふうに使えます。

関連する情報

Windows NT系 - Wikipedia

ブラウザでダウンロード

<JOB>
<SCRIPT
	language="VBScript"
	src="http://lightbox.on.coocan.jp/webwsh/GetOSVersion.vbs"
></SCRIPT>

<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************

	MsgBox( GetOSVersion() )

</SCRIPT>
</JOB>

上記コードで、オンラインの関数をテストできます