HOLA A TODOS
TENGO UNA CONSULTA, QUIERO AUTENTICAR MIS USUARIOS WINDOWS ATRAVES DE UNA APLICACION HECHA EN POWER BUILDER, ESTOY TRATANDO DE USAR LDAP, PERO NO SE COMO OBTENER EL PASSWORD, CON LDAP HE LOGRADO OBTENER EL NOMBRE DEL EQUIPO Y EL USUARIO USANDO ESTAS FUNCIONES EN UN OBJETO NO VISUAL DE LA SGTE MANERA.
FUNCION OF_GETMACHINENAME() RETURNS STRING // OBTIENE LA MAQUINA
integer li_rc
string ls_machine
OLEObject l_olewinntsysteminfo
l_olewinntsysteminfo = CREATE OLEObject
try
li_rc = l_olewinntsysteminfo.ConnectToNewObject( "WinNTSystemInfo" )
IF li_rc = 0 THEN
ls_machine = l_olewinntsysteminfo.computername
l_olewinntsysteminfo.DisconnectObject()
END IF
catch ( throwable e )
MessageBox ( "LDAP Error", e.GetMessage() )
finally
Destroy l_olewinntsysteminfo
end try
Return ls_machine
FUNCION OF_GETUSERNAME() RETURNS STRING //OBTIENE EL USUARIO
integer li_rc
string ls_user,ls_pass
OLEObject l_olewinntsysteminfo
l_olewinntsysteminfo = CREATE OLEObject
try
li_rc = l_olewinntsysteminfo.ConnectToNewObject( "WinNTSystemInfo" )
IF li_rc = 0 THEN
ls_user = l_olewinntsysteminfo.username
ls_pass = l_olewinntsysteminfo.userpassword
l_olewinntsysteminfo.DisconnectObject()
END IF
catch ( throwable e )
MessageBox ( "LDAP Error", e.GetMessage() )
finally
Destroy l_olewinntsysteminfo
end try
Return ls_user
LO QUE QUIERO AHORA ES OBTENER EL PASSWORD, COMO PUEDO HACER ESO.
GRACIAS Y SALUDOS
