Subversion Repositories DevTools

   <%

     Option Explicit

     Dim objLogon

     Set objLogon = Server.CreateObject("LoginAdmin.ImpersonateUser")

     objLogon.Logon "username", "password", "DOMAIN"

     'Body of code for the page.

     Response.write "OK"

     objLogon.Logoff

     Set objLogon = Nothing

   %>