'Change_wab_path.vbs - Change the location of the OE Address Book.
' by Tom Koch, Microsoft MVP for Outlook Express
' http://www.insideoe.com/
 
'   You only need to do 2 simple things to use this script

'   Ignore the next line. It is required.
Set WshShell = WScript.CreateObject("Wscript.Shell")

'Edit the next line to show your path and filename between the quotes.

wabpath = "C:\My Documents\Work.wab"

'Now click File| Save as... and make sure the extension
'is VBS and not TXT, like this:
'    Change_wab_path.vbs

'The script changes the WAB location and then opens 
'the WAB. If you don't want the WAB to open, scroll to
'the bottom of this file to see how to change that.

'The rest of the script follows, with brief explanations to 
'	help those who are just learning, like me. :-)
'
'  This writes your path to the registry, then confirms.

WshShell.RegWrite "HKCU\Software\Microsoft\WAB\WAB4\Wab File Name\", wabpath
MsgBox "The default Address Book has been changed to" &vbCR & wabpath, 4096, "Confirmation"

'Add a single quote (') at the start of the next line if you 
'do NOT want the script to open the Address Book.

WSHShell.Run "wab.exe"

Set WSHShell = Nothing