19/04/2006, 18:42
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 658
Antigüedad: 19 años, 7 meses Puntos: 3 | |
| Utilizando ADSI.... En la variable de aplicacion se setea el nombre del servidor NT
En el global.asa.... Sub Session_OnStart
lusr = ucase(Request.ServerVariables("LOGON_USER")))
Session("LOGIN") = lusr
Set User = Getobject("WinNT://" & Application("MAQUINA") & "/" & luser & ",user")
' Extrae Grupos al que pertenece por defecto el usuario
Dim grupo
grupo = ""
for each group in user.groups
grupo = grupo & "," & grp.Name
next |