CLEAR 
?GetShareInfo('\\ServerName','ResourceName')

FUNCTION GetShareInfo
LPARAMETERS tcServerName as String, tcNetName as String

LOCAL lnBuffer as Integer 
LOCAL lnSize as Integer 
LOCAL lcReturn as String 
LOCAL lnStart as Integer 
LOCAL lnLen as Integer 

DECLARE integer NetShareGetInfo IN netapi32.dll ;
string @servername, string @netname, integer level, integer @bufptr
DECLARE integer NetApiBufferAllocate IN netapi32.dll ;
integer ByteCount, integer @lpBuffer    
DECLARE integer NetApiBufferFree IN netapi32.dll ;
integer lpBuffer    
DECLARE integer NetApiBufferSize IN netapi32.dll ;
integer lpBuffer, integer @nSize    
DECLARE RtlMoveMemory IN WIN32API;
STRING @pDestBuffer, INTEGER nVoidSource, INTEGER nLength

tcServerName=STRCONV(STRCONV(tcServerName, 1 ), 5 )+CHR( 0 )
tcNetName=STRCONV(STRCONV(tcNetName, 1 ), 5 )+CHR( 0 )

lnBuffer= 0 
lnSize= 0 
lcReturn=''

IF NetShareGetInfo(tcServerName,tcNetName, 2 ,@lnBuffer)= 0 
 =NetApiBufferSize(lnBuffer,@lnSize)
 lcReturn=SPACE(lnSize)
 =RtlMoveMemory(@lcReturn,lnBuffer,lnSize)
 lcReturn=STRCONV(STRCONV(lcReturn, 6 ), 2 )
 *!* мухлёж
 lcReturn=SUBSTR(lcReturn,RAT(':\',lcReturn)- 1 )
 lcReturn=LEFT(lcReturn,AT(CHR( 0 ),lcReturn)- 1 )
 =NetApiBufferFree(lnBuffer)
ENDIF 
RETURN lcReturn
ENDFUNC