Subversion Repositories DevTools

Rev

Rev 2 | Blame | Compare with Previous | Last modification | View Log | RSS feed 


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