Urgente, necesito ayuda por favor!!!

Mar?Jos?
14 de Diciembre del 2005
Hola a todos,
estoy intentando instalar impresoras en un servidor con el siguiente vbscript:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "rootcimv2")
Set objPrinter = objWMIService.Get("Win32_Printer").SpawnInstance_
objPrinter.DriverName = "HP LaserJet 4000 Series PS"
objPrinter.PortName = "IP_169.254.110.160"
objPrinter.DeviceID = "ScriptedPrinter"
objPrinter.Location = "USA/Redmond/Building 37/Room 114"
objPrinter.Network = True
objPrinter.Shared = True
objPrinter.ShareName = "ScriptedPrinter"
objPrinter.Put_

pero me da error, no merecococe las lineas:

objPrinter.Network = True
objPrinter.Shared = True
objPrinter.Put_

¿Alguien sabe por qué?
Gracias.