Microsoft Outlook email - personal folders keep disappearing

Here is the script that is supposed to import a prf file called default.prf.

Dim WSHShell, n, MyBox, p, t, mustboot, errnum, vers
Dim enab, disab, jobfunc, itemtype
Set WSHShell = WScript.CreateObject("WScript.Shell")
padd = "HKCU\Software\Microsoft\Office\11.0\Outlook\Setup \ImportPRF"
pval = "\\wns02.holtswell.local\users\default.PRF"
pdel = "HKCU\Software\Microsoft\Office\11.0\Outlook\Setup \First-Run"
itemtype = "REG_SZ"
Err.Clear
On Error Resume Next
n = WSHShell.RegRead (p)
if Err.Number0 then
WSHShell.RegWrite padd, pval, itemtype
WSHShell.Regdelete pdel
end if

Now thinking about it what maybe happening is when a new user logs on and
the script is run this sets up the exchange server and mail box fine and when
the user goes to add a personal folder it also works OK until the next time
the user logs on and the default.prf is being reapplied hence the
disappearing folders.

If this is what is happening does anyone know how to import a .prf file only
once?

"Paul" wrote:

Hi,

This is the setup. When we create a personal folder and point the location
of the pst file to the users my documents, which is really a redirected
network location everything is great until the pc is rebooted.

After a reboot their are no personal folders showing and users have to add a
new personal folder and browse to their my documents to locate the pst file.

The outlook profile was automatically created by running a script that
pointed to an edited .prf file.

Here is an extract from the prf file that may be the problem:

[Service1]
OverwriteExistingService=No
UniqueService=Yes
MailboxName=%UserName%
HomeServer=wns06.holtswell.local
OfflineAddressBookPath=%USERPROFILE%\local settings\application
data\microsoft\outlook\
OfflineFolderPath=%USERPROFILE%\local settings\application
data\microsoft\outlook\outlook.ost
AccountName=Microsoft Exchange Server.