Определение членства пользователя в группе с помощью VBA

Question

Определение членства пользователя в группе с помощью VBA

Тестируете ли вы на имитаторе на физическом устройстве?

Работаете ли вы на управляемом устройстве (с помощью учетной записи предприятия)?

Начиная с iOS 11.3, Apple заявляет, что: ]

Mobile Device Management
New Features

        Prevent unmanaged apps from accessing contacts in managed accounts.

Ссылка здесь https://developer.apple.com/library/archive/releasenotes/General/RN-iOS-11.3/index.html

Кроме того, ваш код мне кажется хорошим.

8

access-vba ms-access security vba

задан shruti1810 27 May 2015 в 09:56

2 ответа

Найденный этим онлайн

Function IsMember(strDomain As String, strGroup _
  As String, strMember As String) As Boolean
  Dim grp As Object
  Dim strPath As String

  strPath = "WinNT://" & strDomain & "/"
  Set grp = GetObject(strPath & strGroup & ",group")
  IsMember = grp.IsMember(strPath & strMember)
End Function

Теперь, мне только нужно имя учетной записи текущего пользователя.Очень плохо Application.CurrentUser не дает мне их имя Учетной записи домена.

2

ответ дан 5 December 2019 в 06:24

Другие вопросы по тегам:

access-vba ms-access security vba

Похожие вопросы:

score 13 · Accepted Answer

Allain нашел это онлайн

Function IsMember(strDomain As String, strGroup _
  As String, strMember As String) As Boolean
  Dim grp As Object
  Dim strPath As String

  strPath = "WinNT://" & strDomain & "/"
  Set grp = GetObject(strPath & strGroup & ",group")
  IsMember = grp.IsMember(strPath & strMember)
End Function

Можно получить информацию об учетной записи Windows посредством USERDOMAIN и USERNAME среда Вар:

Function GetCurrentUser() As String
    GetCurrentUser = Environ("USERNAME")
End Function

Function GetCurrentDomain() As String
    GetCurrentDomain = Environ("USERDOMAIN")
End Function

Соединение всего этого:

If IsMember(GetCurrentDomain, "AD Group", GetCurrentUser) Then
   DoStuff()
End If