PowerShell का उपयोग करके SharePoint में प्रविष्टि के साथ VBS के माध्यम से AD में उपयोगकर्ताओं का ऑडिट करें

शुभ दोपहर यूएफओ पर्यवेक्षकों

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

कार्य AD से उपयोगकर्ताओं के बारे में जानकारी एकत्र करना है जो उनके और उनके विशिष्ट लक्ष्यों को खींच सकते हैं।
यह क्या था: VBS को LDAP के माध्यम से उपयोगकर्ताओं के बारे में जानकारी एकत्र करने के लिए चुना गया था, हम एक साधारण पाठ फ़ाइल में सब कुछ एकत्र करते हैं (क्योंकि संग्रह एक दूसरे से अलग किए गए कई खंडों में होता है), फाइलें एक जगह एकत्र की जाती हैं और फिर PowerShell का उपयोग करके हम एक तैयार SharePoint साइट पर जगह लेते हैं ।

On Error Resume Next Dim oQuery Dim objConnection Dim objCommand Dim objRecordSet Dim strMember Dim strAC Dim arrMember '       logfile = "users-lvs.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") oQuery = "<LDAP://dc=my,dc=site>;" & _ "(objectCategory=user)" & _ ";distinguishedName,name,sAMAccountname,mail,memberOf,userAccountControl,description;subtree" '            Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Open "Provider=ADsDSOObject;" objCommand.ActiveConnection = objConnection objCommand.CommandText = oQuery Set objRecordSet = objCommand.Execute '    - ,   -  if objFSO.FileExists(logfile) then Set objFile = objFSO.OpenTextFile(logfile, 2) objFile.Write "" else Set objFile = objFSO.CreateTextFile(logfile) objFile.Close Set objFile = objFSO.OpenTextFile(logfile, 2) objFile.Write "" end if objFile.Close '  ,     While Not objRecordSet.EOF strMember = objRecordSet.Fields("memberOf") strStr = "" For i = 0 To UBound(strMember) '        liluka = InStr(2, strMember(i), ",", vbTextCompare) '       strStr = strStr & Right(Left(strMember(i), liluka - 1), liluka - 4) & ", " Next arrOpis = objRecordSet.Fields("description") strOpis = "" For i = 0 To UBound(arrOpis) strOpis = strOpis & arrOpis(i) & ", " Next '      Select Case objRecordSet.Fields("userAccountControl") Case 512 strAC = "" Case 514 strAC = "" Case 66048 strAC = "" Case 66050 strAC = "" End Select '      Set objFile = objFSO.OpenTextFile(logfile, 8) objFile.WriteLine objRecordSet.Fields("sAMAccountname") & ";1" & _ objRecordSet.Fields("name") & ";2" & _ objRecordSet.Fields("mail") & ";3" & _ strStr & ";4" & strAC & ";5" & strOpis & ";6" objFile.Close objRecordSet.MoveNext Wend objConnection.Close 

कोड से पता चलता है कि लाइन के अंत में "6 लैन" जोड़ा गया है, जैसा कि हमने ऊपर कहा था, हमारे पास कई सेगमेंट हैं और यह उनमें से पहला लैन है। साइन ऑफ होने के साथ, उपयोगकर्ता ने लंबे समय तक नहीं सोचा और हमारे द्वारा सामना किए गए 4 मान ले लिए, यदि आप जीवन को जटिल करते हैं और खुदाई करते हैं, तो आप बिट्स द्वारा चर पढ़ सकते हैं ...
PowerShell स्क्रिप्ट के लिए यह समझने के लिए कि जानकारी कहाँ स्थित है, कुछ जानकारी के सूचकांक को दर्शाते हुए एक नंबर डालने के लिए अर्धविराम का उपयोग करने से बेहतर कुछ भी नहीं है।
पेशेवर नहीं, बल्कि कोड का एक प्रेमी जो मुझे प्रोग्राम / विश्लेषण / पार्स करना पसंद है।
वास्तव में खुद PowerShell कोड:

 #          ,  write-host open Sharepoint from USERS # sharepoint $env:SPpath = "${env:CommonProgramFiles}\Microsoft Shared\web server extensions\12\" [System.Reflection.Assembly]::LoadFrom("$env:SPPath\ISAPI\Microsoft.SharePoint.dll") write-host open web #  web $nsite="http://my_site/sites/MonitorUser" $SpSite = New-Object -TypeName "Microsoft.SharePoint.SPSite" -ArgumentList $nsite; $spweb=$spsite.OpenWeb(); write-host open Sharepoint list #   $nlist="http://my_site/sites/MonitorUser/Lists/List5/AllItems.aspx" $splist=$spweb.getlist($nlist); #   write-host clearing list... $iCnt = $splist.Items.Count; #$icnt; for ($jj=1; $jj -le $iCnt; $jj++){ $splist.Items.Delete(0); } write-host clearing list Done #      ,     write-host Processing log files... foreach ($file in $(get-childitem 'D:\scripts\work\' -include users*.txt -recurse)) { $hostout = $file.FullName + "..." Write-Host $hostout $fl = get-content $file.FullName; # $fl; for ($i=1; $i -lt $fl.Count; $i++) { $st1 =$fl[$i]; #       $ind1 = $st1.IndexOf(";1") $ind2 = $st1.IndexOf(";2") $ind3 = $st1.IndexOf(";3") $ind4 = $st1.IndexOf(";4") $ind5 = $st1.IndexOf(";5") $ind6 = $st1.IndexOf(";6") $stLogin = $st1.substring(0,$ind1) $stUserName = $st1.substring($ind1+2,$ind2-$ind1-2) $stMail = $st1.substring($ind2+2,$ind3-$ind2-2) $ind7 = $ind4-$ind3 if ($ind7 -eq 2) { $stGroup = " " } else { $stGroup = $st1.substring($ind3+2,$ind4-$ind3-4) } $ind7 = $ind6-$ind5 if ($ind7 -eq 2) { $stOpis = "" } else { $stOpis = $st1.substring($ind5+2,$ind6-$ind5-4) } $stBlock = $st1.substring($ind4+2,$ind5-$ind4-2) $stSeg = $st1.substring($ind6+2,3) #         $NewItem = $SpList.Items.Add(); $NewItem[""] = $stLogin; $NewItem[" "] = $stUserName; $NewItem["e-mail"] = $stMail; $NewItem[""] = $stGroup; $NewItem[""] = $stBlock; $NewItem[""] = $stSeg; $NewItem[""] = $stOpis; $NewItem.Update(); } } write-host Processing log files DONE $spweb.Dispose(); $spsite.Dispose(); write-host Program END 

अब वे एक स्थान पर txt एकत्र करने के बाद, हम बैच फ़ाइल लॉन्च करते हैं

 cscript users-lvs.vbs %SystemRoot%\system32\WindowsPowerShell\v1.0\powershell.exe "& 'D:\scripts\work\users.ps1'" %SystemRoot%\system32\WindowsPowerShell\v1.0\powershell.exe "& 'D:\scripts \work\pk.ps1'" 

चूंकि हमारी साइट लैन सेगमेंट में चलती है, उसी समय, हम इन उपयोगकर्ताओं पर जानकारी अपडेट करते हैं। और जैसा कि आपने देखा होगा, कामकाजी स्क्रिप्ट कंप्यूटर पर जानकारी एकत्र करती है (ओएस, संस्करण, पैक, विवरण, जब इसे चालू किया गया था), लेकिन सब कुछ उपयोक्ता के अनुरूप है।
हर चीज में सबसे लंबी चीज होती है जो एक पृष्ठ को सूचना (लगभग 2-3 मिनट) के साथ साफ़ कर रही है। यदि पृष्ठ खाली हैं, तो कुल मिलाकर कई फाइलों को एकत्र करने और संसाधित करने में 30 सेकंड, 700-800 से अधिक रिकॉर्ड नहीं लगते हैं।
वास्तव में, LDAP में बहुत सारी जानकारी होती है और इसकी वर्किंग स्क्रिप्ट में जोड़ा जाता है ताकि यह दिखे कि उपयोगकर्ता पिछली बार कब लॉग इन किया था और यह भी कि उसने पिछली बार पासवर्ड कब बदला था। WMI में "निर्देशिका \ LDAP" है और वहाँ, सिद्धांत रूप में, आप बहुत सारी रोचक जानकारी पा सकते हैं।

पुनश्च मैंने जल्दी से अपना हाथ इसमें फेंक दिया, मुझे किसी भी आलोचना पर खुशी होगी, लेकिन इसे कैसे सुधारना है, यह सलाह देना बेहतर है कि आप इस पर किस क्षण और क्यों पसंद करते हैं, इस पर बहस करते हुए ...