code:

---

Function OutlookProfile($ProfileName, $ExchangeServer, optional $DefaultStore, optional $MakeDefault)
	DIM $ProfileKey, $DefaultProfile, $Profile, $File 
	if @inwin<>1	Exit(1)		return		endif
	if not $DefaultStore or val($DefaultStore)<1 or val($DefaultStore)>9
		$DefaultStore=2
	endif
	if $MakeDefault
		$MakeDefault='Yes'
	else
		$MakeDefault='No'
	endif
        $UserShell	= 'HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders'
        $LocalAppData   = ReadValue($UserShell,'Local AppData')
	$ProfileKey	= 'HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles'
	$DefaultProfile	= ReadValue($ProfileKey,'DefaultProfile')
	$Profile	= EnumKey($ProfileKey+$ProfileName, 0)
	IF @error or $profile='' or $DefaultProfile=''
		$DefaultProfile=$ProfileName
		$File='%temp%\modprof.PRF'				
		copy '@scriptdir\modprof.PRF' '$File'
		$RC=WRITEPROFILESTRING($FILE,'General','Custom',1)
		$RC=WRITEPROFILESTRING($FILE,'General','ProfileName',$DefaultProfile)
		$RC=WRITEPROFILESTRING($FILE,'General','DefaultProfile',$MakeDefault)
		$RC=WRITEPROFILESTRING($FILE,'General','OverwriteProfile','Append')
		$RC=WRITEPROFILESTRING($FILE,'General','DefaultStore','Service'+$DefaultStore)
		$RC=WRITEPROFILESTRING($FILE,'General','UniqueService','Yes')
		$RC=WRITEPROFILESTRING($FILE,'Service List','Service1','Microsoft Outlook Client')
		$RC=WRITEPROFILESTRING($FILE,'Service List','Service2','Microsoft Exchange Server')
		$RC=WRITEPROFILESTRING($FILE,'Service List','Service3','Outlook Address Book')
		$RC=WRITEPROFILESTRING($FILE,'Service List','Service4','Microsoft LDAP Directory')
		$RC=WRITEPROFILESTRING($FILE,'Service2','HomeServer',$ExchangeServer)
		$RC=WRITEPROFILESTRING($FILE,'Service2','MailBoxName',@userid)
		$RC=WRITEPROFILESTRING($FILE,'Service2','OfflineAddressBookPath',$LocalAppData+'\Microsoft\Outlook')
		$RC=WRITEPROFILESTRING($FILE,'Service3','Ben','True')
		SHELL 'cmd /c @scriptdir\modprof.exe -P "$File" -x >nul'
		sleep 1
		DEL "$File"
	ENDIF
EndFunction
  

---