Mensajes

... y tienen en su web un apartado específico para comentar esto.
Tanto lo de Android como lo de WP7 es un fail de los usuarios, si en un principio te da la opción de activar esto y tu le das que si, luego no te quejes
En cambio lo de los dispositivos iOS no te lo pregunta en ningún sitio.

Saludos

[ahora]

Mi error, es free ahora que está en beta.

Saludos

Ya es de pago

Saludos

Mira las últimas líneas
http://technet.microsoft.com/es-uy/library/ee532075(en-us).aspx

Saludos

Nunca he terminado un cubo de esos. Por las mías no he conseguido más de tres caras, y a mi personalmente mirar un video y/o imagenes paso por paso le quita la gracia

Saludos

[XXX-ZERO-XXX]

Realmente no conozco una web de ese tipo, pero tienes muchas alternativas a spotify, si el problema son las limitaciones y el precio entonces toca cambiar

XXX-ZERO-XXX, hace un tiempo que no estoy utilizando Spotify, pero al menos a mi lo que me pedía cada un tiempo era que volviese a validar la cuenta, y ahí si usaba un proxy, pero mientras tanto me conectaba normal

Saludos

¿Y el problema es que?
Si no sabes tu que lo programaste, menos nosotros

Saludos

[0,0]

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í;

Código (vb) [Seleccionar] Expandir

'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

[0,0]

0,0 ,es que eso no es lo que hace el script, lo único que he hecho es adaptar el que habías puesto.

Código (vb) [Seleccionar] Expandir

'Coleccion de grupos a los que pertenece el usuario
objMemberOf = objUser.MemberOf
'Por cada grupo en la lista
for Each objGroup in objMemberOf
'Si hay una unidad con nombre Printer-Groups
if (instr(objGroup,"OU=Printer-Groups") <> 0) then
'Obtenemos el grupo
       set objGroupEnum = GetObject("LDAP://" & objGroup)
'Nos conectamos a la impresora utilizando la ruta que aparece en la descripcion de grupo
       objNetwork.AddWindowsPrinterConnection objGroupEnum.description
       set objGroupEnum = nothing
end if
next

Saludos

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

Código (vb) [Seleccionar] Expandir

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