| 2 |
rsolanki |
1 |
<%@Language="VBSCRIPT" %>
|
|
|
2 |
<%
|
|
|
3 |
Option Explicit
|
|
|
4 |
Dim objLogon, retval
|
|
|
5 |
|
|
|
6 |
Set objLogon = Server.CreateObject("LoginAdmin.ImpersonateUser")
|
|
|
7 |
|
|
|
8 |
'retval = objLogon.AuthenticateUser ( "username", "password", "domain" ) ' For domain authentication
|
|
|
9 |
'retval = objLogon.AuthenticateUser ( "username", "password", "." ) ' For local machine accounts authentication
|
|
|
10 |
retval = objLogon.AuthenticateUser ( "username", "password", "domain" )
|
|
|
11 |
|
|
|
12 |
' 0 = Login OK
|
|
|
13 |
' Other code = Login Failed
|
|
|
14 |
Response.write "Login result: "& retval
|
|
|
15 |
|
|
|
16 |
|
|
|
17 |
Set objLogon = Nothing
|
|
|
18 |
%>
|