Find email fra Active Diretcory

Hejsa,

Jeg bruger følg til at hive nogle info ud fra AD. Jeg ønsker også at finde brugerens standard e-mail adresse. Hvordan er dette muligt??


Dim User
Dim UserName
Dim UserDomain
Set User = GetObject("WinNT://" & UCase(Replace(request.servervariables("logon_user"), "\", "/")) & "")

strFullName = User.FullName
strDesc = User.Description
Set User = NOthing

Set WSHNetwork = CreateObject("WScript.Network")
strUser = ""
While strUser = ""
  strUser = WSHNetwork.UserName
Wend

Jeg har prøvet at være nettet rundt, men jeg kan ikke finde noget svar.