El Guru Programador
Usuario DESCONOCIDO | Registrate Gratis | Usuarios Registrados
Foro de VBScript
Foros del Guru > VBScript
 
Usuario Urgente, tengo problemas!!!
Desconocido
Enviado - 14/12/2005
 
Hola a todos,
estoy intentando instalar impresoras en un servidor con el siguiente vbscript:

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_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.
 
Desconocido
Enviado - 24/8/2006
 
objPrinter.Shared solo funciona en Windows XP y 2003, para Windows 2000 tienes que crear una clase
 
 

 

Contactos myStudio Network