Subversion Repositories DevTools

<%@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
%>