Sub FixIrisAuthServIni()
        Dim HeartSIPIni As New PrivateIniFile("c:\iris\ini\HeartSIP.INI")
        Dim ProticoTIDsIni As New PrivateIniFile("C:\BraumsRecovery\ini\PorticoTIDs.INI")
        Dim SmartTimeOutValue As Integer = 15
        If IO.File.Exists("C:\SmartTimeOutValue.dat") Then
            SmartTimeOutValue = CIntNull(IO.File.ReadAllText("c:\SmartTimeOutValue.dat"))
        End If
        If SmartTimeOutValue = 0 Then
            DispThis("Something Wrong, Smart Timeout was 0" & NewLine)
            LogIt.Log("Something Wrong, Smart Timeout was 0", True)
        End If
        Dim IrisAuthServIni As New PrivateIniFile("c:\iris\ini\IrisAuthSrvr.INI")
        IrisAuthServIni.WriteString("General", "InterfaceType", "SCADevice")
        If PosMaint.StoreNumber < 470 Then
            IrisAuthServIni.WriteString("General", "Logging", "0")
        Else
            IrisAuthServIni.WriteString("General", "Logging", "1")
        End If
        IrisAuthServIni.WriteString("General", "LogFilename", "c:\iris\log\IrisAuthSrvr_CC.log")
        IrisAuthServIni.WriteString("General", "LogFilter", "127")
        IrisAuthServIni.WriteString("General", "VerifoneInstallPath", XpientInstallPath_ServerOnly("\\10.77.77.30\c", "Credit Card Application") & "Credit Card Application")
        IrisAuthServIni.WriteString("General", "SettlementAppName", XpientInstallPath_ServerOnly("\\10.77.77.30\c", "Credit Card Application") & "Credit Card Application\CCAManager\ccmanager.exe -s")

        'CLean up both Smart and SCADevices
        IrisAuthServIni.DeleteSection("Smart")
        IrisAuthServIni.DeleteSection("SCADevice")
        For xLoop As Integer = 0 To 100
            IrisAuthServIni.DeleteSection("SCADevice" & xLoop)
        Next
        IrisAuthServIni.DeleteSection("VeriFone")
        IrisAuthServIni.DeleteSection("Ingenico")
        IrisAuthServIni.DeleteSection("IngenicoForms")
        IrisAuthServIni.DeleteSection("EN2100")
        IrisAuthServIni.DeleteSection("Services")
        HeartSIPIni.DeleteSection("PorticoTIDs")
        HeartSIPIni.DeleteSection("HeartLoaderFiles")

        Dim HLTestVsProd As String = "P"
        If PosMaint.StoreNumber > 400 Then
            HLTestVsProd = "T"
        End If
        HeartSIPIni.WriteString("HeartLoaderFiles", "IPP350_Serial", "C:\IRIS\Data\DeviceData\HeartSIP\HeartLoader\Ingenico\HL" & HLTestVsProd & "PP35032S.OGZ")
        HeartSIPIni.WriteString("HeartLoaderFiles", "ISC250_SERIAL", "C:\IRIS\Data\DeviceData\HeartSIP\HeartLoader\Ingenico\HL" & HLTestVsProd & "SC25032S.OGZ")

        IrisAuthServIni.WriteString("Services", "SCADevice", "SCADevice")

        For xLoop As Integer = 0 To PosMaint.RegisterInformations.Count - 1
            HeartSIPIni.WriteString("PorticoTIDs", xLoop.ToString, ProticoTIDsIni.GetString(PosMaint.StoreNumber.ToString.PadLeft(3, "0"c), "Reg" & PosMaint.RegisterInformations(xLoop).RegisterNumber, ""))
        Next

        IrisAuthServIni.WriteString("Router", "SCA", "SCADevice")
        IrisAuthServIni.WriteString("Router", "DEBIT", "SCADevice")
        IrisAuthServIni.WriteString("Router", "JCB", "SCADevice")
        IrisAuthServIni.WriteString("Router", "AMEX", "SCADevice")
        IrisAuthServIni.WriteString("Router", "DISCOVER", "SCADevice")
        IrisAuthServIni.WriteString("Router", "MASTERCARD", "SCADevice")
        IrisAuthServIni.WriteString("Router", "VISA", "SCADevice")
        IrisAuthServIni.WriteString("Router", "GIFTCARD", "SCADevice")
        IrisAuthServIni.WriteString("Router", "EFTCARDDATA", "SCADevice")
        IrisAuthServIni.WriteString("Router", "EBTFood", "SCADevice")
        For xLoop As Integer = 0 To PosMaint.RegisterInformations.Count - 1
            FixIrisAuthServIni_SCADevice(PosMaint.RegisterInformations(xLoop).RegisterNumber)
        Next

    End Sub