Authenticate Against Active Directory

Uses the custom DEVLIB object to authenticate a username and password combination against Active Directory. This code will work only on UWEC servers.

     Public Function logon(strUser,strPassword)
          dim bolresult
          dim objADSI
          
          set objADSI = server.CreateObject("devlib.UWECADSI")
               bolResult = objADSI.ValidLogin(strUser,strPassword)
          Set objADSI = nothing

          logon = bolResult
     End Function