Entry

How can I automatically obtain the Windows NT Log-On ID on ISS 4.0?

May 23rd, 2000 06:52
unknown unknown, caiuby

You must use server variables to obtain the IDs. Take a look at this:

<%
Private Sub ShowServerVariables()

        Response.Write("<table align=center border=1>")

        Response.Write("<tr><td colspan=2 align=center><font face=arial
size=4 color=red><b>")
        Response.Write("Server Variables" & "</b></font></td></tr>")
        For Each strKey In Request.ServerVariables
                SerVal = Request.ServerVariables(strKey)
                if len(SerVal) > 0 and left(StrKey, 4) <> "ALL_" then
'don't need ALL fields as we have specific details elsewhere

                        Response.Write("<tr><td valign=top><font 
face=arial
size=2 color=blue><b>")
                        Response.Write(strKey & "</b></font></td>")
                        Response.Write("<td><font face=arial size=2
color=darkblue>")
                        Response.Write(SerVal & "</font></td></tr>" &
vbCRLF)
                end if
        next

        Set objShell = CreateObject("WScript.Shell")
        Set objEnv = objShell.Environment("SYSTEM")
        Response.Write("<tr><td colspan=2 align=center><font face=arial
size=4 color=red><b>")
        Response.Write("Environment Variables" & 
"</b></font></td></tr>")
        For Each strEnv In objShell.Environment
                EqualSign = instr(strEnv, "=")
                EnvVar = left(strEnv, EqualSign - 1)
                EnvVal = mid(strEnv, EqualSign + 1)
                if left(EnvVal, 1) = "%" then           'elucidate 
aliases
                        EnvVal = 
objShell.ExpandEnvironmentStrings(EnvVal)
                end if
                if len(EnvVal) > 0 then
                        Response.Write("<tr><td valign=top><font 
face=arial
size=2 color=blue><b>")
                        Response.Write(EnvVar & "</b></font></td>")
                        Response.Write("<td><font face=arial size=2
color=darkblue>")
                        Response.Write(EnvVal & "</font></td></tr>" &
vbCRLF)
                end if
        next
        Set objShell = nothing

        Response.Write("</table>")

end sub

call ShowServerVariables()
%>