05/04/2008, 18:23
|
| | | Fecha de Ingreso: noviembre-2005
Mensajes: 658
Antigüedad: 19 años, 5 meses Puntos: 3 | |
| Re: Leer usuario sesión en windows
Asi se hace
En el global.asa pones
Sub Session_OnStart
dim lusr
' Obtiene Login autentificado y extrae Nombre Completo
lusr = Replace(ucase(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
end if
Next |