WSH/.NET Frameworkバージョン取得スクリプト
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#navi(../)
* VBScriptで.NET Frameworkのバージョンを取得するスクリプ...
手軽に.NET Frameworkのバージョンが確認できたらいいな。と...
VBScriptで作成したスクリプトを公開ます。~
尚、対応している.NET Frameworkは4.5以上になります。
#htmlinsertpcsp(win-top.html,win-sp.html)
#contents
* 参考URL [#w761aa5d]
-[[Microsoft 方法: インストールされている .NET Framework ...
* サンプルスクリプト [#wfa82134]
.NET Frameworkのバージョンを取得するサンプルスクリプトは...
#ref(Chk.NetFWVer.vbs)
Option Explicit
Dim ows, reg, v, msg
reg = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v...
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)
終了行:
#navi(../)
* VBScriptで.NET Frameworkのバージョンを取得するスクリプ...
手軽に.NET Frameworkのバージョンが確認できたらいいな。と...
VBScriptで作成したスクリプトを公開ます。~
尚、対応している.NET Frameworkは4.5以上になります。
#htmlinsertpcsp(win-top.html,win-sp.html)
#contents
* 参考URL [#w761aa5d]
-[[Microsoft 方法: インストールされている .NET Framework ...
* サンプルスクリプト [#wfa82134]
.NET Frameworkのバージョンを取得するサンプルスクリプトは...
#ref(Chk.NetFWVer.vbs)
Option Explicit
Dim ows, reg, v, msg
reg = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v...
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)
ページ名: