Installed Printers on Network Computer

[greg0303]

I was wondering if there is a way to query a computer on the network and check to see what printers are install for the current logged on user. Currently I am using the following with mixed results:
Set objWMIService = GetObject("winmgmts:\\" & COMPUTERNAME & "\root\cimv2")
Set colPrinter = objWMIService.ExecQuery("Select * from Win32_Printer")

For Each objPrinter in colPrinter
strHTML = strHTML & objPrinter.caption & "<br>"
Next

This will provide me with locally installed printers and sometimes (very few) network installed printers. I want to be able to always find out all the computers the user has installed.

Thanks.

 

[alexander1113]

This isn't the best solution but perhaps it can spark another idea, how about using the SHell object to execute a net view command which will list all computers, and you can query from there for all the computers listed?

 

[alexander1113]

Also try this link:

http://www.activexperts.com/activmonitor/windowsmanagement/adsi/samples/#file003.htm

 

[greg0303]

I can already find the computers I want to query, what I need is to be able to tell what printers are installed for a user logged which is currently logged onto that computer. This is for help desk so that I can quickly pull up information on a user, what processes they are running, what programs are installed etc. The only thing that I am having trouble with is displaying the printers they have installed.