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