VSB into PHP

Anon

I have to translate a script from Visual Basic Script into PHP. I am new with both =(. It is not much, it is just like 15 lines of code. Could anyone help me please? Maybe by pointing me to the right direction on where to look. For instance, how do you encode something like:

set adoConnection=CreateObject("ADODB.Connection")
adoConnection.Provider="ADSDSOObject"
adoConnection.Open "", strusername,strpasswort

Thankyou.

Lisandro

Anon

I don't know exactly what the code for connecting your database with OLE-DB with Active Directory Service would be, or if it is even possible with PHP. But with ODBC, it would be

$cnx = odbc_connect(  'DSN_Name' ,  '$strusername',  '$strpassword' );

If you are on a Win9x/NT/2k system, you have ODBC built in. If you put the rest of the code up, I'd be happy to help with it. I ported most of my site from ASP to PHP over the past several months.

If you are using a MS Access database, take a look at the column on this site about connecting to an Access database.

Anon

I have no answers 🙂 But have you read this article :

Switching From VB to PHP :
http://www.phpbuilder.com/columns/peter20000629.php3

Anon

Thank you very very much for your help! We are trying to retrieve the userdata from a WIN NT server to a UNIX server... So that is the thing!
OK, I will post here the whole script.. hopefully you can help me.. =)

"
cn "{5A5C5A9C-E1BA-42E0-88FE-31EB747A5B54}",name
wscript.echo name
cn "{00003C6E-48FA-4C58-BCDD-AF73D340B464}",name
wscript.echo name
cn "{00004673-535A-448A-A3A2-34C311DD7A44}",name
wscript.echo name

sub cn(guid,name)

' ***************************************************************
' Liefert den Benutzernamen zur GUID / Delivers de username to GUID
' ***************************************************************

adStateOpen=1

' ***************************
' ADO-Instanzierung/ADO instance
' ***************************

set adoConnection=CreateObject("ADODB.Connection")
adoConnection.Provider="ADSDSOObject"

strusername="cn=patonl,cn=users,dc=ldap,dc=derstandard,dc=at"
strpasswort="lnotap"
adoConnection.Open "", strusername,strpasswort

' *****************************************
' Setzen der Verbindung/Opening the connection
' *****************************************

connstr = "<LDAP://ldap.derstandard.at/cn=" & guid & ",ou=webuser,dc=ldap,dc=derstandard,dc=at>;"
connstr = connstr & ";sn,givenname,mail,plainpassword;SubTree"
'connstr = connstr & ";sn,givenname,mail;SubTree"

' ****
' Abfrage
' ****

set adoRecordset=adoConnection.Execute(connstr)

' *********************************************
' Ergebnis wird gesetzt/Result of the query is set
' *********************************************

if not adoRecordset.EOF then
vorname = adoRecordset.Fields.Item("givenName")
nachname = adoRecordset.Fields.Item("sn")
mail = adorecordset.fields.item("mail")
name = vorname & " " & nachname & " " & mail

else
name=""
end if

' *****************************************
' Schließen der Objekte /All objects are closed
' *****************************************

adoConnection.Close
set adoRecordset=nothing

end sub

that is it!
Thanks a lot again... I really appreciate it!

Lisandro

Anon

Okay, I think I understand what you want to do, but I'm not very confident any more that I can be of much help. If you were working within a Windows environment, I could help you out, but moving from Windows to Unix is a different matter. PHP can make the transition just fine, but the database interface may be more difficult. The script you have above is a database connection and a simple query, which requires me to understand your database connection. I am familiar with connecting to a database within Windows but not between Windows and Unix. I would ask for more details about what kind of database you have and on what kind of server it is located, but I'm not sure I could help anyway. Sorry.

It might help to get more responses to your question if you posed it as a database connection/server platform question rather than a Visual Basic to PHP translation problem.