thank you John. I don't know so much about system programming. Than no succes. That's my codes:

pr=CreateObject("WScript.Network")
DIMENSION  xxx(1)
pr.EnumPrinterConnections(@xxx)
?xxx(1)

>You can do it via a WScript.Network object. Check out this link:
>
>http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/wsmthenumprinterconnections.asp
>
>
>>Hi all,
>>
>>I got printers network names with aprinters() function. second column of array give me what I want.
>>
>>It gives me printers network names, but some printers, it doesn't give me network names. So I tried aprinters with second parameter ( like aprinters(my_array,1).
>>
>>It writes in help 5nd column give printers location. But it is empty for me. Isn't printer location printer's network name? If it must printers network name why I got empty string?
>>
>>If there is another way for get my connected printers network names it is okey for me.