none
meter un acceso directo en todos los escritorios de windows server 2008 RRS feed

  • Pregunta

  • Hola buenas,

    tengo un mutipoint server 2011 que va sobre windows server 2008, y me gustaria saber si hay alguna manera de que apareciese en el escritorio de todos los usuarios un acceso directo a una aplicacion.

    Saludos y Gracias por adelantado.

    miércoles, 21 de agosto de 2013 15:11

Respuestas

  • Pon el código que te indico a continuación en un archivo con extensión .vbs y lo asignas a los usuarios mediante GPO como script de inicio de sesión, o si ya tienes uno, añades el código al final del mismo. En el ejemplo se crea un icono a la calculadora con un icono y nombre determinados. El código no es mío, lo he sacado de un script de inicio de sesión de mi trabajo.

    En el ejemplo se filtra la creación del icono comprobando si el usuario pertenece a un grupo de usuarios. Puedes quitar el If y el End If si no necesitas filtrar, o bien puedes modificar las líneas para crear distintos iconos en función de la pertenencia a distintos grupos. Eso queda a tu gusto.

    '=========================== Crear Icono Aplicación ============================
    ' CREA ICONO EN EL ESCRITORIO
    If EsMiembroDelGrupo("GUsuariosdeEmpresa") = True Then
        CrearIcono "Calculadora", "c:\windows\system32\calc.exe","" , "d:\temp\icon.ico", "Icono para la Aplicación Calculadora"
    End If
    '
    ' ====================== FIN  de Crear icono Aplicación ===========================
    '===================================================================================
    ' Funcion que nos dice si el Usuario conectado es Miembro del Grupo que se le pasa.
    ' los parametros son los siguientes:
    '  parametro1 - sGroup              - Nombre del Grupo.
    '===================================================================================
    Function EsMiembroDelGrupo(sGroup)
    
     Dim oGroup, bIsMember, oMember
    
     Set ADSysInfo = CreateObject("ADSystemInfo")
     Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
    
     sGroup = "CN=" & sGroup
    
     bIsMember = False
    
     For Each oGroup in CurrentUser.Groups
      If Lcase(oGroup.Name) = Lcase(sGroup) Then
       bIsMember = True
       Exit For
      End If
     Next
    
     EsMiembroDelGrupo = bIsMember
    
    End Function
    
    '========================== FIN FUNCIÓN PERTENENCIA A GRUPOS ===============================
    '===================================================================================
    ' Funcion que nos crea un icono de la aplicación que le digamos en el escritorio 
    ' los parametros son los siguientes:
    '  parametro1 - ShortCutName              - Nombre del Icono.
    '  parametro2 - ShortCutTarget            - Lugar donde se encuentra la aplicación a ejecutar.
    '  parametro3 - ShortCutWorkingdirectory  - Lugar de trabajo de la aplicación.
    '  parametro4 - ShortCutIcon              - Icono de la aplicación.
    '  parametro5 - ShortCutDescription       - Pequeña descripcción de la aplicación.
    '===================================================================================
    Function CrearIcono(ShortCutName,ShortCutTarget,ShortCutWorkingdirectory,ShortCutIcon,ShortCutDescription)
      Dim WSH
      Set WSH=CreateObject("wscript.Shell")
    
      Dim strDeskTop
      strDeskTop=WSH.SpecialFolders("DeskTop")
    
      Dim NewShortCut
      set NewShortCut = Wsh.CreateShortcut(strDesktop & "\" & ShortCutName & ".lnk")
      With NewShortCut
          .TargetPath = ShortCutTarget
          .WindowStyle = 1
          If ShortCutIcon <> "" Then
             .IconLocation = ShortCutIcon
          End If
          If ShortCutIcon <> "" Then
             .Description = ShortCutDescription
          End If
          .WorkingDirectory = ShortCutWorkingDirectory
          .Save
      End With
    End Function
    ' =========================== FIN FUNCIÓN CREARICONO ===========================
    

      

    Saludos
    José Antonio Quílez
    Mi Blog


    miércoles, 21 de agosto de 2013 18:09
    Moderador