Importing contacts into Opera from Active Directory

I work in a company in which the number of employees having an email tends to infinity. Of course, all these people are in AD with first and last names. And once again, when I climbed up to look at the employee’s email address on the corporate portal, I was bored and I thought about importing contacts into Opera from AD.

Search in Yandex goggles did not give me anything, so I decided to engage in pioneering. To begin with, I looked into the file contacts.adr, which is stored in the profile folder and I realized that it is stored in UTF-8 encoding and has a certain structure:

1. #CONTACT
2. ID = 1
3. NAME = Ivanov Ivan Ivanovich
4. URL =
5. CREATED = 1287730972
6. DESCRIPTION =
7. MAIL = ivanov @ domain. com
8. PHONE =
9. FAX =
10. POSTALADDRESS =
11. PICTUREURL =
12. ICON = Contact0
14. #CONTACT
15. ID = 2
16. NAME = Petrov Petr Petrovich
17. URL =
18. CREATED = 1292317914
19. DESCRIPTION =
20. MAIL = petrov @ domain. com
21. PHONE =
22. FAX =
23. POSTALADDRESS =
24. PICTUREURL =
25. ICON = Contact0

ID, NAME, MAIL, etc. questions do not cause. The CREATED field seems to store the date and time of the contact creation, but for me it is not important, and therefore I decided to write down a specific value taken from the finished file.
')
It is time to start creating the import tool directly. Having searched the network for examples of working with AD, I wrote this:

1. var rootDSE , domainNC , connection , command , recordset ;
2. var fso , f1 ;
4. rootDSE = GetObject ( "LDAP: // rootDSE" ) ;
5. domainNC = rootDSE. Get ( "defaultNamingContext" ) ;
7. connection = new ActiveXObject ( "ADODB.Connection" ) ;
8. connection. Open ( "Provider = ADsDSOObject;" ) ;
10. command = new ActiveXObject ( "ADODB.Command" ) ;
11. command. ActiveConnection = connection ;
13. command. CommandText =
14. "SELECT displayname, mail, telephoneNumber FROM 'LDAP: //" + domainNC + "' WHERE objectClass = 'User'"
15. command. Properties ( "Cache Results" ) = false ;
16. command. Properties ( "Page Size" ) = 100 ;
17. command. Properties ( "Sort On" ) = "mail" ;
18. command. Properties ( "Timeout" ) = 0 ;
20. recordset = command. Execute ( ) ;
22. fso = new ActiveXObject ( "Scripting.FileSystemObject" ) ;
23. f1 = fso. CreateTextFile ( "contacts.adr" , true ) ;
25. i = 1 ;
27. while ( ! recordset. EOF ) {
29. if ( ( recordset. Fields ( "mail" ) . Value ! = null ) && ( recordset. Fields ( "displayname" ) . Value ! = null ) )
30. {
31. f1. WriteLine ( "#CONTACT" ) ;
32. f1. WriteLine ( "ID =" + i ) ;
33. f1. WriteLine ( "NAME =" + recordset. Fields ( "displayname" ) . Value ) ;
34. f1. WriteLine ( "URL =" ) ;
35. f1. WriteLine ( "CREATED = 1292317914" ) ;
36. f1. WriteLine ( "DESCRIPTION =" ) ;
37. f1. WriteLine ( "MAIL =" + recordset. Fields ( "mail" ) . Value ) ;
38. f1. WriteLine ( "PHONE =" + recordset. Fields ( "telephoneNumber" ) . Value ) ;
39. f1. WriteLine ( "FAX =" ) ;
40. f1. WriteLine ( "POSTALADDRESS =" ) ;
41. f1. WriteLine ( "PICTUREURL =" ) ;
42. f1. WriteLine ( "ICON = Contact0" ) ;
43. }
44. recordset. MoveNext ( ) ;
45. i = i + 1 ;
46. }
47. f1. Close ( ) ;
49. connection. Close ( ) ;

Simply put, we make a request to the domain and take out the name, mail and phone number of the employee. Then we sort everything by e-mail address and, cutting off records with empty addresses or empty names (I for some reason had such), write all this to a file, constantly increasing the contact ID. ID, perhaps, it makes sense to start not with one, but with a larger number, because This will allow you to leave existing contacts in your address book.
I saved this ... ahem ... code in the ad.js file and launched cscript ad.js from the console.

Having received the coveted file, I changed the encoding for it using notepad ++ to UTF8 and replaced the file in the profile folder when Opera was closed.
As a result, I received several hundred contacts in my address book with a flick of the wrist :)

Also, if a department in which an employee works is stored in AD, you can get confused and scatter contacts into folders using the #FOLDER “tag”. An inquisitive reader, if desired, can himself figure out how to do it :)

Of course, probably, there is an easier and more elegant way to do the same, but my bike, created in 10 minutes, took me exactly where I needed it.