USUARIOS Y PERMISOS

Flaco, si no te contestaron es por algo.


Miao...
Comprate un libro.

Hola amigos quiero hacer un programa con VB.NET que me
permita leer la lista de usuarios autorizados en cada
carpeta y los derechos que tienen sobre la misma
Por ejemplo cuando estan en el Explorador de Windows Uds.
hacen clic derecho en un folder, seleccionan propiedades
luego van al tab Security y pueden observar tal
informacion.

Muchas gracias por su ayuda
.

Usando WMI a traves del namespace System.Management puedes obtener esa
informacion. Por ejemplo el siguiente codigo te devuelve el nombre del
usuario propietario de un directorio:

Public Shared Function GetOwner( _
ByVal computerName As String, ByVal directory As String) As String

Dim folderName As String = directory.Replace("\", "\\")
Dim securitySettings As ManagementObject
Dim securityDescriptor(0) As ManagementBaseObject
Dim res As Integer

Try

' Get the folder security settings
securitySettings = New
ManagementObject(String.Format("\\{0}oot\cimv2:Win32_LogicalFileSecuritySetting.Path=""{1}""", computerName, folderName))
securitySettings.Get()

' Get the security descriptor
res =
Convert.ToInt32(securitySettings.InvokeMethod("GetSecurityDescriptor",
securityDescriptor))

If res = 0 Then

Dim owner As ManagementBaseObject

Try
' Get the owner
owner =
DirectCast(securityDescriptor(0).Properties("Owner").Value,
ManagementBaseObject)

' Check if the folder has an owner
If owner Is Nothing Then

' No owner (FAT!)
Return Nothing

Else

' Return the owner name in DOMAIN\USER format
Return
String.Concat(owner.Properties("Domain").Value, "\",
owner.Properties("Name").Value)

End If

Finally

If Not owner Is Nothing Then owner.Dispose()

End Try

Else

Throw New Exception("Error")

End If

Finally

If Not securitySettings Is Nothing Then
securitySettings.Dispose()

End Try

End Function


Eduardo A. Morcillo [MS MVP VB]
http://www.mvps.org/emorcillo