strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("Select * from CIM_DataFile Where Extension = 'pst'")
For Each objFile in colFiles
Wscript.Echo objFile.Drive & objFile.Path
Wscript.Echo objFile.FileName & "." & objFile.Extension
For working out like trouble you may use pst repair tool outlook 2003. It can work with invalid pst files bigger than 2 gb. The tool doesn't modify source data during restoration. Starts under all supported Windows OS and software configurations of your system.
Look at this
You can download a command line tool named shadowspawn on the link below.
this tools uses VSS, so you can even copy the files while they are used by outlook.
ShadowSpawn.exe c:\email x: robocopy x:\ i:\email /MIR