Windows 7 Forums
Welcome to Windows 7 Forums. Our forum is dedicated to helping you find support and solutions for any problems regarding your Windows 7 PC be it Dell, HP, Acer, Asus or a custom build. We also provide an extensive Windows 7 tutorial section that covers a wide range of tips and tricks.


Windows 7: VB Script for Installing Network Printers not working


01 Feb 2011   #1

Windows 7 32 bit
 
 
VB Script for Installing Network Printers not working

I have this VB script for installing network printers for Windows XP, but for some reason this is not working with Windows 7(64 bit), can anyone help. I am just wondering Prnadmin.dll works only for xp ???
<CENTER><INPUT value="Install Printers" type=button name=cmdPrinters></CENTER>
<SCRIPT language=VBScript>
<!--
Sub cmdPRinters_OnClick()
Dim WshShell, Result, oPort, oMaster, oPrinter
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "regsvr32 /s \\<servername>\Tools\Prnadmin.dll",1,TRUE
Set WshNetwork = CreateObject("WScript.Network")
Set oPort = CreateObject("Port.Port.1")
Set oMaster = CreateObject("PrintMaster.PrintMaster.1")
Set oPrinter = CreateObject("Printer.Printer.1")
'********* Fiery Color Copier (x1) **********'
If Fiery.Checked Then

oPort.PortName = "\\ikon660\print"
oPort.PortType = 3
oMaster.PortAdd oPort
Set oPrinter = CreateObject("Printer.Printer.1")
oPrinter.PrinterName = "Fiery 660 (Color Copier)"
oPrinter.DriverPath = "\\<<servername>\apps\Printers\Fiery 660"
oPrinter.InfFile = "\\<servername>apps\Printers\Fiery 660\oemsetup.inf"
oPrinter.DriverName = "Fiery PRO80 65-55C-KM PS3.0"
oPrinter.PortName = "\\ikon660\print"
oMaster.PrinterAdd oPrinter

End If

My System SpecsSystem Spec
.

Reply

 VB Script for Installing Network Printers not working




Thread Tools



Similar help and support threads for2: VB Script for Installing Network Printers not working
Thread Forum
Installing fonts via command line/script General Discussion
VBS Script for adding network printer not working on Win7 Network & Sharing
problem at installing greasemonkey's script Browsers & Mail
Having trouble installing ups thermal printers on win 7 Drivers
Solved Printers have quit working after WIN 7 REINSTALL Hardware & Devices
Self-installing LaserJet Pro printers. Hardware & Devices
No printers? Really? Been working fine for months! Hardware & Devices

Our Sites

Site Links

About Us

Find Us

Windows 7 Forums is an independent web site and has not been authorized, sponsored, or otherwise approved by Microsoft Corporation. "Windows 7" and related materials are trademarks of Microsoft Corp.

Designer Media Ltd

All times are GMT -5. The time now is 10:47 PM.
Twitter Facebook Google+



Windows 7 Forums

Seven Forums Android App Seven Forums IOS App
  

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33