Options for Collecting Print Queue Config Info

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Options for Collecting Print Queue Config Info

Logged in as: Guest

arrSession:exec spGetSession 2,2,61804

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Options for Collecting Print Queue Config Info
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Options for Collecting Print Queue Config Info - 6/24/2008 6:20:46 AM

chiltz

Posts: 76
Score: 0
Joined: 6/13/2007
Status: offline

Hey All,

I am trying to build something that will give me config info for a print queue on a remote machine(Queue Name, Share Name, IP, Port Name, Driver...ect...ect). I thought this would be easy enough using WMI but it seems its more difficult than it should be. Win32_PrinterConfiguration, Win32_Printer and , Win32_TCPIPPrinterPort seem to contain the info I want to collect, but most of the responses I get back are "null". Just wondering what the options are for collecting this info from remote machines. I am currently downloading Web JetAdmin....not sure how well it will work and what sort of reporting abilities it has. Any software I would use needs to be free. I would rahter use VBS if I can...but not sure it will work.

Side note....below is a quick script I threw together just to see if the info I was looking for was getting collected.

Option Explicit
Dim strComputer
Function GetQueueName(strComputer)
Dim objWMIService , objQueueName , colQueueNames
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colQueueNames = objWMIService.ExecQuery("Select * from CIM_Printer_Name")
For Each objQueueName in colQueueNames
  MsgBox "Queue Name: " & objQueueName.Name
Next
set objWMIService = Nothing
End Function
Function GetPrinterType(strComputer)
Dim objWMIService , objPrinterType , colPrinterType
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colPrinterType = objWMIService.ExecQuery("Select * from Win32_Printer")
For Each objPrinterType in colPrinterType
  MsgBox "Printer Type: " & objPrinterType.DeviceID
Next
set objWMIService = Nothing
End Function
Function GetDriverVer(strComputer)
Dim objWMIService , objDriverVer , colDriverVer
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
set colDriverVer = objWMIService.ExecQuery("Select * from Win32_Printer")
For Each objDriverVer in colDriverVer
  MsgBox "Driver Version: " & objDriverVer.DriverName
Next
set objWMIService = Nothing
End Function
Function GetPortName(strComputer)
Dim objWMIService , objPort , colPorts
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPorts =  objWMIService.ExecQuery("Select * from Win32_TCPIPPrinterPort")
For Each objPort in colPorts
   MsgBox "Port Name: " & objPort.Name
Next
set objWMIService = Nothing
set objPort = Nothing
set colPorts = Nothing
End Function
Function GetPrinterIP(strComputer)
Dim objWMIService , objPort , colPorts
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colPorts =  objWMIService.ExecQuery("Select * from Win32_TCPIPPrinterPort")
For Each objPort in colPorts
   MsgBox "Printer IP: " & objPort.HostAddress
Next
set objWMIService = Nothing
End Function
'********************************************
strComputer = InputBox("Enter Machine Name: ")
GetQueueName(strComputer)
GetPrinterType(strComputer)
GetDriverVer(strComputer)
GetPortName(strComputer)
GetPrinterIP(strComputer)

Post #: 1

RE: Options for Collecting Print Queue Config Info - 6/24/2008 6:46:19 AM

ebgreen

Posts: 5041
Score: 31
Joined: 7/12/2005
Status: offline

Are you collecting information on the server or the client?

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to chiltz)

Post #: 2

RE: Options for Collecting Print Queue Config Info - 6/25/2008 12:30:30 AM

chiltz

Posts: 76
Score: 0
Joined: 6/13/2007
Status: offline

These would be print queues created on Domain Controllers...more than 500 of them infact

(in reply to ebgreen)

Post #: 3

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Options for Collecting Print Queue Config Info

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts