|
The Login
Utility
<%@ Language=VBScript %>
<% Response.Buffer = True %>
<%
dim logonUser
logonUser = Request.ServerVariables("LOGON USER")
if logonUser = "" then
Response.Status = "401 Unauthorized"
Response.Clear
Response.AddHeader "WWW-Authenticate","NTLM"
Response.End
end if
%>
<html>
<head>
</head>
<body>
<p>You have been authenticated as: <%=logonUser%></p>
</body>
</html>
|
