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.

Lo de la ruta del servidor y los dos servidores no lo entendi. El script coge la ruta de ldap por pertenencia a un dominio y no hace falta ruta de servidor. En el caso de dos servidores de impresión tampoco hay que añadir ruta ni nada si estan dentro del mismo dominio porque la impresoras son objetos  del Active directory y simplemente hay que añadirlas a la unidad organizativa correspondiente.

Lo que si hay que hacer es crear una unidad organizativa donde se definan los grupos de usuario y que impresora le corresponden.

Yo lo decía porque el siguiente problema que se encuentra es el bTroubleFlag y justo aparece con el dim

Solo tengo que añadir que me deprime profundamente tu forma de escribir. ¿Lo haces a propósito o es que el español no es tu idioma nativo?

Como primer proyecto hacer una web de apuestas como que no, eso le queda grande a ti y al 90% de la gente que si sabe lo que está haciendo. Apunta mas bajo porque ya te digo yo que si tu primera web es de algo que maneje dinero lo mejor que puede pasar es que acabes en la carcel.

Si vas a goear, youtube o lo que sea y la música suena sin problemas va a ser algún problema con el controlador del lector o algún volumen del sistema que falta por subir.

Si es un CD de audio normal o con archivos de mp3 no pueden ser los codec porque eso lo reproduce cualquier reproductor sin instalar nada adicional.

Si, descomenté el

y el siguiente


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:


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

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.

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.

Si le das un vistazo al script center de technet lo mismo encuentras una solucion que no use un archivo y se base en las politicas de grupo.

http://www.microsoft.com/spain/technet/recursos/script.mspx

Creo que uno de los que se adaptan a lo que quieres es este de visual b:
Map Printers Based on Group Membership
http://gallery.technet.microsoft.com/scriptcenter/bf160908-93e3-484c-944f-1c95004c5498

on error resume next 
Dim objADSystemInfo, objUser, objMemberOf, objGroup, objGroupEnum, objNetwork, objPrinter dim i, bTroubleFlag 
 
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) 
 
if objuser.description = "printer.trouble" then 
    bTroubleFlag = true 
    msgbox "Troubleshooting Printer Logon Script" 
end if 
 
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 
            if bTroubleFlag then 
                msgbox "Deleting:" & vbcrlf & 
objPrinter.Item(i) 
            end if 
            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 = 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) 
        if bTroubleFlag then 
            msgbox "Adding:" & vbcrlf & "[" & 
objGroupEnum.name & "]" & vbcrlf & objGroupEnum.description 
        end if 
        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) 
        if bTroubleFlag then 
            msgbox "Setting Default:" & vbcrlf & "[" & objGroupEnum.name & "]" & vbcrlf & objGroupEnum.description 
        end if 
        objNetwork.SetDefaultPrinter objGroupEnum.description 
        set objGroupEnum = nothing 
    end if 
next 
 
if bTroubleFlag then 
    msgbox "Printer Logon Script Finished" 
end if