Code Snippet
snServername = wscript.arguments(0)
mbMailboxName = wscript.arguments(1)
set csCDOSession = CreateObject("MAPI.Session")
pfProfile = snServername & vbLf & mbMailboxName
csCDOSession.Logon "","",False,True,0,True, pfProfile
If csCDOSession.Inbox.Messages.Count <> 0 then
Set msMessage = csCDOSession.Inbox.Messages.GetFirst
wscript.echo "Oldest Mail " & DateDiff("n",msMessage.TimeReceived,Now()) & " minutes old"
Set msMessage = csCDOSession.Inbox.Messages.GetLast
wscript.echo "Newest Mail " & DateDiff("n",msMessage.TimeReceived,Now()) & " minutes old"
Else
wscript.echo "Mailbox Empty"
End if