How about ANETRESOURCES()?
* * *

DECLARE INTEGER NetShareEnum IN netapi32;
	STRING servername, LONG lvl, INTEGER @bufptr,;
	LONG prefmaxlen, LONG @entriesread, LONG @totalentries,;
	LONG resume_handle

The NetShareEnum function retrieves information about each shared resource on a server or local computer.

MSDN link
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/netmgmt/netmgmt/netshareenum.asp

FoxPro code sample (members area):
Retrieving information about shared resources on the local computer (WinNT/XP)
http://www.news2news.com/vfp/?example=351