#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)