code:

---

 
Function OutlookProfile($ProfileName, $ExchangeServer, optional $DefaultStore, optional $MakeDefault)
	DIM $ProfileKey, $DefaultProfile, $Profile, $File 

	if @inwin = 2	Exit(1)		return		endif
	if not $DefaultStore or val($DefaultStore) < 1 or val($DefaultStore) > 9
		$DefaultStore='2'
		endif
	if not $MakeDefault
		$MakeDefault='No'
	else
		$MakeDefault='Yes'
		endif
	$ProfileKey	= "HKEY_CURRENT_USER\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" 
		$ = WRITEPROFILESTRING ($FILE, "General", "Custom", "1")
		$ = WRITEPROFILESTRING ($FILE, "General", "ProfileName", $DefaultProfile)
		$ = WRITEPROFILESTRING ($FILE, "General", "DefaultProfile", $MakeDefault)
		$ = WRITEPROFILESTRING ($FILE, "General", "OverwriteProfile", "Append")
		$ = WRITEPROFILESTRING ($FILE, "General", "DefaultStore", "Service"+$DefaultStore)
		$ = WRITEPROFILESTRING ($FILE, "General", "UniqueService", "Yes")
		$ = WRITEPROFILESTRING ($FILE, "Service List", "Service1", "Microsoft Outlook Client")
		$ = WRITEPROFILESTRING ($FILE, "Service List", "Service2", "Microsoft Exchange Server")
		$ = WRITEPROFILESTRING ($FILE, "Service List", "Service3", "Outlook Address Book")
		$ = WRITEPROFILESTRING ($FILE, "Service List", "Service4", "Microsoft LDAP Directory")
		$ = WRITEPROFILESTRING ($FILE, "Service2", "HomeServer", $ExchangeServer)
		$ = WRITEPROFILESTRING ($FILE, "Service2", "MailBoxName", @userid)
		$ = WRITEPROFILESTRING ($FILE, "Service2", "OfflineAddressBookPath", "%userprofile%\Local Settings\Application Data\Microsoft\Outlook")
		$ = WRITEPROFILESTRING ($FILE, "Service3", "Ben", "True")
		SHELL 'cmd /c @scriptdir\modprof.exe -P "$File" -x'
		sleep 1
		DEL "$File"
		ENDIF

	EndFunction
 

---