Network Share permissions

use ADSI

Set comp = GetObject("WinNT://SEATTLE,computer")
Set svc = GetObject(comp.ADsPath & "/" & "LanmanServer")
For Each fileShare In svc
Debug.Print fileShare.Name & " " & " " & fileShare.CurrentUserCount
& " " & fileShare.Path
Next

"Curtis" <cbarton@agr.state.ga.us> wrote:
>
>I need to get a list of all network shares and the groups that have access
>to the shares. I have looked into using C++ and the NetShareEnum function,
>but it seems to be going nowhere. are there any suggestions as to how I
>can get this information ( preferably in a text file )? Any help would
be
>greatly appreciated.