Re: Problem with script to add printers ports, need help.
- From: "Jim Vierra" <jvierra@xxxxxxx>
- Date: Thu, 5 May 2005 13:07:29 -0400
What line number. Is it happening on the "Put_". or the new instance.
Put trace statements in file to see. "WScript.Echo "We Are here trace" ...
etc.
Last line to send output is line before failure. Or count lines from top of
notepad starting with "1".
--
Jim Vierra
"rham" <rham@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:103C6124-3C6E-45F0-99BB-2F66BE21DA08@xxxxxxxxxxxxxxxx
>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:
- References:
- Prev by Date: Re: How can I monitor a build up of files in a folder?
- Next by Date: Re: Problem with script to add printers ports, need help.
- Previous by thread: Problem with script to add printers ports, need help.
- Next by thread: Re: Problem with script to add printers ports, need help.
- Index(es):
Relevant Pages
|
Loading
