Mensajes

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

For the life of me, I couldn't get it to unset bTroubleFlag, so it was always processing the script with extra output. I ended up commenting out the few lines that enables it.

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

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?

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.

lo que quiero es que cuando inicie la sesion el usuario valide al grupo que pertenece y asi pueda asignar la impresora.

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

Código (vb) [Seleccionar] Expandir

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