'xp_findwab.vbs- Locates your Windows Address Book
'© Doug Knox - 9/8/2003

Set WSHShell = WScript.CreateObject("WScript.Shell")
X = WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\WAB\WAB4\Wab File Name\")

For I = 1 to Len(X)
   If Mid(X,I,1) = "\" Then
	Z = I
   End If
Next

Message = "Your address book is located at:" & vbCR & vbCR
Message = Message & X & vbCR & vbCR
Message = Message & "Would you like to go to that folder?" & vbCR & vbCR
Message = Message & "Copyright 2003 - Doug Knox"

X = Left(X, Z -1)

Y = MsgBox(Message, vbYesNo, "Found it!!")

If Y = 6 Then

WshShell.Run("%WINDIR%\explorer.exe " & X)

End if

Set WshShell = Nothing