$theFile="C:\Program Files\minirec\record.ini"
if exist($theFile)
  if ""=readprofilestring($theFile,"ExtTools","")
    $=writeprofilestring($theFile,"ExtTools","ArchivalProgram","C:\ImportApp\OnBaseImportApp.exe")
    $=writeprofilestring($theFile,"ExtTools","ArchivalProgramParams","-docTypeID=125 -docTypeGrpID=101")
  endif
else
  $=MessageBox("Can't find minirec config file at " + $theFile)
endif

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

$objFSO = CreateObject("Scripting.FileSystemObject")

If $objFSO.FileExists($strMiniRecIniLocation)
  $objTextFile = $objFSO.OpenTextFile($strMiniRecIniLocation,1)
  $containsSettings = 0
  Do Until $objTextFile.AtEndOfStream
    $strLine = $objTextFile.ReadLine
    If $containsSettings = 0
      $containsSettings = InStr($strLine, "[ExtTools]")
    EndIf
  Loop
  $objTextFile.Close

  If $containsSettings = 0
    $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
  EndIf

  $objTextFile = ""
Else
  $=MessageBox("Can't find minirec config file at " + $strMiniRecIniLocation,"Info")
EndIf

$objFSO = ""