Break on
ReDirectOutput("c:\outlook_config_log.txt", 1)
;Get outlook version
$olpath = ReadValue("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE", "Path")
?"Outlook path = " $olpath
$olversion = GetFileVersion($olpath + "outlook.exe", "ProductVersion")
?"Outlook version = " $olversion
Select
Case Left($olversion, 2) = "11"
;Outlook 2003
Copy @LDRIVE + "\tools\outlook2003.prf" @HOMESHR + "\" + @USERID + "\outlook.prf"
$rc = DelValue("HKCU\Software\Microsoft\Office\11.0\Outlook\Setup", "First-Run")
?"Deleting first run registry value result: " $rc
$rc = WriteValue("HKCU\Software\Microsoft\Office\11.0\Outlook\Setup", "ImportPRF", @HOMESHR + "\" + @USERID + "\outlook.prf", "REG_SZ")
?"Write import prf registry value result: " $rc
Case Left($olversion, 2) = "12"
;Outlook 2007
Copy @LDRIVE + "\tools\outlook2007.prf"
$rc = DelValue("HKCU\Software\Microsoft\Office\12.0\Outlook\Setup", "First-Run")
?"Write import prf registry value result: " $rc
$rc = WriteValue("HKCU\Software\Microsoft\Office\12.0\Outlook\Setup", "ImportPRF", @HOMESHR + "\" + @USERID + "\outlook.prf", "REG_SZ")
?"Write import prf registry value result: " $rc
EndSelect
ReDirectOutput("")