Ayuda para implementar function de autenticar usuario

Posts: 99

Joined: Thu Aug 02, 2012 03:21 PM

Ayuda para implementar function de autenticar usuario
Posted: Mon Nov 24, 2014 03:03 PM

Saludos a todos, alguien que pueda ayudar a transferir esta funcion visual basic que tengo en excel y funciona bien, pero no he podido hacer que funcione en (x)Harbour.

Saludos,

Hebert Vargas

Code (fw): Select all Collapse

Function Authenticated(strUserID As String, strPassword As String, Optional strDNSDomain As String = "") As Boolean
         If strDNSDomain = "" Then
            Set objRootDSE = GetObject("LDAP://RootDSE")
            strDNSDomain = objRootDSE.Get("defaultNamingContext")
         End If

         'Authenticate
         Set dso = GetObject("LDAP:")
         On Error Resume Next
         Err.Clear
         Set ou = dso.OpenDSObject("LDAP://" & strDNSDomain, strUserID, strPassword, 1)
         Authenticated = (Err.Number = 0)
End Function

Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20141106)

FiveWin Version: FWHX 15.01

BCC 5.8.2

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Ayuda para implementar function de autenticar usuario
Posted: Mon Nov 24, 2014 04:42 PM

Mira se ayuda:

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=26995&p=150642&hilit=Authenticated#p150642

Salu2

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion