सक्रिय निर्देशिका से ओपेरा में संपर्क आयात करें

मैं एक कंपनी के लिए काम करता हूं जिसमें ईमेल रखने वाले कर्मचारियों की संख्या अनंत तक जाती है। बेशक, ये सभी लोग नाम और उपनाम के साथ AD में हैं। और एक बार फिर, जब मैं कॉर्पोरेट पोर्टल पर कर्मचारी के ईमेल पते को देख रहा था, तो मैं इससे थक गया और AD से ओपेरा में संपर्क आयात करने के बारे में सोचा।

YandexGoogle में एक खोज ने मुझे कुछ भी नहीं दिया, इसलिए मैंने अग्रणी बनाने का प्रयास किया। सबसे पहले, मैंने contacts.adr फ़ाइल को देखा, जो प्रोफ़ाइल फ़ोल्डर में संग्रहीत है और महसूस किया गया कि यह UTF-8 एन्कोडिंग में संग्रहीत है और इसकी एक निश्चित संरचना है:

1. #CONTACT
2. आईडी = 1
3. NAME = इवानोव इवान इवानोविच
4. URL =
5. सृजित = 1287730972
6. वर्णन =
7. मेल = ivanov @ डोमेन। कॉम
8. PHONE =
9. FAX =
10. POSTALADDRESS =
11. PICTUREURL =
12. ICON = संपर्क ०
14. #CONTACT
15. आईडी = 2
16. NAME = पेट्रोव पेट्र पेट्रोविच
17. URL =
18. निर्मित = 1292317914
19. वर्णन =
20. मेल = पेट्रोव @ डोमेन। कॉम
21. PHONE =
22. FAX =
23. POSTALADDRESS =
24. PICTUREURL =
25. ICON = संपर्क ०

ID, NAME, MAIL, आदि। कोई सवाल नहीं। निर्मित फ़ील्ड जाहिरा तौर पर उस दिनांक और समय को संग्रहीत करती है जिससे संपर्क बनाया गया था, लेकिन मेरे लिए यह महत्वपूर्ण नहीं है, और इसलिए मैंने वहाँ लिखा फ़ाइल से लिया गया एक विशिष्ट मान लिखने का फैसला किया।

यह सीधे आयात उपकरण बनाने का काम शुरू करने का समय है। AD के साथ काम करने के उदाहरणों के लिए नेटवर्क की खोज करने के बाद, उन्होंने इसे प्रेरित किया:

1. var rootDSE , domainNC , कनेक्शन , कमांड , रिकॉर्डसेट ;
2. var fso , f1 ;
4. rootDSE = GetObject ( "LDAP: // rootDSE" ) ;
5. domainNC = rootDSE। प्राप्त करें ( "defaultNamingContext" ) ;
7. कनेक्शन = नया ActiveXObject ( "ADODB.Connection" ) ;
8. कनेक्शन। खुला ( "प्रदाता = ADsDSOObject;" ) ;
10. कमांड = नया ActiveXObject ( "ADODB.Command" ) ;
11. आदेश। ActiveConnection = कनेक्शन ;
13. आदेश। कमांडटैक्स =
14. "Selectnamename, mail, teleNumber FROM 'LDAP: //" + domainNC + "' WHERE ऑब्जेक्टक्लास = 'उपयोगकर्ता'
15. आदेश। गुण ( "कैश परिणाम" ) = गलत ;
16. आदेश। गुण ( "पृष्ठ आकार" ) = 100 ;
17. आदेश। गुण ( "सॉर्ट ऑन" ) = "मेल" ;
18. आदेश। गुण ( "टाइमआउट" ) = 0 ;
20. recordet = कमांड। निष्पादित ( ) ;
22. fso = new ActiveXObject ( "स्क्रिप्टिंग.फाइलसिस्टम ऑबजेक्ट " ) ;
23. f1 = fso। CreateTextFile ( "contacts.adr" , सच ) ;
25. i = 1 ;
27. जबकि ( रिकॉर्डि। EOF ) {
29. if ( recordet। फ़ील्ड्स ( "मेल" ) । value । ! null ) && ( recordet । फ़ील्ड्स ( "displayname" ) । value । = null )
30. {
31. f1। लिक्लाइन ( "#CONTACT" ) ;
32. f1। लिक्लाइन ( "ID =" + i ) ;
33. f1। लिक्लाइन ( "NAME =" + recordet । फ़ील्ड्स ( "प्रदर्शननाम" ) । मान ) ;
34. f1। राइटलाइन ( "URL =" ) ;
35. f1। राइटलाइन ( "सृजित = 1292317914" ) ;
36. f1। राइटलाइन ( "वर्णन =" ) ;
37. f1। लिक्लाइन ( "मेल =" + रिकॉर्डसेट। फ़ील्ड ( "मेल" ) । मान ) ;
38. f1। लिक्लाइन ( "PHONE =" + recordet। फ़ील्ड्स ( "टेलीफोननंबर" ) । मान ) ;
39. f1। लिक्लाइन ( "FAX =" ) ;
40. f1। लिक्लाइन ( "POSTALADDRESS =" ) ;
41. f1। लिक्लाइन ( "PICTUREURL =" ) ;
42. f1। लिक्लाइन ( "ICON = Contact0" ) ;
43. }
44. recordset। MoveNext ( ) ;
45. i = i + 1 ;
46. }
47. f1। बंद ( ) ;
49. कनेक्शन। बंद ( ) ;

सीधे शब्दों में, हम डोमेन से एक अनुरोध करते हैं और वहां से कर्मचारी का नाम, मेल और फोन नंबर लेते हैं। फिर हम ई-मेल पते द्वारा सभी चीज़ों को क्रमबद्ध करते हैं और, खाली पते या खाली नामों के साथ प्रविष्टियों को काटते हैं (किसी कारण से मेरे पास ऐसा था), हम यह सब एक फाइल में लिखते हैं, लगातार संपर्क आईडी बढ़ाते हैं। आईडी, यह एक इकाई के साथ शुरू करने के लिए समझ में नहीं आ सकता है, लेकिन एक बड़ी संख्या के साथ, क्योंकि यह पता पुस्तिका में मौजूदा संपर्कों को छोड़ देगा।
मैंने इस ... ahem ... कोड को ad.js फ़ाइल में सहेजा और कंसोल से cscript ad.js कमांड को चलाया।

क़ीमती फ़ाइल प्राप्त करने के बाद, मैंने नोटपैड ++ से यूटीएफ 8 का उपयोग करके एन्कोडिंग को बदल दिया और प्रोफ़ाइल फ़ोल्डर में फ़ाइल को ओपेरा बंद कर दिया।
नतीजतन, मुझे कलाई की झिलमिलाहट के साथ मेरी पता पुस्तिका में कई सौ संपर्क मिले :)

इसके अलावा, यदि वह विभाग जिसमें कर्मचारी काम करता है, AD में संग्रहीत किया जाता है, तो आप #FOLDER टैग का उपयोग करके फ़ोल्डरों में भ्रमित हो सकते हैं और संपर्कों को सॉर्ट कर सकते हैं। एक जिज्ञासु पाठक, यदि वांछित है, तो यह पता लगा सकता है कि यह स्वयं कैसे करना है :)

बेशक, ऐसा करने का एक आसान और अधिक सुरुचिपूर्ण तरीका है, लेकिन 10 मिनट में बनाई गई मेरी बाइक मुझे ठीक उसी जगह ले गई जहां मुझे इसकी आवश्यकता थी।