asp.net – VB.NET – 如何使用Active Directory将SID转换为组名
发布时间:2020-12-15 19:48:16 所属栏目:asp.Net 来源:网络整理
导读:使用VB.NET,如何使用Active Directory将sid转换为组名? 例如:我需要获得“group_test”而不是“S-1-5-32-544” 我正在使用的代码是: Public ReadOnly Property Groups As IdentityReferenceCollection Get Dim irc As IdentityReferenceCollection Dim ir
使用VB.NET,如何使用Active Directory将sid转换为组名?
例如:我需要获得“group_test”而不是“S-1-5-32-544” 我正在使用的代码是: 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 或类似的东西? 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组中,请在下拉列表中显示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 解决方法
这是一个用C#编写的简单方法,我认为这并不难以适应:
/* 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,它在VB .NET中 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 —-编辑—– 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 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
相关内容
- asp.net-mvc – NHibernate – 懒惰地初始化一个角色集合
- asp.net-mvc – 如何从剃刀视图访问My.Resources
- asp.net – 无法加载文件或程序集“Microsoft.TeamFoundati
- asp.net – 为什么DropDownList.SelectedValue依赖于viewst
- 禁用某些控件的ASP.NET视图状态,但不是全部
- asp.net-web-api – Asp.net web api中的DbGeometry序列化问
- asp.net-mvc-3 – mvc3 jquery unobtrusive验证语言环境十进
- asp.net-mvc-3 – 是否需要StructureMap HttpContextScoped
- entity-framework – 实体类型没有键定义的EF6
- asp-classic – 浏览器似乎忽略了响应缓存控制指令
推荐文章
站长推荐
热点阅读