bacho_sun

Ребята я был на MSDN.COM взял вот этот исходник (делаю под Builder для определения скрытых и не скрытых ресурсов локальных компьютеров под XP и 2000 на которых не установленны фаерволы и никакой защиты), но он вообще не работает..
Прошу вас помогите


PSHARE_INFO_502 BufPtr,p;
NET_API_STATUS res;
LPTSTR lpszServer = NULL;
DWORD er=0,tr=0,resume=0, i;

lpszServer = "\\ind01";

do // begin do
{
res = NetShareEnum (WideString(lpszServer), 502, (LPBYTE *) &BufPtr, -1, &er, &tr, &resume);
//
// If the call succeeds,
//
if(res == ERROR_SUCCESS || res == ERROR_MORE_DATA)
{
p=BufPtr;
//
// Loop through the entries;
// print retrieved data.
//
for(i=1;i<=er;i++)
{
Memo1->Lines->Add(p->shi502_netname);
Memo1->Lines->Add(p->shi502_path);
Memo1->Lines->Add( p->shi502_current_uses);
// , p->shi502_path, p->shi502_current_uses);
//
// Validate the value of the
// shi502_security_descriptor member.
//
if (IsValidSecurityDescriptor(p->shi502_security_descriptor))
printf("Yes
");
else
printf("No
");
p++;
}
//
// Free the allocated buffer.
//
NetApiBufferFree(BufPtr);
}
else
printf("Error: %ld
",res);
}
// Continue to call NetShareEnum while
// there are more entries.
//
while (res==ERROR_MORE_DATA); // end do
return;