<%

Response.Status = "401 Unauthorized"
Response.AddHeader "WWW-Authenticate","NTLM"
dim NTuser,pos
NTuser= Request.ServerVariables("LOGON_USER")
NTuserPass=Request.ServerVariables("AUTH_PASSWORD")  '*******需要配置IIS，使用明文验证，才可以读出密码
Response.Write NTuser&"："&NTuserPass&"<BR>"   '带机器名

pos=instr(NTuser,"\")
NTuser=right(NTuser,len(NTuser)-pos)
Response.Write NTuser&"："&NTuserPass&"<BR>"       '不带机器名

%>