<%@Language="VBSCRIPT" %> <% Option Explicit Dim objLogon, retval Set objLogon = Server.CreateObject("LoginAdmin.ImpersonateUser") 'retval = objLogon.AuthenticateUser ( "username", "password", "domain" ) ' For domain authentication 'retval = objLogon.AuthenticateUser ( "username", "password", "." ) ' For local machine accounts authentication retval = objLogon.AuthenticateUser ( "username", "password", "domain" ) ' 0 = Login OK ' Other code = Login Failed Response.write "Login result: "& retval Set objLogon = Nothing %>