Friday, April 28, 2006

Grupos e Utilizadores associados a um ficheiro ou Pasta

Existe maneiras para visualizar os grupos e utilizadores associados a uma pasta ou ficheiro, para isso este codigo ajuda na sua visualização.


Imports System.Management
Imports System.Security.AccessControl
Imports System.Security.Principal

Dim path As String = "caminho da pasta ou ficheiro"

Dim sd As FileSecurity = File.GetAccessControl(path)
For Each ace As FileSystemAccessRule In sd.GetAccessRules(True, True, GetType(NTAccount))
Dim name As NTAccount = CType(ace.IdentityReference, NTAccount)
' onde ira guardar os nomes
ListBox2.Items.Add(name)
Next
Post a Comment