Vbscript bestimmte Zeile ungeachtet der Nummerierung löschen

Dim objShell,appdata
Set objShell = CreateObject("wscript.shell")  
appdata = objShell.ExpandEnvironmentStrings("%appdata%")  

strFileName = (appdata & "\Microsoft\FSX\fsx.cfg")  

Const ForReading = 1
Const ForWriting = 2

Set objFSO = CreateObject("Scripting.FileSystemObject")  
Set objFile = objFSO.OpenTextFile(strFileName, ForReading)
Set regex = CreateObject("vbscript.regexp")  
regex.IgnoreCase = True
regex.Pattern = "SimObjectPaths\.\d+=Addon Scenery\\Europe\\Italy\\Ancona\\simobjects"  

Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    If regex.Test(strLine) = False Then
        strNewContents = strNewContents & strLine & vbCrLf
    End If
Loop

objFile.Close

Set objFile = objFSO.OpenTextFile(strFileName, ForWriting)
objFile.Write strNewContents

objFile.Close
Set fs = Nothing 

(gc "$env:appdata\Microsoft\FSX\fsx.cfg") | ?{$_ -notmatch 'SimObjectPaths\.\d+=Addon Scenery\\Europe\\Italy\\Ancona\\simobjects'} | set-content "$env:appdata\Microsoft\FSX\fsx.cfg"