Need assistance converting a vbs script to kix.

Here's the script:

Dim objFSO
Dim objTextFile
Dim containsSettings
Dim strMiniRecIniLocation
strMiniRecIniLocation = "C:\Program Files\minirec\record.ini"

Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strMiniRecIniLocation) Then
Set objTextFile = objFSO.OpenTextFile(strMiniRecIniLocation,1)

containsSettings = 0
Do until objTextFile.AtEndOfStream
strLine = objTextFile.ReadLine
If containsSettings = 0 Then
containsSettings = InStr(1, strLine, "[ExtTools]", 1)
End If
Loop

objTextFile.Close

If containsSettings = 0 Then
Set objTextFile = objFSO.OpenTextFile(strMiniRecIniLocation,8)
objTextFile.WriteLine ""
objTextFile.WriteLine "[ExtTools]"
objTextFile.WriteLine "ArchivalProgram=C:\ImportApp\OnBaseImportApp.exe"
objTextFile.WriteLine "ArchivalProgramParams=-docTypeID=125 -docTypeGrpID=101"
objTextFile.Close
End If

Set objTextFile = Nothing
Else
MsgBox("Can't find minirec config file at " & strMiniRecIniLocation)
End If

Set objFSO = Nothing




Thanks