A simple script to backup Outlook PST's to a network location

pst-backup.vbs

Dim FSO
Dim oShell

Set FSO = CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("WScript.Shell")

Set objOutlook = GetObject(, "Outlook.Application")

For Each objInspector In objOutlook.Inspectors          
	objInspector.CurrentItem.Save
	objInspector.Close True
Next

objOutlook.quit

' Sleep for 600 to give Outlook time to release the PST files
WScript.sleep 600

' Path will need changing to your network location and PST location
FSO.CopyFile "C:\Outlook.pst", "\\server1\area$\Email\Outlook.pst"
FSO.CopyFile "C:\Archive.pst", "\\server1\area$\Email\Archive.pst"

oShell.Run "outlook"