for adsi, try this:
Code:

for each $share in GetObject("WinNT://"+@wksta+"/LanmanServer")
$share.name " " $share.path ?
next
get $
_________________________
!

download KiXnet