Nome do compartilhamento da impressora

[marca]

Ola pessoal

Preciso saber como pegar o nome do compartilhamento da impressora
ja tentei com as funcoes
* oPrn:GETMODEL()
* PrnGetName() ,
* PrnGetDrive() ,
* AGetPrinters()
* GetDefaultPrinter()
* PrnGetName()
e nenhuma me traz o nome do compartilhamento



Impressoras compartilhada no WindowsXp ele mostra assim na aba GERAL:

1º) ==> \\Terminal\Epson LX-810

porém na aba PORTAS, é q. esta o nome do compartilhamento ficando assim:

2º) ==> \\Terminal\lx810

oPrnDos := TDosPrn():New( cFilePrint )
oPrnDos:StartPage()
FOR n = 1 TO Min(MlCount(cTxt,oWnd:cargo:nMaior),66)
oPrnDos:Say(n,0,StrTran(Rtrim(Memoline(cTxt,oWnd:cargo:nMaior,n)),CRLF),j+3)
NEXT
oPrnDos:EndPage()
oPrnDos:End()
Caso qPorta := \\Terminal\lx810 funciona perfeito
mas qPorta := \\Terminal\Epson LX-810 NAO FUNCIONA

WAITRUN("CMD /C COPY /B " + cFilePrint + " " + qPorta, 0 )


Preciso saber como pegar o nome do compartilhamento correto

Obrigado