Új hozzászólás Aktív témák

• vilag tag

  #2758

  #2756 sztanozs

  2017-02-13 14:05:40

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  vilag

  tag

  #2756 sztanozs

  #2756 sztanozs

  Ezzel le tudod kérdezni a memberhip-et:
  Function IsMember(userDomain As String, userName As String, groupDomain As String, groupName As String) As Boolean
Dim grp As Object
Dim grpPath As String, userPath As String

grpPath = "WinNT://" & groupDomain & "/" & groupName
Set grp = GetObject(grpPath & ",group")

userPath = "WinNT://" & userDomain & "/" & userName
IsMember = grp.IsMember(userPath)
End Function

  Így hívd meg (angol windows-on - magyaron ugye más az Admin Group neve):
  IsMember(Environ("userdomain"), Environ("username"), ".", "Administrators")

  Köszönöm!

  Működik a lekérdezés.
  Annyit kellett tenni, hogy az "Administrators"-ot "Rendszergazdák"-ra kellett cserélni.

  Visszatéréskor True értéket adott, persze most véletlenül sem találtam olyan felhasználót aki nem admin joggal van

Új hozzászólás Aktív témák