用VB如何读取共享目录的权限

[jianhuacai]

用VB如何读取共享目录的权限
(是EveryOne，还是Admin，或其他)
最好有原码，告诉到哪找也行。

[liyang]

使用
DWORD GetNamedSecurityInfo(
LPTSTR pObjectName, // object name
SE_OBJECT_TYPE ObjectType, // object type
SECURITY_INFORMATION SecurityInfo, // information type
PSID *ppsidOwner, // owner SID
PSID *ppsidGroup, // primary group SID
PACL *ppDacl, // DACL
PACL *ppSacl, // SACL
PSECURITY_DESCRIPTOR *ppSecurityDescriptor // SD
);

[jianhuacai]

有没有用VB的办法