' Простенький скрипт, позволяющий проверить версию .NET Framework на компьютере
' Полный перечень: https://docs.microsoft.com/ru-ru/dotnet/framework/migration-guide/how-to-determine-which-versions-are-installed#detect-net-framework-45-and-later-versions
tittle = "Установленная версия на этом компьютере"
ver = ".NET Framework "
net = WScript.CreateObject("WScript.Shell").RegRead("HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full\Release")

if net = "528040" or net = "528049" or net = "528209" or net = "528372" then	
	Msg("4.8")
elseif net = "461808" or net = "461814" then
	Msg("4.7.2")
elseif net = "461308" or net = "461310" then
	Msg("4.7.1")
elseif net = "460798" or net = "460805" then
	Msg("4.7")
elseif net = "394802" or net = "394806" then
	Msg("4.6.2")
elseif net = "394254" or net = "394271" then
	Msg("4.6.1")
elseif net = "393295" or net = "393297" then
	Msg("4.6")
elseif net = "379893" then
	Msg("4.5.2")
elseif net = "378675" or net = "378758" then
	Msg("4.5.1")
elseif net = "378389" then
	Msg("4.5")
else MsgBox "Не удалось узнать версию " & ver, 16, ver
end if

sub Msg(version) MsgBox ver & version, 64, tittle end sub