//--------------------------------------------------------------------
// JScript: Получение версии установленного .NET Framework
//--------------------------------------------------------------------
var initObj=new ActiveXObject('htmlfile')
initObj.open()

var rexp=/(\.NET.[^;)]+)/ig
var cInfo=initObj.parentWindow.clientInformation['userAgent']    //Вариант 1
//var cInfo=initObj.parentWindow.navigator['userAgent']        //Вариант 2

initObj.close()

    if (!rexp.test(cInfo))
    {
        WScript.Echo('.NET Framework не установлен.')
    }
    else
    {
        strVer=''
        m=cInfo.match(rexp)
        for (i=0;i<m.length;i++){strVer=strVer+'\n'+m[i]}
        WScript.Echo('Версия установленного .NET Framework: \n'+strVer)
    }


WScript.Quit()
//--------------------------------------------------------------------

Option Explicit

Const HKEY_LOCAL_MACHINE = &H80000002
Const REG_SZ             = 1

Const strTest = ".NET CLR "


Dim objSWbemServicesEx

Dim strComputer
Dim arrValueNames, arrValueTypes
Dim i


strComputer = "."

Set objSWbemServicesEx = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\Default")

If objSWbemServicesEx.Get("StdRegProv").EnumValues( _
    HKEY_LOCAL_MACHINE, _
    "SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\5.0\User Agent\Post Platform", _
    arrValueNames, _
    arrValueTypes) = 0 Then
    
    For i = LBound(arrValueNames) To UBound(arrValueNames)
        If arrValueTypes(i) = REG_SZ Then
            If Left(arrValueNames(i), Len(strTest)) = strTest Then
                WScript.Echo Mid(arrValueNames(i), Len(strTest) + 1)
            End If
        End If
    Next
End If

Set objSWbemServicesEx = Nothing

WScript.Quit 0