VBScript Mount PST File on Outlook

Mount the PST files from list on Outlook.
PST Files list save in pstlist.txt
File Name openpst.vbe

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("pstlist.txt")
set objOutlook = createObject("Outlook.Application")
set objMAPI = objOutlook.GetNamespace("MAPI")
do while not objFile.AtEndOfStream
    fPath =  objFile.ReadLine()
    objMAPI.AddStore fPath
loop