Solved

How to script enumerating installed printer drivers?

Posted on 2010-08-24
10
1,120 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
  • 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
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 

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: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone 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

Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…
Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…
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…

839 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