Re: Problem with script to add printers ports, need help.

I created this script on a WinXP machine without any problems but it doesn't
work on 2k3. I basically copied the template from the Script Center that
says it works on Windows 2003(See below).

Set objWMIService = GetObject("winmgmts:")
Set objNewPort = objWMIService.Get _
("Win32_TCPIPPrinterPort").SpawnInstance_
objNewPort.Name = "IP_169.254.110.14"
objNewPort.Protocol = 1
objNewPort.HostAddress = "169.254.110.14"
objNewPort.PortNumber = "9999"
objNewPort.SNMPEnabled = False
objNewPort.Put_

Also, I did try to do the impersonate privilege without success. Very
frustrating.

"Jim Vierra" wrote:

> 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
> >> >>
> >> >>
> >> >>
> >>
> >>
> >>
>
>
>
.

Relevant Pages

  • Re: Problem with script to add printers ports, need help.
    ... Do you have admin rights on the machine? ... >> Jim Vierra ... >>> first want to add the printer ports but I am running into a problem. ... >>> Just for the heck of it I ran the template script from the script ...
    (microsoft.public.windows.server.scripting)
  • Re: Safe Mode detection
    ... This is the whole script just add a computer name to access a remote ... Set colItems = objWMIService.ExecQuery("SELECT * FROM ... This will create an environment var called "BOOT_STATE" ... Jim Vierra ...
    (microsoft.public.windows.server.scripting)
  • Re: Problem with script to add printers ports, need help.
    ... Ray ... "Jim Vierra" wrote: ... >> first want to add the printer ports but I am running into a problem. ... >> Just for the heck of it I ran the template script from the script center ...
    (microsoft.public.windows.server.scripting)
  • Re: Login Script - Mapping a drive based on Username
    ... >> mappings can be done for each user based on membership in multiple ... >> Jim Vierra ... > making changes to the script to change its behaviour. ...
    (microsoft.public.windows.server.scripting)
Loading