'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 = "A Windows címjegyzék jelenlegi helye:" & vbCR & vbCR
Message = Message & X & vbCR & vbCR
Message = Message & "Megnyissam a tárolómappát?" & vbCR & vbCR

X = Left(X, Z -1)

Y = MsgBox(Message, vbYesNo, "Windows Címjegyzék helye")

If Y = 6 Then

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

End if

Set WshShell = Nothing