If WScript.Arguments.Count < 1 then
    WScript.Echo "Missing argument, trak fil som skal beragnes pa script!"
    WScript.Quit
End if

Const ForReading = 1
Const ForWriting = 2

input = WScript.Arguments(0)

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set file = objFSO.OpenTextFile(input, ForReading)
Set result = objFSO.CreateTextFile("c:\netblock\tmp.ini", ForWriting)

Dim counter
counter = 0

While Not file.AtEndOfStream
    line = file.ReadLine
    if InStr(line, "[filter") = 1 Then
        line = "[filter" & counter & "]"
        counter = counter + 1
    End If
    result.WriteLine(line)

Wend


result.Close()
file.Close()

rem NEW CODE

Set pass2 = objFSO.OpenTextFile("c:\netblock\tmp.ini", ForReading)
Set result2 = objFSO.CreateTextFile("c:\netblock\tmp2.ini", ForReading)

While Not pass2.AtEndOfStream
    line = pass2.ReadLine
    if InStr(line, "NumberOfFilters") = 1 Then
        line = "NumberOfFilters=" & counter
    End If
    result2.WriteLine(line)

Wend

result2.Close()
pass2.Close()

rem EO NEW CODE

objFSO.CopyFile input, "c:\netblock\safety.bak"
objFSO.DeleteFile(input)
objFSO.MoveFile "c:\netblock\tmp2.ini", input
objFSO.DeleteFile("c:\netblock\safety.bak")

Wscript.Echo "Finished"