A bueno si es el normal y corriente xdd puedes hacerlo... usando ADSI... en el global.asa... Application("MAQUINA") se setea con el nombre del Server:
Sub Session_OnStart
dim lusr
' Obtiene Login autentificado y extrae Nombre Completo
lusr = Request.ServerVariables("LOGON_USER")
Session("LOGIN") = lusr
set obj = GetObject("WinNT://" & Application("MAQUINA") & ",computer")
obj.Filter=Array("user")
For each usr in obj
if ucase(usr.name) = lusr then
Session("USUARIO")= usr.Fullname
Session("DESC") = usr.Description
Session("MAQUINA")= Application("MAQUINA")
Session("exppsw") = DateDiff("d",now,usr.PasswordExpirationDate)
Session("fecexp") = usr.PasswordExpirationDate
etc etc
Si quieres las carpetas que tiene acceso un usuario usas
For each grp In usr.Groups
.....grp.Name
grp.Description
next
exit for
Info:
http://www.forosdelweb.com/showthread.php?t=390168
http://www.codeproject.com/asp/webactivedirlogin.asp