File Versions

Function GetProductVersion( myFile )

	' Based on code by Maputi on StackOverflow.com:

	' http://stackoverflow.com/a/2990698

	Dim arrTranslations

	Dim i

	Dim objFolder, objFolderItem, objShell

	Dim strFileName, strPropertyName, strParentFolder, strVersion

	' Note that property names are language dependent, so you may have to add the lower case property name for your own language

	Set arrTranslations = CreateObject( "System.Collections.ArrayList" )

	arrTranslations.Add "product version" ' English

	arrTranslations.Add "productversie"   ' Dutch

	strVersion = ""

	strFileName       = objFSO.GetFileName( myFile )

	strParentFolder   = objFSO.GetParentFolderName( myFile )

	Set objShell      = CreateObject( "Shell.Application" )

	Set objFolder     = objShell.Namespace( strParentFolder )

	Set objFolderItem = objFolder.ParseName( strFileName )

	For i = 0 To 300

		strPropertyName = objFolder.GetDetailsOf( objFolder.Items, i )

		If arrTranslations.Contains( LCase( strPropertyName ) ) Then

			' Product Version

			strVersion = objFolder.GetDetailsOf( objFolderItem, i )

			Exit For

		End If

	Next

	Set objFolderItem   = Nothing

	Set objFolder       = Nothing

	Set objShell        = Nothing

	Set arrTranslations = Nothing

	' Replace commas by dots

	strVersion = Replace( strVersion, ",", "." )

	' Remove spaces

	strVersion = Replace( strVersion, " ", ""  )

	GetProductVersion = strVersion

End Function

Function GetMSIProductVersion( myFile )

	' Code by Arnout Grootveld

	' http://stackoverflow.com/a/328710

	Const msiOpenDatabaseModeReadOnly = 0

	Dim objMSI, objDB, objView, strVersion

	GetMSIProductVersion = ""

	Set objMSI  = CreateObject( "WindowsInstaller.Installer" )

	Set objDB   = objMSI.OpenDataBase( myFile, msiOpenDatabaseModeReadOnly )

	Set objView = objDB.OpenView( "SELECT `Value` FROM `Property` WHERE `Property` = 'ProductVersion'" )

	Call objView.Execute( )

	strVersion = objView.Fetch( ).StringData(1)

	' Replace commas by dots

	strVersion = Replace( strVersion, ",", "." )

	' Remove spaces

	strVersion = Replace( strVersion, " ", ""  )

	GetMSIProductVersion = strVersion

End Function

Dim objFSO, strFileName

strFileName = "C:\Windows\notepad.exe"

Set objFSO = CreateObject( "Scripting.FileSystemObject" )

WScript.Echo objFSO.GetFileVersion( strFileName )

Set objFSO = Nothing

Dim objFSO, strFileName

strFileName = "C:\Windows\notepad.exe"

Set objFSO = CreateObject( "Scripting.FileSystemObject" )

WScript.Echo objFSO.GetFile( strFileName ).DateLastModified

Set objFSO = Nothing

Function CompareVersions( myVer1, myVer2 )

	' Function : CompareVersions compares 2 version strings and returns

	'            an integer value telling you which version is higher.

	' Returns  : A positive value means myVer1 is higher than myVer2,

	'            a negative value means myVer1 is lower than myVer2,

	'            zero means the versions are equal.

	'            If the absolute value of the result equals 2, only the

	'            number of digits from the shortes of versions were compared;

	'            if the absolute value equals 1, the shortest of versions had a

	'            number of zeroes appended before the comparison was conclusive.

	' Examples : CompareVersions( "10.2.0", "10.1.1900" ) returns  2

	'            CompareVersions( "10.1.0.1900", "10.1" ) returns  1

	'            CompareVersions( "10.00.0.0.0", "10.0" ) returns  0

	'            CompareVersions( "10.0", "10.0.0.1850" ) returns -1

	'            CompareVersions( "9.9.99.9999", "10.1" ) returns -2

	' Version   : 1.00 (2017-02-17)

	' Author    : Rob van der Woude

	'             http://www.robvanderwoude.com/

	'

	Dim arrVer1, arrVer2

	Dim i, intCompare, intMax, intMin

	intCompare = 0

	If myVer1 <> myVer2 Then

		arrVer1 = Split( myVer1, "." )

		arrVer2 = Split( myVer2, "." )

		If UBound( arrVer1 ) > UBound( arrVer2 ) Then

			intMax = UBound( arrVer1 )

			intMin = UBound( arrVer2 )

			For i = intMin To intMax

				myVer2 = myVer2 & ".0"

			Next

			arrVer2 = Split( myVer2, "." )

		ElseIf UBound( arrVer1 ) < UBound( arrVer2 ) Then

			intMax = UBound( arrVer2 )

			intMin = UBound( arrVer1 )

			For i = intMin To intMax

				myVer1 = myVer1 & ".0"

			Next

			arrVer1 = Split( myVer1, "." )

		Else

			intMax = UBound( arrVer1 )

			intMin = intMax

		End If

		For i = 0 To intMin

			If CInt( arrVer1(i) ) > CInt( arrVer2(i) ) Then

				intCompare = 2

				Exit For

			ElseIf CInt( arrVer1(i) ) < CInt( arrVer2(i) ) Then

				intCompare = -2

				Exit For

			End If

		Next

		If intCompare = 0 Then

			For i = intMin + 1 To intMax

				If CInt( arrVer1(i) ) > CInt( arrVer2(i) ) Then

					intCompare = 1

					Exit For

				ElseIf CInt( arrVer1(i) ) < CInt( arrVer2(i) ) Then

					intCompare = -1

					Exit For

				End If

			Next

		End If

	End If

	CompareVersions = intCompare

End Function