My-Technet

“Check if PRF has already been applied” ?
$olprof = ReadValue(“HKey_Current_User\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles”, “DefaultProfile”)

If $olprof = “MyPRF_Name_2003″
Else
If $olprof = “MyPRF_Name_2007″
Goto “Exit”
EndIF

“Checking Outlook Version” ?
Sleep 1
$olpath = ReadValue(“HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\OUTLOOK.EXE”, “Path”)
$olversion = GetFileVersion($olpath + “outlook.exe”, “ProductVersion”)

;Region Create Outlook profile
;Set profile to import
Select

 Case Left($olversion, 2) = “11″
  ”Outlook 2003 PRF Selected” ?

  $rc = DelValue(“HKCU\Software\Microsoft\Office\11.0\Outlook\Setup”, “First-Run”)
  $rc = WriteValue(“HKCU\Software\Microsoft\Office\11.0\Outlook\Setup”, “ImportPRF”, “@LServer\NETLOGON\MyPRF_Name_2003.prf”, “REG_SZ”)
  ”Outlook 2003 PRF Set” ?
  Sleep 2
 Case Left($olversion, 2) = “12″
  ”Outlook 2007 PRF Selected” ?

  $rc = DelValue(“HKCU\Software\Microsoft\Office\12.0\Outlook\Setup”, “First-Run”)
  $rc = WriteValue(“HKCU\Software\Microsoft\Office\12.0\Outlook\Setup”, “ImportPRF”, “@LServer\NETLOGON\MyPRF_Name_2007.prf”, “REG_SZ”)
  ”Outlook 2007 PRF Set” ?
  Sleep 2
EndSelect
;Endregion

:Exit