छोटी रक्त सूची

एक बार "इन्वेंट्री" को ले जाने के लिए आवश्यक था, यानी यह पता करें कि कौन सा कंप्यूटर किस उपयोगकर्ता पर बैठा है।

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

तो, सूची के लिए आपको चाहिए:

• कंप्यूटर का नेटवर्क नाम। (विभिन्न संस्करणों के विन के तहत सभी कंप्यूटर)
• इस कंप्यूटर का मैक पता। (सभी कंप्यूटर एक ही सबनेट 255.255.0.0 पर हैं)
• उस उपयोगकर्ता का नाम जो इस कंप्यूटर को सौंपा गया है।

और सबसे महत्वपूर्ण शर्त कंप्यूटर पर किसी भी तृतीय-पक्ष एप्लिकेशन को स्थापित करने के लिए अत्यधिक अनिच्छा है, "सही" भाषाओं में एप्लिकेशन लिखने के लिए, आलस्य भी था। इसलिए, VBS को कार्यान्वयन के लिए चुना गया था, क्योंकि इसमें वह सब कुछ है जो आवश्यक है और इसके अतिरिक्त कुछ भी सेट करने की आवश्यकता नहीं है और इसके लिए वातावरण सबसे हल्का है - notepad.exe।
नेटवर्क नामों के साथ, सब कुछ सरल है, वे निर्देशिका सेवा में हैं। VBS से AD के साथ काम करने का एक उदाहरण बहुत जल्दी गुगला गया था। वस्तुओं की विशेषताओं की एक सूची प्राप्त करने के लिए, एक स्क्रिप्ट का उपयोग किया गया था
साथी एंड्रयू जे। हीले की सूची
इसलिए यह एक सरल स्क्रिप्ट के साथ कंप्यूटर के नाम प्राप्त करने के लिए निकला।

set cn=CreateObject("ADODB.Connection") set cmd=CreateObject("ADODB.Command") cn.Provider="ADsDSOObject" cn.Open "Active Directory Provider" set cmd.ActiveConnection=cn  SQL    Active directory     "Computer" cmd.CommandText="SELECT * FROM 'LDAP://DC=***,DC=ru' WHERE objectClass='Computer'" set objRecordSet=cmd.Execute on error resume next do while Not objRecordSet.Eof set objComputer=GetObject(objRecordSet("adspath")) '    ,       '   ,    if(inSTR(1,objComputer.distinguishedName,"OU=Garbage",vbTextCompare) = 0)then wscript.echo objComputer.CN '        end if objRecordSet.MoveNext Loop 

इसके बाद, आपको इन कंप्यूटरों का अफीम पता प्राप्त करने की आवश्यकता है। यहाँ सब कुछ सरल है, "-a" पैरामीटर के साथ मानक उपयोगिता "nbtstat" का उपयोग करके, आप वांछित प्राप्त कर सकते हैं (arp -a के साथ निश्चित रूप से एक और विकल्प है, लेकिन यह हमेशा काम नहीं करता है)।

  set oShell=Wscript.CreateObject("wscript.shell") set re=new regexp '   MAC  re.Pattern = "[0-9A-F]{2}-[0-9A-F]{2}-[0-9A-F]{2}-[0-9A-F]{2}-[0-9A-F]{2}-[0-9A-F]{2}" '    ComputerNetworkName       AD set oExec=oShell.Exec("nbtstat -a" & ComputerNetworkName) for each obj in re.execute(oExec.StdOut.ReadAll) GetData=obj.value next 

अब सवाल उठता है: "इस कंप्यूटर पर पंजीकृत उपयोगकर्ताओं की सूची प्राप्त करना कहाँ संभव है?"। लघु गुग्लिंग द्वारा, कई विधियाँ पाई गईं जो दूरस्थ wmi स्क्रिप्ट निष्पादन के लिए उबली हुई थीं। यह मार्ग मुझे सूट नहीं कर रहा है, क्योंकि दूरस्थ स्क्रिप्ट निष्पादन डोमेन में निषिद्ध है। और फिर मुझे याद आया कि विंडोज़ में, डिफ़ॉल्ट रूप से, नेटवर्क पर पढ़ने के लिए 2 रजिस्ट्री शाखाएँ उपलब्ध हैं, जैसे कि "HKEY_USERS" और "HKEY_LOCAL_MACHINE"।
इसका मतलब यह है कि आप पंजीकृत उपयोगकर्ताओं के लिए SID प्राप्त कर सकते हैं "reg" उपयोगिता और जिस कोड का उपयोग हम मैक एड्रेस प्राप्त करने के लिए करते हैं, वह हमें इससे मदद करेगा, हमें बस नियमित टेम्पलेट और कमांड टेक्स्ट को बदलना होगा।

  set oShell=Wscript.CreateObject("wscript.shell") set re=new regexp '   SID    reg query re.Pattern = "S-\d+-\d+-\d+-\d+-\d+-\d+-\d+" '    ComputerNetworkName       AD set oExec=oShell.Exec("reg query \\" & iComputerNetworkName&"\HKEY_USERS") for each obj in re.execute(oExec.StdOut.ReadAll) GetData=obj.value next 

ठीक है, हमारे पास एक अच्छा बीज है, लेकिन वे नाम में समान नहीं हैं। पूरा नाम फिर से प्राप्त करने के लिए आपको AD से संपर्क करना होगा।
AD में प्रत्येक ऑब्जेक्ट में एक "objectSID" फ़ील्ड है, जिसका अर्थ है कि आप उपयोगकर्ता के बारे में जानकारी का चयन कर सकते हैं, इसलिए मैं उस पर बैठा हूं। ऐसा करने के लिए, उस कोड का उपयोग करें जिसे हमने कंप्यूटरों की सूची प्राप्त करने के लिए इस्तेमाल किया था और इसमें "cmd.commandtext" फ़ील्ड में क्वेरी को बदलें:

  dim cn,cmd,objRecordSet set cn=CreateOBject("ADODB.Connection") set cmd=CreateObject("ADODB.Command") cn.Provider="ADsDSOObject" cn.Open "Active Directory Provider" set cmd.ActiveConnection=cn ' objSid       . cmd.CommandText="SELECT * FROM 'LDAP://DC=***,DC=ru' where objectClass='User' and objectSid='"& objSid &"' " set objRecordSet=cmd.Execute '      if( not objRecordSet.Eof) then set objUser=GetObject(objRecordSet("adspath")) if(inSTR(1,objUser.distinguishedName,"OU=Garbage",vbTextCompare) = 0)then '    ,      ,   . Wscript.Echo objUser.FirstName &" "& objUser.LastName &" "& objUser.Patronim end if end if 

ठीक है, कि सभी आवश्यक डेटा प्राप्त हो गए हैं, और भले ही वे भविष्य में बदलते हैं, उन्हें प्राप्त करना कोई समस्या नहीं होगी (जब तक कि निर्देशिका सेवा का पुनर्गठन न हो)। और सबसे महत्वपूर्ण बात, मुझे कंप्यूटर और उपयोगकर्ताओं की तलाश में, पूरे उद्यम को चलाने की ज़रूरत नहीं थी।