Problem with script to add printers ports, need help.
- From: "rham" <rham@xxxxxxxxxxxxxxxxxxxxxxxxx>
- Date: Thu, 5 May 2005 09:12:04 -0700
I am trying to add a large quantity of printers to a new printserver. I
first want to add the printer ports but I am running into a problem.
Whenever I run the script below it errors out with "Access Denied".
Just for the heck of it I ran the template script from the script center and
I get the same error. Does anyone have an idea why I get that error? Am I
missing something in my script? And yes I am admin on the box.
Here is the script.
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Scripts\Printer\New_ports.xls")
objExcel.Visible = True
intRow = 2
Do Until objExcel.Cells(intRow,1).Value = ""
strComputer = "."
Set objWMIService = GetObject("winmgmts:")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = objExcel.Cells(intRow,5).Value
objNewPort.Protocol = 1
objNewPort.HostAddress = objExcel.Cells(intRow,1).Value
objNewPort.PortNumber = "9100"
objNewPort.SNMPEnabled = False
objNewPort.Put_
intRow = intRow + 1
Loop
objExcel.Quit
I appreciate any advice.
Thanks,
Ray
.
- Follow-Ups:
- Re: Problem with script to add printers ports, need help.
- From: Torgeir Bakken \(MVP\)
- Re: Problem with script to add printers ports, need help.
- From: Jim Vierra
- Re: Problem with script to add printers ports, need help.
- Prev by Date: Re: Text Script
- Next by Date: Re: How can I monitor a build up of files in a folder?
- Previous by thread: Automate VPN and Remote Desktop ??
- Next by thread: Re: Problem with script to add printers ports, need help.
- Index(es):
Relevant Pages
|
