手机系统安装打印机服务器错误代码,安装网络打印机脚本出错

以下是安装网络打印机的脚本，但运行时出错。请帮忙指定错在哪里？谢谢

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

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

objPrinter.DriverName = "HP LaserJet 4000 Series PS"

objPrinter.PortName   = "IP_10.160.22.153"

objPrinter.DeviceID   = "ScriptedPrinter"

objPrinter.Location = "Test"

objPrinter.Network = True

objPrinter.Shared = True

objPrinter.ShareName = "ScriptedPrinter"

objPrinter.Put_

错误信息：

行：12

字符：1

错误：通用故障

代码：80041001

源：SWBem0bjectEx