Add local IP Printer error... SWbemObjectEx: Generic failure

I am using the script below to add a local IP printer. The IP port 10.57.3.3
is already created. When I run it I get the error "SWbemObjectEx: Generic
failure" on the line with "objPrinter.Put_".

With the printers window open it looks like the printer is created for a
second, then it disappears and the error comes up.

I can create the printer manually. Any information I have found so far state
it has to do with permissioning, I am logged in as the local administrator.

Any Thoughts?

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_

objPrinter.DriverName = "Xerox Document Centre 430"
objPrinter.PortName = "IP_10.57.3.3"
objPrinter.DeviceID = "copyroom"
objPrinter.Location = "copyroom"
objPrinter.Put_

I was having the same problem and it appears that the computer doesn't like
"objPrinter.Put_" at the end of the script. I added a comment to the end
and the script ran fine.

objPrinter.Network = True
objPrinter.Shared = False
objPrinter.Put_
'jeez

Just remembered something else that might help you. Make sure you have the
drivers on the machine your working on. The drivers not being installed
seems to cause a "Generic Failure" with the "objPrinter.Put_"