Bestimmt Zeile aus einer ini per VBS Script überpruefen

set objFS = CreateObject("Scripting.FileSystemObject")  
set f = objFS.OpenTextFile("c:\test.inf",1,false)  

Do While f.AtEndOfStream <> True
	strline = f.ReadLine
	if Left(strline,9) = "DriverVer" then  
		Set myRegExp = New RegExp
		myRegExp.IgnoreCase = True
		myRegExp.Pattern = "(\d\.(\d)\.\d\.\d"  
		found = myRegExp.Test(strline)
		if found then
			Set Matches = myRegExp.Execute(strline)
			Select Case Matches(0).SubMatches(0)
				Case "7.4"  
					wscript.echo "Version 4"  
                                        'Mach was bei Version 4  
				Case "7.5"  
					wscript.echo "Version 5"  
                                        'Mach was bei Version 5  
			End Select
			Exit do
		end if
	end if
Loop