Determine what version of .NET is installed

A couple years ago mbouchard posted a method to determine what version of .NET is installed on your system: http://www.visualbasicscript.com/m_35340/mpage_1/tm.htm#35340

I figured I'd take a crack at it with a different approach. What do you think?

 Function NETVer()
     Dim d : Set d = CreateObject("htmlfile")
     Dim Matches,Match
     Dim Result : Result = Array()
     Dim RE : Set RE = New RegExp
     RE.Pattern = "\.NET CLR ([\d\.]+)"
     RE.Global = True
     Set Matches = RE.Execute(d.parentWindow.navigator.userAgent)
     For Each Match In Matches
         ReDim Preserve Result(UBound(Result) + 1)
         Result(UBound(Result)) = Match.SubMatches(0)
     Next
     NETVer = Result
 End Function
 
 MsgBox Join(NETVer(),",")

Hi TNO,

really nice. I wish I'd had this excellent idea! So I can only show my
slightly different implementation:

 Function NETVer()
    Dim RE : Set RE = New RegExp
    RE.Pattern = "\.NET CLR ([\d.]+)"
    RE.Global  = True
    Dim   Matches : Set Matches = RE.Execute( _
             CreateObject( "htmlfile" ).parentWindow.navigator.userAgent _
                                            )
    ReDim aRVal( Matches.Count - 1 )
    Dim   nIdx
    For nIdx = 0 To UBound( aRVal )
        aRVal( nIdx ) = Matches( nIdx ).SubMatches( 0 )
    Next
    NETVer = aRVal
 End Function
 

Regards

ehvbs

Shorter is better, no complaints here.

Here's a JScript version if anyone is interested:

 var NetVer = (new ActiveXObject("htmlfile")).parentWindow
 .navigator.userAgent.match(/\.NET CLR ([\d\.]+)/g).join(",")
 .replace(/\.NET CLR/g,"").split(",")
 

line breaks optional

Does this give you the full version, including SP level or just the major version? 

For instance, the script says that, for version 2.0 I have 2.0.50727 the registry on my pc shows 2.0.50727.1434 is installed.  Looking at the list found here 2.0.50727.1434 is 2.0 SP1.

Just wondering if there is a way using your method to get the full version.

Afraid not, But another alternative is looking here:

HKEY_LOCAL_MACHINE\Software\Microsoft\NET Framework Setup\NDP\

Hi TNO - Thanks for posting this script
 
I need to determine the highest version of Framework on the machine - Is there a simple way to pick out the array with the highest value?
 
I tried using Topnumber = UBound(NETVer()) and this returns correctly the array number in my case 2 with the highest value but I wanted to get the actual version number contained in array 2

Here is a slightly different version where an ArrayList is sorted in descending order before it is returned:

 Function NETVer() 
    Dim RE : Set RE = New RegExp 
    RE.Pattern = "\.NET CLR ([\d.]+)" 
    RE.Global  = True 
    Dim Matches : Set Matches = RE.Execute( _ 
        CreateObject( "htmlfile" ).parentWindow.navigator.userAgent _ 
    ) 
    Dim Result : Set Result = CreateObject("System.Collections.ArrayList") 
    Dim Match 
    For Each Match In Matches 
     Result.Add Match.SubMatches(0) 
    Next 
    Result.Sort 
    Result.Reverse 
    Set NETVer = Result 
 End Function   MsgBox NETVer()(0) 

Thanks - this works great