वीबीएनईटी - सक्रिय निर्देशिका के साथ एसआईडी को समूह नाम में कैसे परिवर्तित करें

Question

वीबी.नेट का उपयोग करके, आप सक्रिय निर्देशिका के साथ समूह नाम में एसआईडी कैसे परिवर्तित करते हैं?

उदाहरण:

Public ReadOnly Property Groups As IdentityReferenceCollection 
    Get 

     Dim irc As IdentityReferenceCollection 
     Dim ir As IdentityReference 
     irc = WindowsIdentity.GetCurrent().Groups 
     Dim strGroupName As String 

     For Each ir In irc 
      Dim mktGroup As IdentityReference = ir.Translate(GetType(NTAccount)) 
      MsgBox(mktGroup.Value) 
      Debug.WriteLine(mktGroup.Value) 
      strGroupName = mktGroup.Value.ToString 

     Next 

     Return irc 

    End Get 
End Property 

या कुछ इस तरह: मैं "group_test" मिलता है और नहीं करने के लिए "एस-1-5-32-544"

कोड मैं का उपयोग कर रहा है की जरूरत है?

 currentUser = WindowsIdentity.GetCurrent() 

     For Each refGroup As IdentityReference In currentUser.Groups 

      Dim acc As NTAccount = TryCast(refGroup.Translate(GetType(NTAccount)), NTAccount) 
      If AdminGroupName = acc.Value Then 
       ret = "999" 
      End If 
      If UsersGroupName = acc.Value Then 
       ret = "1" 
      End If 

आप इसे इस कोड में कैसे अनुकूलित करेंगे? (यदि उपयोगकर्ता xx समूह, ड्रॉप डाउन सूची पर शो एक्स एक्स समूह में है)

 For Each UserGroup In WindowsIdentity.GetCurrent().Groups 
      If mktGroup.Value = "BIG" Then 
       Dim Company = ac1.Cast(Of MarketingCompany).Where(Function(ac) ac.MarketingCompanyShort = "BIG").FirstOrDefault 
       If Company IsNot Nothing Then 
        marketingCo.Items.Add(String.Format("{0} | {1}", Company.MarketingCompanyShort, Company.MarketingCompanyName)) 
       End If 
      End If 
     Next 

Answer 1

यहाँ एक आसान तरीका सी # में लिखा है, मुझे लगता है कि यह अनुकूल करने के लिए कड़ी मेहनत करने के लिए नहीं है:

/* Retreiving object from SID 
    */ 
    string SidLDAPURLForm = "LDAP://WM2008R2ENT:389/<SID={0}>"; 
    System.Security.Principal.SecurityIdentifier sidToFind = new System.Security.Principal.SecurityIdentifier("S-1-5-21-3115856885-816991240-3296679909-1106"); 

    DirectoryEntry userEntry = new DirectoryEntry(string.Format(SidLDAPURLForm, sidToFind.Value)); 

    string name = userEntry.Properties["cn"].Value.ToString(); 

यहाँ यह ---- REFLECTOR

Dim SidLDAPURLForm As String = "LDAP://WM2008R2ENT:389/<SID={0}>" 
Dim sidToFind As New SecurityIdentifier("S-1-5-21-3115856885-816991240-3296679909-1106") 
Dim userEntry As New DirectoryEntry(String.Format(SidLDAPURLForm, sidToFind.Value)) 
Dim name As String = userEntry.Properties.Item("cn").Value.ToString 

को वीबी नेट धन्यवाद में है ----- संपादित तो यहाँ तुम क्या चाहता है, लेकिन यह एक ही है के रूप में है कि पहले @BiggsTRC

द्वारा दिया गया था सी # में

Private Shared Sub Main(args As String()) 
    Dim currentUser As WindowsIdentity = WindowsIdentity.GetCurrent() 

For Each iRef As IdentityReference In currentUser.Groups 
     Console.WriteLine(iRef.Translate(GetType(NTAccount))) 
    Next 
End Sub 

Answer 2

यहाँ कैसे एक नाम करने के लिए एक सिड कन्वर्ट करने के लिए एक कड़ी है: http://vbdotnet.canbal.com/view.php?sessionid=JEf85K%2B%2BeBj9Pz%2BWz9hJJicW%2FYEPtADXfcpYCovZ7js%3D

असल में, तुम वापस एक DirectoryEntry वस्तु मिल जिसे आप नाम पाने के लिए उपयोग कर सकते हैं। हालांकि, अगर आप ऐसा करने के लिए एक आसान तरीका मानते हैं, तो बस वर्तमान उपयोगकर्ता को लें और अपनी समूह सदस्यता के लिए एडी में एक लुकअप करें। यहां ऐसा करने का एक उदाहरण दिया गया है (आपको वास्तव में अपने कार्य को पूरा करने के लिए बड़े लेख की आवश्यकता होगी लेकिन यह कोड आपके प्रश्न का विशिष्ट उत्तर है): http://www.codeproject.com/KB/system/everythingInAD.aspx#39

इस तथ्य के बारे में क्षमा करें कि कोड C# में है। हालांकि, आप किसी समस्या के बिना इसे VB.NET में परिवर्तित करने के लिए कनवर्टर का उपयोग करने में सक्षम होना चाहिए।

प्राप्त उपयोगकर्ता समूह सदस्यता सी # में ASP.NET से उपयोगकर्ता में लॉग इन

public ArrayList Groups() 
{ 
    ArrayList groups = new ArrayList(); 

    foreach (System.Security.Principal.IdentityReference group in 
      System.Web.HttpContext.Current.Request.LogonUserIdentity.Groups) 
    { 
     groups.Add(group.Translate(typeof 
     (System.Security.Principal.NTAccount)).ToString()); 
    } 

    return groups; 
} 

प्राप्त उपयोगकर्ता VB.NET में ASP.NET से उपयोगकर्ता में लॉग इन Developer Fusion's Converter Tool का उपयोग करने का समूह सदस्यता:

Public Function Groups() As ArrayList 
     Dim groups__1 As New ArrayList() 

     For Each group As System.Security.Principal.IdentityReference In     System.Web.HttpContext.Current.Request.LogonUserIdentity.Groups 

       groups__1.Add(group.Translate(GetType(System.Security.Principal.NTAccount)).ToString()) 
     Next 

    Return groups__1 
    End Function 

Answer 3

कोड:

public static string GetGroupNameBySid(string sid) 
    { 
     PrincipalContext ctx = new PrincipalContext(ContextType.Domain); 
     GroupPrincipal group = GroupPrincipal.FindByIdentity(ctx, IdentityType.Sid, sid); 
     return group.SamAccountName; 
    } 

आप विधानसभा System.DirectoryServices.AccountManagement.dll जोड़ना होगा। यदि आपको AD के संबंध में कोई समस्या है, तो आप प्रिंसिपल कॉन्टेक्स्ट कन्स्ट्रक्टर में AD सर्वर नाम जोड़ने का प्रयास कर सकते हैं।