' Determine outlook version
if objOutlook.Version >= "11.0" And objOutlook.version <= "11.1" Then 
sOutlookVersion = "11" 
End If 
if objOutlook.Version >= "10.0" And objOutlook.version <= "10.1" Then 
sOutlookVersion = "10" 
End If

Set oShell = CreateObject("WScript.Shell")
oShell.Run Chr(34) & "C:\Programme\Microsoft Office\OFFICE" & sOutlookVersion & _
  "\Outlook.exe" & Chr(34) & " /importprf" & _
  "%logonserver%\NETLOGON\Outlook_Konfig\Outlook.prf",1,False
End If

if objOutlook.Version >= "11.0" And objOutlook.version <= "11.1" Then 
sOutlookVersion = "11"