Como listar o nome de compartilhamento das impressoras da rede?

Olá Pessoal!

Eu estou trabalhando com um módulo que visa facilitar o gerenciamento de impressoras, e encontrei uma solução para o programa que exige o nome de compartilhamento dos dispositivos que vou manipular.

Ou seja...

Tenho a impressora X:

\\172.168.2.2\HP DeskJet XXX

Preciso do Nome de compartilhamento, que seria:

\\172.168.2.2\HPLaserJ

Sabem como faço pra listar essas impressoras do servidor, de modo a me trazer o nome de compartilhamento das mesmas?

Grato.

Obs: Linguagem VB6