pst default location

HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook
ForcePSTPath
REG_EXPAND_SZ

'Option Explicit
Set objFSO = CreateObject("Scripting.FileSystemObject")
msgbox "Default PST path setup wizard!",vbInformation ,"Default PST path setup kit"
MyPath = Trim(BrowseFolder( "My Computer", False ))
If ( Len(MyPath) > 3 ) and objFSO.FolderExists(MyPath) Then
  RunShell "reg add ""HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook"" /v ForcePSTPath /t REG_EXPAND_SZ /d """ & MyPath & """ /f"
  Wscript.Echo "Default PST folder is set to : " & ReadReg("HKEY_CURRENT_USER\Software\Microsoft\Office\12.0\Outlook\ForcePSTPath")
End If
Sub RunShell(cmd)
  Set objShell = CreateObject("WScript.Shell")
  objShell.Exec(cmd).Stdout.ReadAll
End Sub
Function ReadReg(reg_path)
  Set objShell = CreateObject("WScript.Shell")
  ReadReg = objShell.RegRead(reg_path)
End Function
Function BrowseFolder( myStartLocation, blnSimpleDialog )
    Const MY_COMPUTER   = &H11&
    Const WINDOW_HANDLE = 0 ' Must ALWAYS be 0
    Dim numOptions, objFolder, objFolderItem
    Dim objPath, objShell, strPath, strPrompt
    ' Set the options for the dialog window
    strPrompt = "Select a folder:"
    If blnSimpleDialog = True Then
        numOptions = 0      ' Simple dialog
    Else
        numOptions = &H10&  ' Additional text field to type folder path
    End If
   
    ' Create a Windows Shell object
    Set objShell = CreateObject( "Shell.Application" )
    ' If specified, convert "My Computer" to a valid
    ' path for the Windows Shell's BrowseFolder method
    If UCase( myStartLocation ) = "MY COMPUTER" Then
        Set objFolder = objShell.Namespace( MY_COMPUTER )
        Set objFolderItem = objFolder.Self
        strPath = objFolderItem.Path
    Else
        strPath = myStartLocation
    End If
    Set objFolder = objShell.BrowseForFolder( WINDOW_HANDLE, strPrompt, _
                                              numOptions, strPath )
    ' Quit if no folder was selected
    If objFolder Is Nothing Then
        BrowseFolder = ""
        Exit Function
    End If
    ' Retrieve the path of the selected folder
    Set objFolderItem = objFolder.Self
    objPath = objFolderItem.Path
    ' Return the path of the selected folder
    BrowseFolder = objPath
End Function