vbscript - ラインチェック付きVBSスクリプト編集

Question

既存の .ini ファイル (nsapps.ini) を編集するスクリプトに取り組んでいます。すべてがうまく機能しますが、スクリプトにチェックを追加して、3行が存在する場合に行の追加を停止する方法がわかりません

EpicTer78Class=9
EpicTer79Class=9
EpicTer81Class=9

EpicTer78Class=9 は ini の既存の行であり、他の 2 行はその後に追加されるはずです。このチェックを追加して、スクリプトが誤って複数回実行された場合に、行の複数のコピーを追加しないようにします。助けてくれてありがとう（これに関しては、私は超初心者です）。

 'Begin Code for script

Const ForReading = 1
Const ForWriting = 2

'Source file name here
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\ProgramData\Nuance\NaturallySpeaking10\nsapps.ini", ForReading)

Do Until objTextFile.AtEndOfStream
    strNextLine = objTextFile.Readline
'Line to find (changes go under this and replace line)
    intLineFinder = InStr(strNextLine, "EpicTer78Class=9")
    If intLineFinder <> 0 Then
    'This is what replaces first line (above)
        strNextLine = "EpicTer78Class=9" & vbCrLf & "EpicTer79Class=9" & vbCrLf & "EpicTer81Class=9"
    End If

    strNewFile = strNewFile & strNextLine & vbCrLf
Loop

objTextFile.Close
'Source of file goes here again
Set objTextFile = objFSO.OpenTextFile("C:\ProgramData\Nuance\NaturallySpeaking10\nsapps.ini", ForWriting)

objTextFile.WriteLine strNewFile
objTextFile.Close