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>
上記コードで、オンラインの関数をテストできます
タグ:Windows
|