Subversion Repositories DevTools

Rev

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

Rev Author Line No. Line
2 rsolanki 1 
 
2 
   <%
3 
     Option Explicit
4 
     Dim objLogon
5 
 
6 
     Set objLogon = Server.CreateObject("LoginAdmin.ImpersonateUser")
7 
     objLogon.Logon "username", "password", "DOMAIN"
8 
 
9 
     'Body of code for the page.
10 
     Response.write "OK"
11 
 
12 
     objLogon.Logoff
13 
     Set objLogon = Nothing
14 
   %>