#author("2019-05-05T10:12:36+09:00","","")
#navi(../)

* VBScriptで.NET Frameworkのバージョンを取得するスクリプト [#xe4bbf0e]
手軽に.NET Frameworkのバージョンが確認できたらいいな。と思い、~
VBScriptで作成したスクリプトを公開ます。~
尚、対応している.NET Frameworkは4.5以上になります。

#htmlinsertpcsp(win-top.html,win-sp.html)
#contents

* 参考URL [#w761aa5d]
-[[Microsoft 方法: インストールされている .NET Framework バージョンを確認する>https://docs.microsoft.com/ja-jp/dotnet/framework/migration-guide/how-to-determine-which-versions-are-installed]]

* サンプルスクリプト [#wfa82134]
.NET Frameworkのバージョンを取得するサンプルスクリプトは以下の通りです。
#ref(Chk.NetFWVer.vbs)
 Option Explicit
 
 Dim ows, reg, v, msg
 
 reg = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full\Release"
 Set ows = CreateObject("WScript.Shell")
 
 On Error Resume Next
 v = ows.RegRead(reg)
 
 If Err.Number <> 0 Then
     WScript.Echo(reg & " was not found.")
     On Error Goto 0
     Err.Clear
     Set ows = Nothing
     WScript.Quit(1)
 End If
 
 If v >= 528040 Then
     msg = "4.8 or later"
 ElseIf releaseKey >= 461808 Then
     msg = "4.7.2"
 ElseIf releaseKey >= 461308 Then
     msg = "4.7.1"
 ElseIf releaseKey >= 460798 Then
     msg = "4.7"
 ElseIf releaseKey >= 394802 Then
     msg = "4.6.2"
 ElseIf releaseKey >= 394254 Then
     msg = "4.6.1"
 ElseIf releaseKey >= 393295 Then
     msg = "4.6"
 ElseIf releaseKey >= 379893 Then
     msg = "4.5.2"
 ElseIf releaseKey >= 378675 Then
     msg = "4.5.1"
 ElseIf releaseKey >= 378389 Then
     msg = "4.5"
 Else
     msg = "No 4.5 or later version detected"
 End If
 
 WScript.Echo(msg)
 
 Set ows = Nothing
 WScript.Quit(0)

* 起動方法 [#h8241520]
結果出力は、WScript.Echoを利用しているので、Scriptでも使用できます。~
もちろん、本スクリプトをダブルクリックしても動作します。~
以下に実行例を記します。
- ダブルクリックで起動
#ref(01.png)
- CScriptで起動
 D:\>cscript Chk.NetFWVer.vbs
 Microsoft (R) Windows Script Host Version 5.812
 Copyright (C) Microsoft Corporation. All rights reserved.
 
 4.7.2

以上、VBScriptで.NET Frameworkのバージョンを取得するスクリプトでした。

#htmlinsertpcsp(win-btm.html,win-sp.html)


トップ   編集 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS