; -- OTHER CODE
 IF @userid<>ReadProfileString($prffile,'General','ProfileName')
    $rc=WriteProfileString($prffile,'General','ProfileName',@userid)
 ENDIF
 IF 'Yes'<>ReadProfileString($prffile,'General','DefaultProfile')
    $rc=WriteProfileString($prffile,'General','DefaultProfile','Yes')
 ENDIF
 IF 'Yes'<>ReadProfileString($prffile,'General','OverwriteProfile')
    $rc=WriteProfileString($prffile,'General','OverwriteProfile','Yes')
 ENDIF
 IF 'No'<>ReadProfileString($prffile,'General','BackupProfile')
    $rc=WriteProfileString($prffile,'General','BackupProfile','No')
 ENDIF
 ; -- OTHER CODE
 

 FOR EACH $FIRST IN Split('ProfileName DefaultProfile OverwriteProfile BackupProfile')
    FOR EACH $SECOND IN Split('@USERID Yes Yes No')
       IF $SECOND<>ReadProfileString($prffile,'General',$FIRST)
          $rc=WriteProfileString($prffile,'General',$FIRST,$SECOND)
       ENDIF
    NEXT
 NEXT
 

CLS
BREAK ON
 FOR EACH $FIRST IN Split('ProfileName DefaultProfile OverwriteProfile BackupProfile')
    FOR EACH $SECOND IN Split('@USERID Yes Yes No')
       ;IF $SECOND<>ReadProfileString($prffile,'General',$FIRST)
       ;   $rc=WriteProfileString($prffile,'General',$FIRST,$SECOND)
       ;ENDIF
       ?$First+','+$second
    NEXT
 NEXT
get $k

BREAK ON
 FOR EACH $FIRST IN Split('ProfileName DefaultProfile OverwriteProfile BackupProfile')
     PASSTHRU($First)
 NEXT
 FUNCTION PASSTHRU($First)
    FOR EACH $SECOND IN Split('@USERID Yes Yes No')
       ;IF $SECOND<>ReadProfileString($prffile,'General',$FIRST)
       ;   $rc=WriteProfileString($prffile,'General',$FIRST,$SECOND)
       ;ENDIF
       ?$First+','+$second
    NEXT
 ENDFUNCTION
get $k

 FOR EACH $f IN Split('ProfileName @userid,DefaultProfile Yes,

OverwriteProfile Yes,BackupProfile No',',')

    $header='General'

    $f=SPLIT($f)

    IF $f[1]<>ReadProfileString($prffile,$header,$f[0])

       $rc=WriteProfileString($prffile,$header,$f[0],$f[1])

    ENDIF

 NEXT

 FUNCTION PRFSETTINGS($prffile,$exchangeserver,$deleteitems)

    DIM $rc,$g,$s1,$s2

    ; Custom Profile Settings

    FOR EACH $g IN Split('ProfileName @userid,DefaultProfile Yes,

                        OverwriteProfile Yes,BackupProfile No',',')

       $header='General'

       $g=SPLIT($g)

       IF $g[1]<>ReadProfileString($prffile,$header,$g[0])

          $rc=WriteProfileString($prffile,$header,$g[0],$g[1])

       ENDIF

    NEXT

    FOR EACH $s1 IN Split('AutoNameCheck TRUE,ConfirmOnDelete FALSE,

                        RemoveSchdPlus FALSE,SelectEntireWord TRUE,

                        CloseOriginalMessage TRUE,GenReadReceipt FALSE,

                        GenDeliveryReceipt FALSE,SaveSentMail TRUE',',')

       $header='Service1'

       $s1=SPLIT($s1)

       IF $s1[1]<>ReadProfileString($prffile,$header,$s1[0])

          $rc=WriteProfileString($prffile,$header,$s1[0],s1[1])

       ENDIF

    NEXT

    IF $deleteitems='YES'

       IF 'TRUE'<>ReadProfileString($prffile,'Service1','EmptyWastebasket')

          $rc=WriteProfileString($prffile,'Service1','EmptyWastebasket','TRUE')

       ENDIF

    ELSE

       IF 'FALSE'<>ReadProfileString($prffile,'Service1','EmptyWastebasket')

          $rc=WriteProfileString($prffile,'Service1','EmptyWastebasket','FALSE')

       ENDIF

    ENDIF

    FOR EACH $s1 IN Split('HomeServer $exchangeserve,MailboxName @userid',',')

       $header='Service2'

       $s2=SPLIT($s2)

       IF $s2[1]<>ReadProfileString($prffile,$header,$s2[0])

          $rc=WriteProfileString($prffile,$header,$s2[0],$s2[1])

       ENDIF

    NEXT

 ENDFUNCTION

;Function       INIUPDATE()

;

;Author		Kent Dyer (leptonator@hotmail.com)

;

;Action		Updates an INI file on an array.

;

;Syntax		INIUPDATE("File","section","key","string",optional "operator")

;

;Version	0.5

;

;Date           25 March 2004

;

;Date Revised   25 March 2004

;

INIUPDATE($file,$section,$key,$string,optional $operator)

;Parameters 	File

;		File you are checking/modifying

;

;               Section

;               Section header you want to target in the file

;

;               Key

;               Which Key under the Header you are checking

;

;               String

;               Resulting string you are checking/setting

;

;               Operator (optional)

;               Default is <> or the Not operator, You could

;               use =, >=, <=, etc.               

;

;Remarks	This is to read in a structure of variables and conditions

;               This process then splits them out and checks and uses them.

;               This could be used for READVALUE/WRITEVALUE too.

;

;Returns	Nothing

; 

;Dependencies 	None

;

;KiXtart Ver	4.02

; 

;Example(s)

; $rc=SETOPTION('Explicit','On')

; $rc=SETOPTION('NoVarsInStrings','On')

; DIM $profiledir,$prf,$prffile,$g,$header,$k

; $profiledir='%temp%'

; $prf='Outlook.prf'

; $prffile=$profiledir+'\'+$prf

;

; FOR EACH $g IN Split('ProfileName @userid,DefaultProfile Yes,OverwriteProfile Yes,BackupProfile No',',')

;    $header='General'

;    $g=SPLIT($g)

;    INIUPDATE($prffile,$header,$g[1],$g[0])

; NEXT

; Code

 FUNCTION INIUPDATE($file,$section,$key,$string,optional $operator)

 DIM $rc

    IF NOT $operator

       $operator='<>'

    ENDIF

    REDIM $operator

       IF $string $operator ReadProfileString($file,$section,$key)

          $rc=WriteProfileString($file,$header,$key,$string)

       ENDIF

 ENDFUNCTION