Esa "bandera" es una chapuza de alguien , así debería de funcionar

on error resume next 
 
Set objNetwork = CreateObject("Wscript.Network") 
 
'Get current user info from active directory 
Set objADSystemInfo = CreateObject("ADSystemInfo") 
'bind to current user in active directory
set objUser = GetObject("LDAP://" & objADSystemInfo.UserName) 
 
Set objPrinter = objNetwork.EnumPrinterConnections
'Test to see if we have any printers mapped 
If objPrinter.Count > 0 Then 
    'The Printer array is Printer name, printer path that is why it is step 2 
    for i=1 to objPrinter.Count Step 2 
        'test to make sure it is a network printer 
        if instr(objPrinter.Item(i),"\\") <> 0 then
            objNetwork.RemovePrinterConnection objPrinter.Item(i),true,true 
        end if 
    next 
end if 
 
'Get an array of group names that the user is a member of objMemberOf
objMemberOf = objUser.MemberOf
for Each objGroup in objMemberOf 
    'Test to see if it is a printer group. all printer groups should be in the same OU 
    if (instr(objGroup,"OU=Printer-Groups") <> 0) then 
        'Bind to the group to get is description. The description contain the path to the printer 
        set objGroupEnum = GetObject("LDAP://" & objGroup) 
        objNetwork.AddWindowsPrinterConnection objGroupEnum.description 
        set objGroupEnum = nothing 
    end if 
next
 
'Repeat as above for the default printer
for Each objGroup in objMemberOf 
    if (instr(objGroup,"OU=Printer-Default-Groups") <> 0) then 
        set objGroupEnum = GetObject("LDAP://" & objGroup) 
        objNetwork.SetDefaultPrinter objGroupEnum.description 
        set objGroupEnum = nothing 
    end if 
next

Obviamente la solución que se plantea es tener un agregar los usuarios a un grupo para las impresoras, en cuya descripción de grupo esta la ruta al servidor. Esos son los que aparecen en las líneas 26 y 36 del script.

Se podrían llegar a poner varios servidores para un mismo grupo, pero primero habría que ver si este funciona

La primera parte elimina todas las impresoras de red, la segunda agrega las nuevas, y la última configura las por defecto.

Saludos

Hola,

Ejecute el script sobre el dominio y el resultado es el siguiente.

Copyright (C) Microsoft Corporation 1996-2006. Reservados todos los derechos.


***** script completed - exit code: 0 *****

* Lo que comenta 0,0 es agregar las impresoras al grupo es un opcion valida.
* por ese motivo queria que lea desde un archivo plano CSV o TXT para que el          mantenimiento sea mas facil y no se manipule el Active directory sino el archivo para cualquier cambio, alta o baja de impresora.

archivo plano CSV o TXT:
prueba1 (OU)                prueba2 (OU)              prueba3 (OU)
\\server\impresora        \\server\impresora      \\server\impresora

* Cuando el usuasrio inicie la sesion se ejcute el script
* El script compare si pertenece al grupo.
* El script lea desde un archivo plano CSV o TXT
* si pertenece que elimine las impresoras y mapee las nuevas

espero no complicar a nadie y no ser tan fastidioso lo que pido es que ser novato en estos temas es complicado.

Saludos

Hola,

Si entiendo lo que me comentas, esta todo muy bien y te agradezco por el tiempo.
Mi pregunta es este script se puede adecuar al comentario que te hice que lea desde una archivo plano CSV o TXT y compare desde el archivo los grupos y las impresoras sin tener que manipular el active directory.

Saludos

No entendí lo que quieres decir Novlucker, creo que se lo decias a el y pusiste mi nombre o realmente no entendi nada No tienes que meter la ruta del servidor ni impresora en el script.


El script que yo puse supone que el entorno es un dominio windows en el que las impresoras están en el active directory. Lo que hace es mirar la unidad organizativa de impresion que creas en el AD a la que pertenece el usuario que está iniciando sesión y en la que esta la relación de usuarios e impresoras asociadas. Se trata de que tu agreges y quites impresoras en el active directory y script solo es para mapearlas de acuerdo con lo que aparezca en la unidad organizativa.

Lo otro que propones con el archivo de texto es un poco chapuza ya que tienes que dar permisos a los usuarios para agregar y quitar impresoras en red sin contar con los permisos del servidor de impresión (ya que no deseas tocar el AD). Es mas facil administrar la impresoras mediante una unidad organizativa que lo del archivo de texto por el tema de permisos.

Puede ser 0,0, a lo mejor no nos estamos entendiendo, es que creo que me entiendo mejor con t0rete, se ha vuelto a ir?
El problema de los "arreglos" que le he hecho al script son que basicamente ha sido con los ojos vendados, no tengo un AD para hacer las pruebas ni la soltura para manejarme de este modo

Lo que digo seguramente este mal, pero se desprende de aquí;

'Bind to the group to get is description. The description contain the path to the printer
set objGroupEnum = GetObject("LDAP://" & objGroup)
objNetwork.AddWindowsPrinterConnection objGroupEnum.description 

Saludos