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

• #2756 sztanozs veterán vilag #2755

  Új Válasz 2017-02-09 11:22:44 #2756

  Ú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

  Privát üzenet küldése

  

  sztanozs

  veterán

  válasz vilag #2755 üzenetére

  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")

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