Mapeo de impresoras en red por usuarioa

[Novlucker]

Es que el script que te había dejado solo listaba, no agregaba ninguna impresora.
Para lo que pides te serviría el que ha dejado 0,0, solo que tal vez habría que hacerle un par de modificaciones.

Saludos

[efer27]

Hola,

Gracias 0,0 por responder a mi preguntael script esta bien.

Que cambios se tendria que hacer ??


Saludos

[efer27]

Hola,

probe el script que me comento  0,0 y me sale este error ??

Microsoft (R) Windows Script Host versión 5.8
Copyright (C) Microsoft Corporation 1996-2006. Reservados todos los derechos.

\\192.168.2.140\netlogon\prueba.vbs(20, 47) Error de compilación de Microsoft VBScript: Error de sintaxis


***** script completed - exit code: 1 *****

Linea en el que sale error .

20                msgbox "Deleting:" & vbcrlf &

[T0rete]

Si lees la discusion del centro de scritps creo que lo mencionan. Esa parte es para borrar las impresoras anteriormente mapeadas, esa parte la puedes eliminar sin problemas.


El no borrar las impresoras mapeadas simplemente te dará problemas si el usuario tiene impresoras mapeadas del anterior server y si cambias las impresoras asignadas a los grupos. Se iran quedando todas las impresoras no validas mapeadas. No se si alguien puede corregir esa parte.

[Novlucker]

En cuanto tenga un rato lo miro, pero por lo pronto hay partes del script que estan comentadas, sin las cuales no funciona

Saludos

[efer27]

Hola Novlucker,

te agrdesco el interes que pones a la pregunta, es el unico foro que contesta las pregunta con una rapidez impresionante.

Gracias a todos  por la ayuda y a la espera de tus comentarios.

Saludos

[T0rete]

Evidentemente las unidades organizativas vienen comentadas porque tienes que poner tu la unidad tal y como la hayas creado en el AD. Y ni que decir tiene que si descomentas el código seguiría sin funcionar hasta que no crees tu la OU en tu AD.

[Novlucker]

Es que esta línea por ejemplo viene comentada ...

Código (vb) [Seleccionar] Expandir

Set objADSystemInfo = CreateObject("ADSystemInfo")
...y sin eso, desde el vamos no podrás obtener los atributos del AD

Saludos

[T0rete]

Si, descomenté el

Código [Seleccionar] Expandir

Set objADSystemInfo = CreateObject("ADSystemInfo") y el siguiente

Código [Seleccionar] Expandir

set objUser = GetObject("LDAP://" & objADSystemInfo.UserName)

Por la breve discusión que hay en la fuente(puse en enlace junto al codigo) hay mas errores. No entendi muy bien que hay que borrar del primer Dim:

In the first "Dim" line, I'm not sure but it doesn't appear that "dim i" needs to be in there. I removed that.

¿Es solo el dim i o el resto a partir de ahí también?

[Novlucker]

No he podido mirarlo aún, había salido a comer, aquí ahora son las 14:00
Da igual, en vbs los Dim no son necesarios, así que podrías quitar la línea entera que no afecta en nada.

Saludos