अनुभवी छोटी चीजें -5, या "समूह खुशियाँ!"

"प्रायोगिक छोटी चीज़ों" की निरंतरता। पिछले भाग: एक , दो , तीन , चार ।

इस पोस्ट में हम सक्रिय निर्देशिका में समूहों के बारे में बात करेंगे। मैं सिद्धांत में गहराई से नहीं जाऊंगा और सार्वभौमिक, वैश्विक स्थानीय समूहों के बारे में बात करूंगा - जो लोग चाहते हैं कि प्रलेखन में सभी विवरण मिल सकते हैं, क्योंकि इसमें बहुत कुछ है। आइए इस बारे में बात करते हैं कि समूहों की आम तौर पर आवश्यकता क्यों होती है और उनकी मदद से किस तरह के "उपहार" प्राप्त किए जा सकते हैं।

• अलग-अलग उपयोगकर्ताओं के बजाय, जहाँ भी आप कर सकते हैं, समूहों का उपयोग करें। एसीएल में, अनुमति, अधिकार देना, समूह नीति, आदि। भले ही अब समूह में केवल एक ही व्यक्ति हो - वैसे भी, समूहों का उपयोग करें। यह न केवल सिस्टम को गति देता है (उदाहरण के लिए, 2-3 समूहों के एसीएल और 15 उपयोगकर्ताओं के एसीएल एक ही समय में संसाधित नहीं होते हैं), लेकिन यह प्रबंधन को भी बहुत सरल करेगा। आपको यह याद रखने की आवश्यकता नहीं है कि आपने यह कहाँ या कैसे सही सौंपा है, आपके पास एक एकल ActiveDirectory कंसोल होगा जिसमें आप बस एक नया व्यक्ति जोड़ते हैं, या पुराने को समूह से हटा सकते हैं, और वह सब। सेटअप पूरा हुआ।
• समूहों को सार्थक रूप से कॉल करें, विवरण में विस्तृत जानकारी लिखें, उपसर्गों का उपयोग करें। उदाहरण के लिए, फ़ोल्डर्स का उपयोग करने की अनुमति देने वाले समूहों को FLD_FolderName_RW और इंटरनेट एक्सेस समूह I_FullAccess कहा जा सकता है। उपसर्ग आपको AD में तेज़ी से समूह ढूंढने की अनुमति देता है ( आप उपयोगकर्ता को समूह में जोड़ सकते हैं , और उपसर्ग तुरंत उन समूहों को सूचीबद्ध करता है जिन्हें आप खोज रहे हैं)। विवरण में एक सार्थक नाम और विवरण आपको छह महीने के वर्ष (it.d) में आपको (या अब आपको नहीं) अनुमति देगा। उस अर्थ को याद रखें जो आपने बनाए समूह में रखा है।
• नेस्टेड समूहों में शामिल न हों। यह एक उपयोगी चीज है, लेकिन यदि आप इसे ज़्यादा करते हैं, तो आप चक्रीय घोंसले के शिकार हो सकते हैं और आप खुद को भ्रमित करेंगे।
• प्रतिनिधि समूह प्रबंधन। अपने सभी समूहों को एक अलग, संरचित OU में ले जाएं और समूह सदस्यता प्रबंधन अधिकारों को उन लोगों को सौंपें जो इसके लिए जिम्मेदार हैं। उदाहरण के लिए, हम सचिवों को फ़ोल्डर के लिए प्रत्यायोजित अभिगम नियंत्रण और सुरक्षा परिषद में दूरस्थ अभिगम अनुमति प्रबंधन को स्वीकार करते हैं। सभी लाल टेप पर "एक सेवा पत्र लिखें - इसे जिम्मेदार व्यक्ति के साथ हस्ताक्षर करें - ठीक है, यहां हमने आपको जोड़ा है - यहां आपके निर्देश - संग्रह के लिए सेवा पत्र" उन्हें सौंप दिया गया था, और दिनचर्या का हिस्सा आईटी विभाग छोड़ दिया है।
• रचनात्मक रूप से समूहों का उपयोग करें, उदाहरण के लिए, विशेषाधिकारों को निर्दिष्ट करने के लिए, प्रिंटर वितरित करें, डेस्कटॉप पर शॉर्टकट ले जाएं, लॉग इन स्क्रिप्ट आदि का उपयोग करके 1 सी डेटाबेस पंजीकृत करें। यह देखते हुए कि AD में एक समूह एक "कैपेसिटिव" ऑब्जेक्ट है, आप सीधे उन में विभिन्न सेटिंग्स स्टोर कर सकते हैं, और मापदंडों को निष्पादन के दौरान स्क्रिप्ट में पास किया जाता है। इस तरह की स्क्रिप्ट का तर्क इस प्रकार है:
  1. स्क्रिप्ट निर्धारित करती है कि यह उपयोगकर्ता किन समूहों में है।
  2. एक पूर्वनिर्धारित विशेषता के अनुसार विशिष्ट समूहों का चयन करता है (उदाहरण के लिए, उपसर्ग द्वारा!)
  3. इन समूहों से "पैरामीटर" बाहर खींचता है (विवरण फ़ील्ड, उपसर्ग के बिना समूह का नाम, आदि) और एक बाहरी कमांड या इन मापदंडों के साथ एक प्रक्रिया शुरू करता है

एक उदाहरण के रूप में, मैं एक स्क्रिप्ट देता हूं जो इस सिद्धांत पर काम करता है: यह निर्धारित करता है कि उपयोगकर्ता किस समूह में है, उनके बीच RDP_ उपसर्ग वाले समूह ढूंढता है, और निम्न मापदंडों के साथ डेस्कटॉप पर RDP शॉर्टकट बनाता है:

• लेबल नाम उपसर्ग के बिना समूह नाम के बराबर होता है,
• RDP शॉर्टकट द्वारा संदर्भित लक्ष्य सर्वर का नाम विवरण समूह में लिखा गया है।

नतीजतन, किसी को 1 सी सर्वर में जाने के लिए, बस उसे समूह में जोड़ें और उसे सिस्टम में फिर से दर्ज करने के लिए कहें। इसके अलावा, दूरस्थ व्यवस्थापकों और RDP_GroupName समूहों के सदस्यों को लेखांकन टर्मिनल सर्वर तक दूरस्थ पहुँच की अनुमति है।

' RDP- , .
' - RDP_ Description , RDP-
' AD- RDP_1C- Server1.domain.local Desription
' - , .
' RDP- .
On Error Resume Next
Set wshShell = WScript.CreateObject("WScript.Shell")
Set m_FSO = CreateObject("Scripting.FileSystemObject")

' AD
Set objSysInfo = CreateObject("ADSystemInfo")
ADSPath = "LDAP://" & objSysInfo.UserName
Set objUser = GetObject(ADSPath)
ShortUserName = objUser.SamAccountName
DomainName = objSysInfo.DomainShortName

'
DesktopPath = wshShell.SpecialFolders("Desktop")
LevelCount = 0
MaxLevelCount = 4
Status = CheckGroups(ADSPath)

'
'============ Function GetPrefixNameGroup ============
Function GetPrefixNameGroup(sString)
' Trim prefix of name group
Dim TempString
TempString = Left(sString, InStr(sString, "_"))
GetPrefixNameGroup = TempString
End Function
'=====================================================
'============ Function GetLinkNameGroup ============
Function GetLinkNameGroup(sString)
' Trim LinkName of name group
Dim TempString
TempString = Mid(sString, InStrRev(sString, "_")+1)
GetLinkNameGroup = TempString
End Function
'=====================================================
'============ Function Create RdpFile ============
Function CreateRDPFile(sString, sName)
spath = DesktopPath & "\" & sString & ".rdp"
' - - '
If m_FSO.FileExists(sPath) or m_FSO.FolderExists(sPath) Then
m_FSO.DeleteFile (sPath),1
End If
Set RDPFile = m_FSO.CreateTextFile (spath, True)
RDPFile.writeline ("screen mode id:i:2")
RDPFile.writeline ("use multimon:i:0")
RDPFile.writeline ("desktopwidth:i:1280")
RDPFile.writeline ("desktopheight:i:1024")
RDPFile.writeline ("session bpp:i:16")
RDPFile.writeline ("winposstr:s:0,1,0,0,800,600")
RDPFile.writeline ("compression:i:1")
RDPFile.writeline ("keyboardhook:i:2")
RDPFile.writeline ("audiocapturemode:i:0")
RDPFile.writeline ("videoplaybackmode:i:1")
RDPFile.writeline ("connection type:i:2")
RDPFile.writeline ("displayconnectionbar:i:1")
RDPFile.writeline ("disable wallpaper:i:1")
RDPFile.writeline ("disable full window drag:i:1")
RDPFile.writeline ("allow desktop composition:i:0")
RDPFile.writeline ("allow font smoothing:i:0")
RDPFile.writeline ("disable menu anims:i:1")
RDPFile.writeline ("disable themes:i:1")
RDPFile.writeline ("disable cursor setting:i:0")
RDPFile.writeline ("bitmapcachepersistenable:i:1")
' '
RDPFile.writeline ("full address:s:" & sName)
RDPFile.writeline ("audiomode:i:2")
RDPFile.writeline ("redirectprinters:i:0")
RDPFile.writeline ("redirectcomports:i:0")
RDPFile.writeline ("redirectsmartcards:i:0")
RDPFile.writeline ("redirectclipboard:i:1")
RDPFile.writeline ("redirectposdevices:i:0")
RDPFile.writeline ("redirectdirectx:i:1")
RDPFile.writeline ("autoreconnection enabled:i:1")
RDPFile.writeline ("authentication level:i:0")
RDPFile.writeline ("prompt for credentials:i:0")
RDPFile.writeline ("negotiate security layer:i:1")
RDPFile.writeline ("remoteapplicationmode:i:0")
RDPFile.writeline ("alternate shell:s:")
RDPFile.writeline ("shell working directory:s:")
RDPFile.writeline ("gatewayhostname:s:")
RDPFile.writeline ("gatewayusagemethod:i:4")
RDPFile.writeline ("gatewaycredentialssource:i:4")
RDPFile.writeline ("gatewayprofileusagemethod:i:0")
RDPFile.writeline ("promptcredentialonce:i:1")
' Domain\Username'
RDPFile.writeline ("username:s:" & DomainName& "\"& ShortUserName)
RDPFile.writeline ("drivestoredirect:s:")
RDPFile.close
End Function
'=====================================================
'============ Function CheckGroups ===================
Function CheckGroups(ADSPath)
Dim objUser, arrMemberOf
Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D
LevelCount = LevelCount + 1
if ( LevelCount >= MaxLevelCount) then
LevelCount = LevelCount - 1
return LevelCount
end If
Set objUser = GetObject (ADSPath)
On Error Resume Next
arrMemberOf = objUser.GetEx("memberOf")
If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then
LevelCount = LevelCount - 1
return LevelCount
Else
For Each Group in arrMemberOf
ADSGroup = "LDAP://" & Group
CheckGroups(ADSGroup)
WScript.Echo "Extra=" & LevelCount
Set objGroup = GetObject ( ADSGroup )
If(GetPrefixNameGroup(objGroup.CN) = "RDP_") Then
Set objGroup = GetObject ( "LDAP://" & Group)
LinkName = GetLinkNameGroup(objGroup.CN)
LinkServer = objGroup.description
LinkResult = CreateRDPFile (LinkName, LinkServer)
end If
Next
End If
LevelCount = LevelCount - 1
End Function
'=====================================================
और, स्क्रिप्ट की शीट द्वारा दोहराया नहीं जाने के लिए, और "सिस्टम प्रशासक की धार्मिक जिज्ञासा" को उकसाने के अलावा, उदाहरण संख्या दो AD से एक स्क्रीनशॉट होगा।

उपयोगकर्ताओं के लिए 1 सी डेटाबेस जोड़ने के लिए यहां एक समान स्क्रिप्ट का उपयोग किया जाता है। इसके अलावा, जैसा कि आप अनुमान लगा सकते हैं, उपयोगकर्ता टर्मिनल (दो अलग-अलग) में डेटाबेस के हिस्से के साथ काम करते हैं और पथ जोड़ने के लिए स्क्रिप्ट टर्मिनल पर ही चलती है, इसलिए पथ स्थानीय हैं। आधार के अन्य भाग (वेतन) के साथ - नेटवर्क के माध्यम से, और स्क्रिप्ट कार्यस्थानों पर चलाई जाती है, जो आम तौर पर महत्वहीन है, यह उपयोगकर्ता के लिए जोड़ने के लिए कौन सा तरीका नहीं है। यदि आप स्वयं ऐसा करेंगे - यह मत भूलो कि 1C7.7 और 1C8.X में डेटाबेस में पथ जोड़ने के लिए अलग-अलग सिद्धांत हैं, क्रमशः, आपको स्क्रिप्ट में अलग-अलग स्क्रिप्ट या दो अलग-अलग फ़ंक्शन की आवश्यकता है।
बेहतर अभी तक, सीधे 1 सी को एक स्क्रिप्ट के माध्यम से लॉन्च करें जो पहले आपकी जरूरत की हर चीज को लिखता है और फिर प्रोग्राम लॉन्च करता है।

जारी रखा जाए

पीएस मुझे बताओ Habré के रूप में स्क्रिप्ट्स और सामान्य कोड रखना बेहतर है, और यह लंबे समय तक पोस्ट को बदल देता है।