September 5, 2008 04:27am pdt

1. hdhondt 232,139
2. michko 68,774
3. nobus 67,415
4. croberds 60,525
5. wyliecoy... 38,986
6. b0lsc0tt 38,770
7. MASQUE... 22,048
8. DansDadUK 20,083
9. briancassin 16,750
10. tsmvp 13,575
11. LeeTutor 13,195
12. johnb6767 12,786
13. warrenbu... 11,600
14. lauchangk... 11,035
15. RobSamp... 9,000
16. PeteJTho... 8,400
17. rindi 8,060
18. f-king 7,500
19. joed 7,157
20. TechSoEasy 7,100
21. lnkevin 6,700
22. jhyiesla 6,525
23. garycase 6,300
24. RobWill 6,000
24. Bibliophage 6,000

1. hdhondt 1,018,145
2. wyliecoy... 310,917
3. nobus 286,890
4. michko 180,421
5. b0lsc0tt 143,300
6. briancassin 97,313
7. newuser4 77,832
8. MASQUE... 66,661
9. croberds 60,525
10. joed 52,487
11. jrhelgeson 47,910
12. Sheharya... 41,900
13. thoffman 40,431
14. Watzman 35,194
15. johnb6767 33,828
16. David523 28,045
17. LeeTutor 26,045
18. jonoakley 25,400
19. SteveG0... 25,314
20. DansDadUK 24,833
21. MrBillisMe 24,329
22. WillHudson 24,100
23. printerguy 22,521
24. AndrewJ... 21,700
25. astaec 21,025

07.20.2008 at 09:59AM PDT, ID: 23580245 | Points: 500

	[x] Attachment Details

Install MFD printer VBscript

Asked by rowfei in Drivers, Printers & Scanners, VB Script

I am using the following vbs codes to install our MFD printer. But now the codes won't works and I get a error message "Line: 56; Chart: 2; Error: The system cannot find the file specified. Code: 80070002." I have make sure the driver name & location are correct.

Please help.

Start Free Trial

         
           
             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:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:

           
           
             PathToDLL = "\\whateverserver\whateverpath\PRNADMIN.DLL"
portloc = "1.1.1.1"
DriverName = "HP LaserJet IIISi"
PrintQueueName = "Printer Number 1"
 
 
 
 
set wshshell = wscript.createobject("wscript.shell")
set fso = createobject("scripting.filesystemobject")
 
fso.copyfile PathToDLL, "c:\Program Files\PRNADMIN.DLL", True
wshshell.run "regsvr32 /s ""c:\Program Files\PRNADMIN.DLL""", , True
wscript.sleep 1000
 
      dim oPort
      dim oMaster
      set oPort = CreateObject("Port.Port.1")
      set oMaster = CreateObject("PrintMaster.PrintMaster.1")
 
 
         portinput = "IP_" & portloc
      oPort.ServerName = ""
 
        sPortExist = False
      for each oPort in oMaster.Ports("")
        if oPort.PortName = portinput then
            sPortExist = True
          End If
      next
 
  If sPortExist = False then
        
      set oPort = CreateObject("Port.Port.1")
      oPort.PortName   = portinput
      oPort.PortType = 1
      oPort.HostAddress = portloc
      oPort.PortNumber = 9100
      oPort.SNMP = false
      oMaster.PortAdd oPort
      if Err <> 0 then
        msgbox "an error occurred"
      end if
 
  End If
 
 
      dim oPrinter
      set oPrinter = CreateObject("Printer.Printer.1")
      oPrinter.ServerName  = ""
        oPrinter.DriverPath  = "C:\Printer\Driver\Ricoh MP7000"
      oPrinter.InfFile     = "C:\Printer\Driver\Ricoh MP7000\RC67E12K.inf" 
      oPrinter.PrinterName = PrintQueueName 
      oPrinter.DriverName  = DriverName
      oPrinter.PortName    = portinput
      oMaster.PrinterAdd oPrinter
      if Err <> 0 then
         msgbox "an error occurred"
 
 
    set oport = nothing
    set oPrinter = nothing
    set oMaster = nothing
    set wshshell = nothing
    set fso = nothing

           
         

Keywords: Install MFD printer VBscript

	Title
1	I want a more elegant printer script..…
2	vb script to capture printer status and …
3	2k3 Default Printer Problems
4	VBSCRIPT to change printer setting to …
5	Printer monitor
6	Changing printer orientation

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628