
03/05/2006, 11:16
|
| | Fecha de Ingreso: noviembre-2005
Mensajes: 658
Antigüedad: 19 años, 6 meses Puntos: 3 | |
Con LDAP o ADSI puedes hacerlo... aca va una parte usando ADSI... va 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 |