Leer usuario sesión en windows

[monkyta]

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