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