Re: Problem with script to add printers ports, need help.
- From: "Jim Vierra" <jvierra@xxxxxxx>
- Date: Thu, 5 May 2005 15:08:57 -0400
I checked the WMI reference. All properties are read-only. This is
probably not the way to create a port. It looks like it is used for getting
info and status.
You might try doing it with "Security" privilege on the "impersonate"
clause.
--
Jim Vierra
"rham" <rham@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:E9B75824-9C8D-4D41-8741-25468183B913@xxxxxxxxxxxxxxxx
> Server 2003 Standard with all current patches except SP1. I am signed on
> with my domain account that has admin rights.
>
> "Jim Vierra" wrote:
>
>> What version of windows?
>> Do you have admin rights on the machine?
>> What service pack level?
>>
>>
>> --
>> Jim Vierra
>>
>> "rham" <rham@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
>> news:E885E46B-48B3-42D7-92E7-3F4F724D9BBA@xxxxxxxxxxxxxxxx
>> > The error is occuring at the objnewPort.Put_ line. The error message
>> > states:
>> >
>> > Line:15
>> > Char:2
>> > Error: Access Denied
>> > Code: 80041003
>> > Source: SWbemObjectEx
>> >
>> > Thanks,
>> >
>> > Ray
>> >
>> >
>> > "Jim Vierra" wrote:
>> >
>> >> 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:
- Problem with script to add printers ports, need help.
- From: rham
- Re: Problem with script to add printers ports, need help.
- From: Jim Vierra
- Re: Problem with script to add printers ports, need help.
- From: rham
- Re: Problem with script to add printers ports, need help.
- From: Jim Vierra
- Re: Problem with script to add printers ports, need help.
- From: rham
- Problem with script to add printers ports, need help.
- Prev by Date: Re: Problem with script to add printers ports, need help.
- Next by Date: Re: Problem with script to add printers ports, need help.
- Previous by thread: Re: 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
|