Error al iniciar script (va sin adjunto)

Os repito el post de ayer. Creo que por miedo a virus, no habeis abierto
el
adjunto así que os pongo las líneas aquí.

Set WshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection "\\xp1800\HPlaser"
WshNetwork.SetDefaultPrinter "\\xp1800\HPlaser"

Gracias de antemano:

hola amigos tengo un problema con un script para instalar una impresora
compartida. El caso es que he configurado las dirtectivas de dominio
para
que se cargue en el inicio. Pues bien, cuando los usuario inician sesión

desde sus pc´s la impresora se aguega perfectamente, pero el caso es que
cuando se inicia el servidor (desde el que se carga el script y el que
tiene
la impresora compartida), siempre muestra el error adjunto.
Hay manera de solucionarlo????
Si el script lo agrego usuario por usuario, evito el error, pero es mucho
mas cómodo hacerlo para todo el dominio.
Gracias