How do I install printer and add additional tray under install options using VBS?

My company is getting a new model of Multi-Function-Printers: Lexmark X646e.  I am having to install them on multiple floors for hundreds of people.  I have a VBS install script that installs the printer and uses the latest driver.  There is one problem.  The print driver install does not automatically sense the additional 500 sheet trays Installed with the printer.

You can manually add the additional tray on each PC via the "Install Options" tab under printer properties, but I would like to have this done automatically through the script.

These are Windows XP Pro clients, SP2.  I have attached my current code.  

Any Ideas?
'Option Explicit
On Error Resume Next
Set objNetwork = CreateObject("WScript.Network")
Set objShell = CreateObject("WScript.Shell")
 
'**************************************
'* Define Constants & Global Variables
'**************************************
Dim objDomainUser, objNetwork, objShell, strComputer, colDrives, i
Dim objWMI, objNewPort, strPrinterHost, strPrinterName, strPrinterDriver, strUserName, strPrinterDriverLocation, strPrinterDriverInfFile
 
 
 
'
 
'****Printer Lexmark646e*****************
Strcomputer ="."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
objWMI.Security_.Privileges. _
    AddAsString "SeLoadDriverPrivilege", True
Set colInstalledPrinters = objWMIService.ExecQuery("Select * from Win32_Printer where DeviceID = 'PrinterLX'")                                                                                             
For Each objPrinter in colInstalledPrinters 
objPrinter.Delete_
Next
' Put the hostname of the printer here
strPrinterHost = "PrinterLX"
' Put the name of the printer here
strPrinterName = "PrinterLX"
Set objShell = CreateObject("WScript.Shell")
' Create the printer port
Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
objWMI.Security_.Privileges. _
    AddAsString "SeLoadDriverPrivilege", True
Set objNewPort = objWMI.Get("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_" & strPrinterHost
objNewPort.Protocol = 1
objNewPort.HostAddress = strPrinterHost
objNewPort.PortNumber = "9100"
objNewPort.SNMPEnabled = False
objNewPort.Put_
 
 
objshell.run "RUNDLL32 PRINTUI.DLL,PrintUIEntry /if /b ""PrinterLX""" & " /f " & """\\ServerShare\Printers\prdrivers\lexmarkx646\win_2kxp\LMABC2DA.INF""" & " /r " & """ip_PrinterLX""" & " /m " & """Lexmark X646e""",,True
 
 
'

Open in new window

marktgeorgeAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

marktgeorgeAuthor Commented:
I figured it out with the help of the lexmark provided utility that automates installs using the proprietary lexmark install software scripts.  However I will say it is much simpler to administer and change when using a blend of the two (use vbs to create printer and printer ports and use lexmark for driver customization).  You can call the lexmark utility from your vbs scripts.  However, there are some shortcomings on the switches used by lexmark's executable.  Yes, the lexmark utility also allows for remote installs on multiple pcs, but it requires hard coded username and password for install rights.  In my organization, that is not an option - perversely strict security requirements!
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
marktgeorgeAuthor Commented:
Use the above code to create the printer object and port, then call Lexmarks install utility(in the vbs code) and Lexmark custom created answer file to install the customized driver complete with tray and other add-on options you specified.   The Lexmark software will come with the printer.

0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.