(24-04-16, 12:44 AM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركتهبارك الله فيك اخى لكنى لست مبرمج كى افهم كل هذا بل انا احتاج لهذا البرنامج لاشياء لا يعلمها الا الله
جرب هذا الكود وأفدنا بالنتيجة يرحمكم الله
PHP كود :
Private Function GetPrimaryGroupName(ByVal SearcherObject As DirectorySearcher, ByVal User As SearchResult) As String
Try
Using Domain As DirectoryEntry = ActiveDirectory.Domain.GetCurrentDomain.GetDirectoryEntry
Dim GroupSID As New Security.Principal.SecurityIdentifier(New Security.Principal.SecurityIdentifier(DirectCast(Domain.Properties("objectSid").Value, Byte()), 0).ToString & "-" & CStr(User.Properties("primaryGroupID")(0)))
Dim GroupSIDString As New System.Text.StringBuilder
Dim GroupSIDBytes(GroupSID.BinaryLength – 1) As Byte
GroupSID.GetBinaryForm(GroupSIDBytes, 0)
For i As Integer = 0 To GroupSIDBytes.Length – 1
GroupSIDString.Append("\" & Hex(GroupSIDBytes(i)).PadLeft(2, "0"c))
Next
SearcherObject.Filter = "(objectSid=" & GroupSIDString.ToString & ")"
Dim GroupSearchResult As SearchResult = SearcherObject.FindOne
If Not GroupSearchResult Is Nothing Then
Return GetGroupNameFromPath(GroupSearchResult.Path)
Else
Throw New ApplicationException("Failed to locate primary group – no results returned for the LDAP query " & SearcherObject.Filter)
End If
End Using
Catch ex As Exception
Throw New ApplicationException("Error getting primary group: " & ex.Message.Trim)
End Try
End Function
Private Function GetGroupNameFromPath(ByVal Path As String) As String
Dim GroupName As String = Path.Replace("LDAP://", String.Empty).Remove(0, 3)
Dim SeparatorIndex As Integer = 0
For i As Integer = 0 To GroupName.Length – 1
If GroupName(i) = ","c AndAlso Not GroupName(i – 1) = "\"c Then
SeparatorIndex = i
Exit For
End If
Next
GroupName = GroupName.Remove(SeparatorIndex)
Return GroupName.Replace("\,", ",").Replace("\\", "\").Replace("\+", "+").Replace("\""", """").Replace("\<", "<").Replace("\>", ">").Replace("\;", ";")
End Function
فلو اردت المساعدة فاتمنى تكون بشكل مبسط
