Sub FixEODs()
        Dim EODIni As New PrivateIniFile("c:\iris\ini\eod.ini")
        EODIni.DeleteSection("DataPath")
        For xLoop As Integer = 0 To PosMaint.RegisterInformations.Count - 1
            Dim RegInfo As RegInfo = PosMaint.RegisterInformations(xLoop)
            EODIni.WriteString("DataPath", "Reg" & RegInfo.RegisterNumber.ToString, "\\10.77.79." & (70 + RegInfo.RegisterNumber).ToString & "\c\iris\data")
            EODIni.WriteInteger("DataPath", "Reg" & xLoop + 1 & "Num", RegInfo.RegisterNumber)
        Next
        EODIni.WriteInteger("Network", "NumberOfRegister", PosMaint.RegisterInformations.Count)
        EODIni = Nothing
        CopyINIToRegInfo("eod.ini")
    End Sub