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

• vilag tag

  #2757

  #2756 sztanozs

  2017-02-10 12:19:55

  Ú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 szépen!

  Hétfőn első dolgom lesz, hogy megpróbáljam átültetni a gyakorlatba.

  Üdv, vilag

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