Logon script to add 32bit printer drivers to 32bit system from 64bit server

Experts,
I have a 64bit print server that serves a variety of printers including HP, Sharp, and Savin. I am using a logon script to assign the printers to users, but the Sharps and Savins all fail because a 32bit driver is needed for the 32bit systems. The HP's dont suffer from this problem. I have moved the Sharps and Savins to a 32bit print server, but that is only a tempory solution and need to be able to serve those printers from my 64bit system. So what I am looking for is recomendations on how to script the installation of the 32bit printer drivers to the 32bit clients.

Below you will find my logon script:

Option Explicit
'Printer variables
Dim objPrinter
Dim strPathSharpAcct, strPathSharpEst, strPathSharpRec, strPathSavin, strPathHP5si
Dim strPathSharpPM
 
 
'Network Drive variables
Dim objNetwork
Dim strDriveF, strDriveT, strDriveU, strPathF, strPathT, strPathU
 
'Printer paths are defined
 
strPathSharpEst = "\\serverdv1a\SHARP AR-M237 Estimating"
strPathSharpRec = "\\serverdv1a\SHARP AR-168S Reception"
strPathSharpPM = "\\serverdv1a\SHARP PM"
strPathSharpAcct = "\\serverdv1a\SHARP AR-M237 Accounting"
strPathHP5si = "\\servernas1b\HP LaserJet 5Si"
strPathSavin = "\\serverdv1a\SAVIN C3828 PCL 5c"
 
 
'Network drives and paths are defined
strDriveF = "F:"
strDriveT = "T:"
strDriveU = "U:"
strPathF = "\\servernas1b\server"
strPathT = "\\serveracct1a\timber"
strPathU = "\\servernas1b\users"
 
 
'Below this line Printer mapping takes place
objPrinter.AddWindowsPrinterConnection strPathSharpAcct
objPrinter.AddWindowsPrinterConnection strPathSharpEst
objPrinter.AddWindowsPrinterConnection strPathSharpRec
objPrinter.AddWindowsPrinterConnection strPathSharpPM
objPrinter.AddWindowsPrinterConnection strPathHP5si
objPrinter.AddWindowsPrinterConnection strPathSavin
 
'Below this line network drive mapping takes place
On Error Resume Next
Set objNetwork = WScript.CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveF, strPathF, True
objNetwork.MapNetworkDrive strDriveT, strPathT, True
objNetwork.MapNetworkDrive strDriveU, strPathU, True
 
WScript.Quit

Select allOpen in new window