Ok..
Think I have figured it out..
Code:
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
Here is the updated PRFSETTINGS update -
Code:
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
Thanks,
Kent