Solved

How to script enumerating installed printer drivers?

Posted on 2010-08-24
10
1,127 Views
Last Modified: 2013-12-01
I have a vbscript that enumerates all the printers on a given server, and includes most of the information I need.  The last piece I need help with is identify which processors have drivers installed.  I need to verify that both x64 and x86 are installed.  
The query itself is:
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer",,48)

Thanks,
Steve
0
Comment
Question by:usmmsupport
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 5
  • 4
10 Comments
 
LVL 65

Expert Comment

by:RobSampson
ID: 33517388
Hi, if you run Microsoft's ScriptoMatic V2, you should be able to enumerate the Win32_PrinterDriver class, and pull out the required driver names from there.....

Would that help get you on the right track?

Regards,

Rob.
0
 

Author Comment

by:usmmsupport
ID: 33519966
The driver name will tell me which driver it's using, but it won't tell me which processors it's good for.  I need to enumerate which check boxes are selected when I click the Additional Drivers button on the Sharing tab.
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 33528376
OK, after a stack of searching and trying different things, I finally plugged the right query into Google, and came up with this:
http://blogs.technet.com/b/heyscriptingguy/archive/2005/07/19/how-can-i-retrieve-information-about-the-printer-driver-used-by-a-printer.aspx

So, I have modified that code, and taken the approach at the bottom of that article, to get every driver name on a server, then output every printer that uses that driver.

Regards,

Rob.
If LCase(Right(Wscript.FullName, 11)) = "wscript.exe" Then
    strPath = Wscript.ScriptFullName
    strCommand = "%comspec% /k cscript  """ & strPath & """"
    Set objShell = CreateObject("Wscript.Shell")
    objShell.Run(strCommand), 1, True
    Wscript.Quit
End If

On Error Resume Next

Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

strComputer = "PRINTSERVER"

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colDrivers = objWMIService.ExecQuery("SELECT Name FROM Win32_PrinterDriver", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)

For Each objDriver In colDrivers
	WScript.Echo VbCrLf & "Driver: " & objDriver.Name & VbCrLf & String(50, "=")
	Set colDevices = objWMIService.ExecQuery("Associators Of {Win32_PrinterDriver.Name='" & objDriver.Name & "'} WHERE AssocClass = Win32_DriverForDevice Role=Dependent")
	For Each objDevice In colDevices
	    Wscript.Echo "Name: " & objDevice.DeviceID & vbCrLf & "Share Name: " & objDevice.ShareName
	Next
Next

Open in new window

0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:usmmsupport
ID: 33530972
This is much closer, but it appears that it lists out the x86 drivers, but doesn't put any printer names there.  It lists all the x64 ones properly.
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 33536933
Hmmm, that's odd.  It list x86 drivers on my x86 systems.....can you try it on an x86 system?  I will see if I can try it on an x64 system...

Rob.
0
 
LVL 65

Accepted Solution

by:
RobSampson earned 500 total points
ID: 33538743
I don't have any x64 print servers, and on a standard x64 system, I only have 64 bit drivers installed, so I can't replicate your issue.

I can't see why it wouldn't show the associated printers though....unless they have a different name....

On your 64 bit system, put this in a batch file
mshta C:\Temp\ScriptoMaticV2.hta

and download ScriptoMaticV2.hta from Microsoft to C:\Temp, then with the batch file, "Run As Administrator".  This will show the ScriptoMatic HTA.  On the right, select Win32_DriverForDevice and click Run.  Sift through that and see if the x86 links are there....

Regards,

Rob.
0
 

Author Comment

by:usmmsupport
ID: 33540736
Running that only shows the x64 drivers, no x86 drivers.
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 33547701
OK, obvious question....are you sure you have some x86 drivers ticked for a printer or two?

Rob.
0
 

Author Closing Comment

by:usmmsupport
ID: 33681492
problem no longer relevant
0
 

Expert Comment

by:wtpritz
ID: 37881595
what a waste of time
0

Featured Post

Free Tool: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

I use more than 1 computer in my office for various reasons. Multiple keyboards and mice take up more than just extra space, they make working a little more complicated. Using one mouse and keyboard for all of my computers makes life easier. This co…
With User Account Control (UAC) enabled in Windows 7, one needs to open an elevated Command Prompt in order to run scripts under administrative privileges. Although the elevated Command Prompt accomplishes the task, the question How to run as script…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question