Esta rotina pega o nome, o login e o domínio do usuário, já criando um

Esta rotina pega o nome, o login
e o domínio do usuário, já criando
uma Session com cada um destes valores !

<%
Dim UserID, wUserName, wDominio, wUser, oUser
UserID = ""

If IsEmpty(UserID)
Or IsNull(UserID) Or UserID = "" Then
UserID = Request.ServerVariables("LOGON_USER")
UserID = LCase(UserID)

If IsEmpty(UserID)
Or IsNull(UserID) Or UserID = "" Then
Response.Status = "401 Acesso Negado"
Response.Write ("Negado. Você não
está autorizado a este site.")
Response.End
Else
UserID = Replace(UserID, "", "/")
If InStr(UserID, "/") < 1 Then
UserID = "defaultdomain/" & UserID
End If
End If

End If

GetName = ""
wUserName = "Usuário não cadastrado"

mudar = Split(UserID,
"/")

wDominio = mudar(0)
wUser = mudar(1)

Set oUser = GetObject("WinNT://"
& wDominio & "/" & wUser)
wUserName = oUser.FullName
If err.Number <> 0 Then
err.Clear
wUserName = "erro – Usuário não cadastrado"
End If
Session("Nome") = wUserName
Session("Login") = UCase(wUser)
Session("Dominio") = UCase(wDominio)

response.write
Session("Nome") & "<br>"
response.write Session("Login") & "<br>"
response.write Session("Dominio") & "<br>"
%>