'-----------------------------------------------------------------
' Detects the last used Identity for the current User and then
' looks for the file location of the Outlook Express files
' for that Identity
'
' Use this script at your own risk
'
' Written by Carsten Cumbrowski
' http://www.cumbrowski.com/ 
'-----------------------------------------------------------------
Dim WshShell, IdentityName, IdentityGUID 
Dim sDirLookup, sDirLoc, sMsg 

Set WshShell = WScript.CreateObject("Wscript.Shell")

IdentityName = WshShell.RegRead("HKCU\Identities\Last Username")
IdentityGUID = WshShell.RegRead("HKCU\Identities\Last User ID")

sDirLookup = "HKCU\Identities\" & IdentityGUID & "\Software\Microsoft\Outlook Express\5.0\Store Root"
sDirLoc = WshShell.RegRead(sDirLookup)

Set WshShell  = Nothing

sMsg = "The Last Used Identity for this user was the following" & vbcrlf
sMsg = sMsg & "Name: " & IdentityName & vbcrlf
sMsg = sMsg & "ID: " & IdentityGUID & vbcrlf & vbcrlf
sMsg = sMsg & "The Storage Location for this Identity is" & vbcrlf
sMsg = sMsg & sDirLoc 

Wscript.echo sMsg 

WScript.Quit