Determine .NET framework version

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Determine .NET framework version

Logged in as: Guest

arrSession:exec spGetSession 2,16,35340

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Determine .NET framework version
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Determine .NET framework version - 6/12/2006 5:29:32 AM

mbouchard

Posts: 1861
Score: 14
Joined: 5/15/2003
From: USA
Status: offline

This is some code that I have been working on from time to time and finally have something working. .NET is one of those PITA apps that is difficult to find the version and there is not much info from MS on how to do this either, except in VB etc.

So, here is my first version of GetDotNet. I will probably work on an ALL switch next but we will see. All depends on if I ever need it or not.

WScript.Echo ".NET Framework 2.0 Version " & GetDotNet("2.0") & " is installed"
WScript.Echo ".NET Framework 1.1 Version " & GetDotNet("1.1") & " is installed"
WScript.Echo ".NET Framework 1.0 Version " & GetDotNet("1.0") & " is installed"

Function GetDotNet(dnVer)
'Requires Function CompareVersion
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
   Dim frameWorkFolder 
   frameWorkFolder = fso.GetSpecialFolder(0) & "\Microsoft.NET\Framework" '0=WindowsFolder
   
   If dnVer = "2.0" Then
       If fso.FolderExists(frameWorkFolder & "\v2.0.50727") AND fso.FileExists(frameWorkFolder & "\v2.0.50727\Mscorlib.dll") Then
           If CompareVersion(fso.GetFileVersion(frameWorkFolder & "\v2.0.50727\Mscorlib.dll"),"2.0.50727.42") = 0 Then
               GetDotNet = "RTM"
           Else
               GetDotNet = "Unknown"
           End If
       Else
           GetDotNet = "None"
       End If
   End If
   
   If dnVer = "1.1" Then
       If fso.FolderExists(frameWorkFolder & "\v1.1.4322") And Fso.FileExists(frameWorkFolder & "\v1.1.4322\Mscorlib.dll") Then
           If CompareVersion(fso.GetFileVersion(frameWorkFolder & "\v1.1.4322\Mscorlib.dll"),"1.1.4322.573") = 0 Then
               GetDotNet = "RTM"
           ElseIf CompareVersion(fso.GetFileVersion(frameWorkFolder & "\v1.1.4322\Mscorlib.dll"),"1.1.4322.2032") = 0 Or _
               CompareVersion(fso.GetFileVersion(frameWorkFolder & "\v1.1.4322\Mscorlib.dll"),"1.1.4322.2300") = 0 Then
               GetDotNet = "SP1"
           Else
               GetDotNet = "Unknown"
           End If
       Else
           GetDotNet = "None"
       End If
   End If
   
   If dnVer = "1.0" then
       If fso.FolderExists(frameWorkFolder & "\v1.0.03705") AND fso.FileExists(frameWorkFolder & "\v1.0.03705\Mscorlib.dll") Then
           If CompareVersion(fso.GetFileVersion(frameWorkFolder & "\v1.0.03705\Mscorlib.dll"),"1.0.3705.0") = 0 Then
               GetDotNet = "RTM"
           ElseIf CompareVersion(fso.GetFileVersion(frameWorkFolder & "\v1.0.03705\Mscorlib.dll"),"1.0.3705.209") = 0 Then
               GetDotNet = "SP1"
           ElseIf CompareVersion(fso.GetFileVersion(frameWorkFolder & "\v1.0.03705\Mscorlib.dll"),"1.0.3705.288") = 0 Then
               GetDotNet = "SP2"
           ElseIf CompareVersion(fso.GetFileVersion(frameWorkFolder & "\v1.0.03705\Mscorlib.dll"),"1.0.3705.6018") = 0 Then
               GetDotNet = "SP3"
           Else
               GetDotNet = "Unknown"
           End If
       Else
           GetDotNet = "None"    
       End If
   End If

End Function

Function CompareVersion(ByVal strVersion1, ByVal strVersion2)
   Dim v1, v2, t1, t2
   'Returns -1 if strVersion1<strVersion2
   'Returns 1 if strVersion1>strVersion2
   'Returns 0 if strVersion1=strVersion2
   CompareVersion = 0
   If strVersion1="" Or strVersion2="" Then
       If strVersion1<strVersion2 Then
           CompareVersion = -1
           Exit Function
       Else
           If v1>v2 Then
               CompareVersion = 1
               Exit Function
           Else
               CompareVersion = 0
               Exit Function
           End If
       End If
   End If
   t1 = Instr(strVersion1, ".")
   If t1 = 0 Then t1 = Len(strVersion1)+1
   t2 = Instr(strVersion2, ".")
   If t2 = 0 Then t2 = Len(strVersion2)+1
   Do While True
       v1 = CLng(Left(strVersion1,t1-1))
       v2 = CLng(Left(strVersion2,t2-1))
       If v1<v2 Then
           CompareVersion = -1
           Exit Function
       Else
           If v1>v2 Then
               CompareVersion = 1
               Exit Function
           End If
       End iF
       strVersion1 = Mid(strVersion1,t1+1)
       strVersion2 = Mid(strVersion2,t2+1)
       If strVersion1="" Or strVersion2="" Then
           If strVersion1<strVersion2 Then
               CompareVersion = -1
               Exit Function
           Else
               If v1>v2 Then
                   CompareVersion = 1
                   Exit Function
               Else
                   CompareVersion = 0
                   Exit Function
               End If
           End If
       End iF
       t1 = Instr(strVersion1, ".")
       If t1 = 0 Then t1 = Len(strVersion1)+1
       t2 = Instr(strVersion2, ".")
       If t2 = 0 Then t2 = Len(strVersion2)+1
   Loop
End Function

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

Post #: 1

RE: Determine .NET framework version - 6/13/2006 1:17:54 AM

kirrilian

Posts: 628
Score: 3
Joined: 3/15/2005
From:
Status: offline

im surprised that this info isnt in the registry

have you looked to see?

_____________________________

Have you searched here ?
VBScript Fundamentals
My Site

(in reply to mbouchard)

Post #: 2

RE: Determine .NET framework version - 6/13/2006 1:43:15 AM

ginolard

Posts: 1024
Score: 21
Joined: 8/10/2005
Status: offline

Indeed, you can check HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP and check for existence of the 1.0/1.1/2.0-related keys

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

(in reply to kirrilian)

Post #: 3

RE: Determine .NET framework version - 6/13/2006 1:54:36 AM

mbouchard

Posts: 1861
Score: 14
Joined: 5/15/2003
From: USA
Status: offline

quote:

ORIGINAL: kirrilian

im surprised that this info isnt in the registry

have you looked to see?

Yes, as Ginolard pointed out, these keys are present in the reg if 1.0/1.1/2.0 is installed, but this doesn't tell you what, if any SP's are installed. I used http://pluralsight.com/wiki/default.aspx/Keith/DotnetVersionWiki.html among others as a reference when working on this script.

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

(in reply to kirrilian)

Post #: 4

RE: Determine .NET framework version - 10/12/2006 8:39:22 PM

est

Posts: 39
Score: 0
Joined: 10/12/2006
Status: offline

In Windows Vista there is .NET Framework 3.0

C:\Windows\Microsoft.NET\Framework\v3.0\

_____________________________

Do NOT program in a programmer's way

(in reply to mbouchard)

Post #: 5

RE: Determine .NET framework version - 10/13/2006 12:08:15 AM

mbouchard

Posts: 1861
Score: 14
Joined: 5/15/2003
From: USA
Status: offline

Thanks, will add it once Vista goes live.

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

(in reply to est)

Post #: 6

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> Post a VBScript >> Determine .NET framework version

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts