New subject: [Bug 17550] Simple application made with Sysbase PowerBuilder can not log-in

27 Feb 2009

      http://bugs.winehq.org/show_bug.cgi?id=17550

           Summary: ADODB  ...  class {6c736db1-bd94-11d0-8a23-00aa00b58e10}
                    not registered  ???
           Product: Wine
           Version: 1.0.1
          Platform: PC
        OS/Version: other
            Status: UNCONFIRMED
          Severity: normal
          Priority: P1
         Component: -unknown
        AssignedTo: wine-bugs(a)winehq.org
        ReportedBy: fmorales_htw(a)hotmail.com

Created an attachment (id=19700)
 --> (http://bugs.winehq.org/attachment.cgi?id=19700)
wine error 

Hello. 

I write a simple application with Sysbase PowerBuilder.

The application is a simple client application that connect with a oracle 8
database but users are validate agains the Active Directory of a windows 2003
server.

The application works ... it start ... but after click on "login" buttom ... it
show the error:  

Error: When calling to the external object function properties. On line 37 
of the function f_ldap_logon of the object f_ldap_logon 

The application works fine in a windows XP new fresh installation, just I need
to install the java and the oracle 8i client. 
------ 

I am trying with ubuntu 8.10 distro and Fedora 10 (the lastes ubuntu and
fedora) with wine stable 1.0.1 

First I install java with wine, and all works fine (I need it for the universal
oracle installer). 

After, I install the oracle 8i client ... that it is installed successfully 

.................. 

I try to run the application and it´s works .... the application start and
show me the validation screen but after click enter with the user and password
.... the application show me an error "Class name not found" .... making a
debug with winedbg I could see that something is wrong with the ODBC /OLEDB so
I try to install Winetricks 
MDAC 25/27/28 ... I try all, (I have a vmware virtual machine and I have make
several snapshot and reserse it trying all the MDAC). 

When I install MDAC28 .... the "Class name not found" error disappears (not
with MDAC27).... but my application show me ... 

Error: When calling to the external object function properties. On line 37 
of the function f_ldap_logon of the object f_ldap_logon 

this is the function (see the bottom): 
and this is the line 37 
---> adoConnection.Properties("User ID", ls_user) 

and wine show me the error: 

err:ole:CoGetClassObject class {6c736db1-bd94-11d0-8a23-00aa00b58e10} not
registered 
err:ole:CoGetClassObject no class object {6c736db1-bd94-11d0-8a23-00aa00b58e10}
could be created for context 0x1 

But .... this key is not in my windows XP and others, I put it on google
"6c736db1-bd94-11d0-8a23-00aa00b58e10" and it is something realative to OLEDB
but ... I dont know what is happening. 

Please help me if it is possible. 

Maybe the bug 5655 has relation ????????????

Please, put in googe 6c736db1-bd94-11d0-8a23-00aa00b58e10 ... there are a lot
of people with the same problem

Thanks you very much. 

Francisco. 

// f_ldap_logon -> Boolean 
// Validar el usuario en el Active directory (LDAP) 
// as_dominio 
// as_user 
// as_password 
// VMC GC-3857 17/09/2008 Creación 
// VMC GC-3895 29/09/2008 Recuperar la dirección del servidor del LDAP de la
BD. Para que funcione en equipos que no están validados en el dominnio. 

OLEObject adoCommand, adoConnection, adoRootDSE 
OLEObject adoRecordset 
String ls_Query, ls_Value, ls_DNSDomain 
String ls_user, ls_pass, ls_domain, ls_red 
Integer li_rc 
boolean lb_valido 

ls_domain = as_dominio 
ls_red = as_user 
ls_pass = as_password 
ls_user = ls_red + '@' + ls_domain 

// Create objects 
adoCommand = Create OLEObject 
adoConnection = Create OLEObject 
adoRootDSE = Create OLEObject 

// Setup ADO objects 
li_rc = adoCommand.ConnectToNewObject("ADODB.Command") 
If f_Ldap_ConnectError(li_rc, "ADODB.Command") Then Return FALSE 

li_rc = adoConnection.ConnectToNewObject("ADODB.Connection") 
If f_Ldap_ConnectError(li_rc, "ADODB.Connection") Then Return FALSE 

adoConnection.Provider = "ADsDSOObject" 

//Conexión con autentificación de usuario 
adoConnection.Properties("User ID", ls_user) 
adoConnection.Properties("Password", ls_pass) 

adoConnection.Open("Active Directory Provider") 
adoCommand.ActiveConnection = adoConnection 

//[I]VMC GC-3895 29/09/2008 Recuperar la dirección del servidor del LDAP de la
BD. Para que funcione en equipos que no están validados en el dominnio. 
// Determine the domain 
//li_rc = adoRootDSE.ConnectToObject("LDAP://RootDSE") 
//If f_Ldap_ConnectError(li_rc, "ADODB.Connection") Then Return FALSE 
//ls_DNSDomain = adoRootDSE.Get("defaultNamingContext") 
SELECT ldap_ip INTO :ls_DNSDomain FROM aplicacion WHERE
upper(nombre)=upper(:gs_siglas_aplicacion) ; 
If (SQLCA.SQLCode<>0) Then Return FALSE 
//[F]VMC GC-3895 29/09/2008 

//Consulta para comprobar si el usuario con el que se ha realizado la conexión
es válido. 
ls_Query = "SELECT sAMAccountName " 
ls_Query += "FROM 'LDAP://" + ls_DNSDomain + "' " 
ls_Query += "WHERE objectClass='user' and objectCategory='person' and
samaccountname='"+ ls_red +"'" 

try 
// Run the query 
adoCommand.CommandText = ls_Query 
adoRecordset = adoCommand.Execute 
// Recuperar el lod datos del usuario conectado. 
//Esto requiere que todo usuario del dominio, tenga permisos para consultar los
datos del ldap. 
//Si los usuarios del dominio no tuvieran permisos para consultar el ldap,
habría que quitar las dos sentencias siguientes. 
If NOT adoRecordset.EOF Then ls_Value =
String(adoRecordset.Fields("sAMAccountName").Value) 
If upper(ls_value) = upper(ls_red) then lb_valido = TRUE 
// Close the connection 
adoRecordset.Close 
catch ( oleruntimeerror orte ) 
//No tiene permisos 
//MessageBox("OLERuntimeError", orte.Text) 
end try 

// Close the connection 
adoConnection.Close 

// Destroy objects 
Destroy adoCommand 
Destroy adoConnection 
Destroy adoRootDSE 

Return lb_valido

-- 
Configure bugmail: http://bugs.winehq.org/userprefs.cgi?tab=email
Do not reply to this email, post in Bugzilla using the
above URL to reply.
------- You are receiving this mail because: -------
You are watching all bug changes.

[Bug 17550] New: ADODB ... class {6c736db1-bd94-11d0-8a23-00aa00b58e10} not registered ???

wine-bugs＠winehq.org

wine-bugs＠winehq.org

wine-bugs＠winehq.org

wine-bugs＠winehq.org

wine-bugs＠winehq.org

wine-bugs＠winehq.org

wine-bugs＠winehq.org

tags

participants (1)