Ayuda a un novato

22/02/2006 - 01:26 por Macleod | Informe spam
Hola, tengo un servidor de dominio 2003 y mis clietnes son XP, intento
automatizar la conexión de impresoras a una predeterminada con un script que
bajé de la página de scripts de microsoft y el mismo es el siguiente:

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

Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = 'ScriptedPrinter'")

For Each objPrinter in colInstalledPrinters
objPrinter.SetDefaultPrinter()
Next

LO QUE YO HAYO ES CAMBIAR EN DONDE DICE

("Select * from Win32_Printer Where Name = 'ScriptedPrinter'")

YO PONGO EL NOMBRE DE MI IMPRESORA:

("Select * from Win32_Printer Where Name = Lex_02'")

PERO NO FUNCIONA, NO GENERA ERROR PERO NO HACE NADA. SI LO HAGO ASÍ...

("Select * from Win32_Printer Where Name = '\incon1\Lex02'")

QUE ES EL NOMBRE DE MI SERVIDOR Y MI IMPRESORA ME ENVIA EL SIGUIENTE ERROR:

Error: 0x80041017
Código: 80041017
Origen: (null)

SERIA ALGUIEN TAN AMABLE DE EXPLICARME QUÉ ESTÁ MAL.
GRACIAS!!
 

Leer las respuestas

#1 Enrique de la Garza
22/02/2006 - 06:59 | Informe spam
Unas preguntas, ¿tienes compartida la impresora del servidor?
¿Los usuarios tienen los provilegios y permisos para accesar la impresora?

Saludos,

Enrique Javier de la Garza Vidaurri
DeGarvi Consultores
"Macleod" escribió en el mensaje
news:
Hola, tengo un servidor de dominio 2003 y mis clietnes son XP, intento
automatizar la conexión de impresoras a una predeterminada con un script


que
bajé de la página de scripts de microsoft y el mismo es el siguiente:

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

Set colInstalledPrinters = objWMIService.ExecQuery _
("Select * from Win32_Printer Where Name = 'ScriptedPrinter'")

For Each objPrinter in colInstalledPrinters
objPrinter.SetDefaultPrinter()
Next

LO QUE YO HAYO ES CAMBIAR EN DONDE DICE

("Select * from Win32_Printer Where Name = 'ScriptedPrinter'")

YO PONGO EL NOMBRE DE MI IMPRESORA:

("Select * from Win32_Printer Where Name = Lex_02'")

PERO NO FUNCIONA, NO GENERA ERROR PERO NO HACE NADA. SI LO HAGO ASÍ...

("Select * from Win32_Printer Where Name = '\incon1\Lex02'")

QUE ES EL NOMBRE DE MI SERVIDOR Y MI IMPRESORA ME ENVIA EL SIGUIENTE


ERROR:

Error: 0x80041017
Código: 80041017
Origen: (null)

SERIA ALGUIEN TAN AMABLE DE EXPLICARME QUÉ ESTÁ MAL.
GRACIAS!!

Preguntas similares