Rem Ce script permet de tester la version de Internet Explorer
Rem par rapport à une version donnée en ligne de commande sous la forme
Rem IEVER.VBS MajorVersion.MinorVersion.BuildVersion.SubBuildVersion
Rem par exemple: IEVER.VBS 6.0.0.0
Rem Ce script retourne une erreur ERRORLEVEL à 1 si la version actuelle de IE
Rem est strictement inférieure à la version donnée en paramètre.
Rem Si l'argument est incorrect ou absent, le script se termine avec ERRORLEVEL à 0.
sRegPath = "HKLM\SOFTWARE\Microsoft\Internet Explorer\Version"

Set oShell = CreateObject("Wscript.Shell")
On Error Resume Next
sIEVer = oShell.RegRead(sRegPath)

If Err <> 0 Or sIEVer = "" Then
  ' IE version is 3.0 or less, set it to 0
  sIEVer = "0.0.0.0"
End If
On Error Goto 0

aIEVer = Split(sIEVer, ".")
iMajorVersion = Cint(aIEVer(0))
iMinorVersion = Cint(aIEVer(1))
iBuildVersion = Cint(aIEVer(2))
iSubBuildVersion = Cint(aIEVer(3))

Set objArgs = WScript.Arguments
If (objArgs.count = 0) or (objArgs.count > 1) Then 
	                                       wscript.Echo "Invalid number of argument."
	                                       wscript.quit
	                                      End If

If objArgs(0)="/?" Then 
	            WScript.Echo "The current version of Internet Explorer is " & iMajorVersion & "." & iMinorVersion
	            Wscript.quit
	           End If 
	            
On Error Resume Next
err.clear
testIEVer = Split(objArgs(0), ".")

testMajorVersion = Cint(testIEVer(0))
testMinorVersion = Cint(testIEVer(1))
testBuildVersion = Cint(testIEVer(2))
testSubBuildVersion = Cint(testIEVer(3))	                                        
If err.number <> 0 Then 
	                wscript.Echo "Invalid argument format."
	                wscript.quit
	           End If

testVersion = true
	           
If ( iMajorVersion > testMajorVersion ) Then
	testVersion = true
Else
	If ( iMajorVersion = testMajorVersion ) Then
		If ( iMinorVersion > testMinorVersion ) Then
			testVersion = true
		Else
			If ( iMinorVersion = testMinorVersion ) Then
				If ( iBuildVersion > testBuildVersion ) Then
					testVersion = true
				Else
					If ( iBuildVersion = testBuildVersion ) Then

						If ( iSubBuildVersion > testSubBuildVersion ) Then
							testVersion = true
						Else
							If ( iSubBuildVersion = testSubBuildVersion ) Then
								testVersion = true
							Else
								testVersion = false
							End If	
						End If	
					Else
						testVersion = false
					End If	
				End If	
			Else
				testVersion = false
			End If	
		End If	
	Else
		testVersion = false
	End If
End if
	           
If testVersion = false Then wscript.quit (1)