Hi All,

I have a script for finalizing outlook for users, however I have to manually change the Enter full name each time that outlook is started for the first time, when finalizing the users nt profile..

Is there a regestry edit that will can be definied to use the @fullname macro? Also I have tried to force Outlook to use the folder list instead of the Outlook Bar, but this only works if the user is logged in twice.

Here is the script:

;Outlook 2000/xp setup
$VerKey = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE"
$ExeOutl = ReadValue($VerKey,"")
$VerOutl = GetFileVersion("$ExeOutl")
$VerChk = SubStr ($VerOutl, 1, 1)
$ProfKey = "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles"
$DefProf = ReadValue($ProfKey, "DefaultProfile") ;Current default profile
If $DefProf = "" ;If there is no default profile, create new profile
$FileLoc = "%windir%" ;Location to copy temp file to
$Prof= @ldrive+"mail\outlook.prf" ;name of the template prf
$File = "$FileLoc\outlook.PRF" ;Custom profile filename
$ExSrv = "scldentex" ;name of mailserver
Del "$File" ;Deletes any existing PRF file
Copy "$Prof" "$FileLoc" ;Copies default PRF file to PC
$section = "General"
$ = WriteProfileString ($FILE, $section, "Custom", "1")
$ = WriteProfileString ($FILE, $section, "ProfileName", "@FullName")
$ = WriteProfileString ($FILE, $section, "DefaultProfile", "Yes")
$ = WriteProfileString ($FILE, $section, "OverwriteProfile", "No")
$ = WriteProfileString ($FILE, $section, "DefaultStore", "Service2")
$section = "Service List"
;$ = WriteProfileString ($FILE, $section, "Service1", "Microsoft Outlook Client")
$ = WriteProfileString ($FILE, $section, "Service2", "Microsoft Exchange Server")
$ = WriteProfileString ($FILE, $section, "Service3", "Outlook Address Book")
$section = "Service2"
$ = WriteProfileString ($FILE, $section, "HomeServer", "$ExSrv")
$ = WriteProfileString ($FILE, $section, "MailBoxName", "@userid")
$ = WriteProfileString ($FILE, $section, "OfflineAddressBookPath", "%userprofile%\Local Settings\Application Data\Microsoft\Outlook")
$section = "Service3"
$ = WriteProfileString ($FILE, $section, "Ben", "True")
$section = "Service4"
$ = WriteProfileString ($FILE, $section, "Ben", "True")
?
? "Creating new outlook profile for @FullName"
;Creates the Messaging profile for Outlook 2000
If $Verchk = "9" Shell @ldrive+"mail\modprof.exe -P $File -x"
EndIf
Del "$File" ;Delete temp file
EndIf

$expview = "010000002c0000000200000003000000ffffffffffffffffffffffffffffffff62000000270000003"
$expview = $expview + "c030000ac02000001000000000000000100000000000000c00000006400000003000000"
$rc = WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Office Explorer","Frame",$expview,"REG_BINARY")
WRITEVALUE("HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook","FirstRunDialog","False","REG_SZ")

Thanks