none
Criar pastas no menu iniciar e adicinar programas dentro da mesma via script RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    　

    Srs. vamos lá!
    Em primeiro lugar obrigado a todos pela disponibilidade em responder sempre quando tenho dúvidas.
    Em fim, o que estou em dúvida no momento:
    1- Preciso criar uma pasta chamada Acessórios dentro do menu iniciar do windows, contendo: Notepad, Paint, Calc, dentre outros, aplicativos nativos do windows.
    2- Preciso fazer isso via script e eu tentei fazer o script abaixo para criar a pasta:
    1º
    @echo off
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set WshShell=CreateObject("Wscript.Shell")
    objFSO.CreateFolder "C:\Users\%username%\Desktop\Acessorios"
    WshShell.Run "cacls C:\Users\%username%\Desktop\Acessorios /G todos:f"

    E também
    2º
    @echo off
    MD "C:\Users\%username%\Desktop\Acessorios"

    O segundo criou a pasta, ai logo em seguida em criei um segundo script
    @echo off
    copy /y "

     

    \\xyz.corp\SysVol\xyz.corp\scripts\Custom_win7\Scripts\Shortcuts\Acessorios

    " "C:\Users\%username%\Desktop\Acessorios\"

    Como podemos observar esse script está apontando para o desktop, isso é o script:
    @echo off
    MD "C:\Users\%username%\Desktop\Acessorios"

    Criou perfeitamente a pasta no desktop, quando eu tentei criar no menu iniciar, não rolou, tentei em Inglês e Português, não foi.

    Quando eu executei os dois scripts simuntaneamente para criar no desktop o atalho e copiar as pastas, só foi criado a pasta e mais nada.

    Então a dúvida é: Como eu crio essa pasta no menu iniciar e copio os arquivos para a mesma ?

    OBS: Eu antes habilitei uma GPO que remove algumas coisas como, todos os programas do menu iniciar, favoritos, videos, dentre outros, abaixo segue as restrições:

    Diretiva

     

    Configuração

     

    comentário

     

    Ocultar o ícone Locais de Rede na área de trabalho

     

    Ativada

     

    		 　

    Remover o Assistente para Limpeza da Área de Trabalho

     

    Ativada

     

    		 　

    Remover o ícone Lixeira da área de trabalho

     

    Ativada

     

    		 　

    Remover Propriedades do menu de contexto do ícone Computador

     

    Ativada

     

    		 　

    Remover Propriedades do menu de contexto do ícone Documentos

     

    Ativada

     

    		 　

    Área de Trabalho/Active Desktop ocultar

    Diretiva

     

    Configuração

     

    comentário

     

    Proibir a edição de itens

     

    Ativada

     

    		 　

    Proibir a exclusão de itens

     

    Ativada

     

    		 　

    Componentes do Windows/Console de Gerenciamento Microsoft/Snap-ins restritos/permitidosocultar

    Diretiva

     

    Configuração

     

    comentário

     

    Gerenciamento do Computador

     

    Ativada

     

    		 　

    Componentes do Windows/Windows Explorerocultar

    Diretiva

     

    Configuração

     

    comentário

     

    Desativar recursos de Bibliotecas do Windows que confiam em dados de arquivos indexados

     

    Ativada

     

    		 　

    Oculta estas unidades especificadas em Meu computador

     

    Ativada

     

    		 　

    Selecionar uma das seguintes combinações

     

    Restringir apenas unidades A, B e C

     

    Diretiva

     

    Configuração

     

    comentário

     

    Oculta o item Gerenciar no menu de contexto do Windows Explorer

     

    Ativada

     

    		 　

    Remover o link "Pesquisar novamente" de Pesquisar na Internet

     

    Ativada

     

    		 　

    Menu 'Iniciar' e barra de tarefasocultar

    Diretiva

     

    Configuração

     

    comentário

     

    Desativar todas as notificações de balão

     

    Ativada

     

    		 　

    Impedir que os usuários movam a barra de tarefas para outra localização de encaixe na tela

     

    Ativada

     

    		 　

    Impedir que os usuários reorganizem as barras de ferramentas

     

    Ativada

     

    		 　

    Não permitir a fixação de itens nas Listas de Atalhos

     

    Ativada

     

    		 　

    Não permitir a fixação de programas na Barra de Tarefas

     

    Ativada

     

    		 　

    Remover a lista de programas fixados do menu Iniciar

     

    Ativada

     

    		 　

    Remover a lista Todos os Programas do menu Iniciar

     

    Ativada

     

    		 　

    Remover as pastas do usuário do Menu Iniciar

     

    Ativada

     

    		 　

    Remover Conexões de Rede do Menu Iniciar

     

    Ativada

     

    		 　

    Remover nome de usuário do Menu Iniciar

     

    Ativada

     

    		 　

    Remover o comando Executar do menu Iniciar

     

    Ativada

     

    		 　

    Remover o ícone Documentos do Menu Iniciar

     

    Ativada

     

    		 　

    Remover o ícone Imagens do Menu Iniciar

     

    Ativada

     

    		 　

    Remover o ícone Música do Menu Iniciar

     

    Ativada

     

    		 　

    Remover o ícone Rede do Menu Iniciar

     

    Ativada

     

    		 　

    Remover o link Downloads do menu Iniciar

     

    Ativada

     

    		 　

    Remover o link Grupo Doméstico do menu Iniciar

     

    Ativada

     

    		 　

    Remover o link Jogos do Menu Iniciar

     

    Ativada

     

    		 　

    Remover o link para a pasta do usuário do Menu Iniciar

     

    Ativada

     

    		 　

    Remover o link Pesquisar Computador

     

    Ativada

     

    		 　

    Remover o link Pesquisar do menu Iniciar

     

    Ativada

     

    		 　

    Remover o link Vídeos do Menu Iniciar

     

    Ativada

     

    		 　

    Remover o menu Ajuda do Menu Iniciar

     

    Ativada

     

    		 　

    Remover o menu Favoritos do Menu Iniciar

     

    Ativada

     

    		 　

    Painel de Controleocultar

    Diretiva

     

    Configuração

     

    comentário

     

    Proibir acesso ao Painel de Controle

     

    Ativada

     

    		 　

    Sistemaocultar

    Diretiva

     

    Configuração

     

    comentário

     

    Impedir acesso ao prompt de comando

     

    Ativada

     

    		 　

    Desativar o processamento do script do prompt de comando também?

     

    Não

     

    Sistema/Opções de Ctrl+Alt+Delocultar

    Diretiva

     

    Configuração

     

    comentário

     

    Remover Gerenciador de Tarefas

     

    Ativada

     

    		 　


    Fico então nesse momento aguardando o help ai dos Srs!

    Um abraço!

    Marcão!

    quarta-feira, 19 de maio de 2010 13:05
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Veja se isso te ajuda.

    Dim strUserProfile, strFolderPtb, strFolderEnu, strServerFolder
    Set objShell=CreateObject("WScript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    'Coloque aqui o compartilhamento onde estão os acessorios
    strServerFolder = "\\server\share\Acessorios"

    strUserProfile = objShell.ExpandEnvironmentStrings("%userprofile%")

    strFolderPtb = strUserProfile & "\Menu Iniciar"
    strFolderEnu = strUserProfile & "\Start Menu"

    If objFSO.FolderExists(strFolderEnu) Then
     CriaPastaAcessorios strFolderEnu & "\Programs\Acessorios"
    End If

    If objFSO.FolderExists(strFolderPtb) Then
     CriaPastaAcessorios strFolderPtb & "\Programas\Acessorios"
    End If

    Public Sub CriaPastaAcessorios(strPath)
     If Not objFSO.FolderExists(strPath)  Then
      objFSO.CreateFolder strPath
      objFSO.CopyFolder strServerFolder, strPath
     End If
    End Sub

    Qualquer dúvida poste e se for útil vote.

    Abraço.

    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    sexta-feira, 21 de maio de 2010 15:15
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Tente assim em um bat.

    md "%userprofile%\Desktop\Acessorios"
    copy /y "\\server\share\file.txt" "%userprofile%\Desktop\Acessorios"

    Qualquer dúvida poste e se for útil vote.

    Abraço.

    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    quarta-feira, 19 de maio de 2010 18:28
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Gabriel deixa eu te explicar, pois acho que coloquei informações de mais na pergunta:

    Preciso que o script coloque os acessórios no menu iniciar do windows.

    Caminho: start/start menu

    Ou na lista de programas, aquele menu que abre ao lado do nome do usuário em uma parte branca do menu iniciar do windows 7.

    E ai que tem que ficar os acessórios.

    Pode me ajudar ?

    Obrigado!

    Marcão!

    quinta-feira, 20 de maio de 2010 19:16
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Você precisa criar essa pasta acessórios dentro do menu iniciar-> programas?

    De onde que vc vai copiar essa pasta?

    Ou vai criar e copiar os arquivos de algum lugar?

    Abraço.

    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    quinta-feira, 20 de maio de 2010 19:44
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Estou copiando esses atalhos do servidor.

    Tipo eu posso até usar o seu script, mas ... quero colocar no menu iniciar esses programas, sacou ?

    Eu desabilitei o menu todos os programas e quero criar uns atalhos apenas para os programas necessários no setor.

     

    Marcão

    quinta-feira, 20 de maio de 2010 19:59
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Veja se isso te ajuda.

    Dim strUserProfile, strFolderPtb, strFolderEnu, strServerFolder
    Set objShell=CreateObject("WScript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    'Coloque aqui o compartilhamento onde estão os acessorios
    strServerFolder = "\\server\share\Acessorios"

    strUserProfile = objShell.ExpandEnvironmentStrings("%userprofile%")

    strFolderPtb = strUserProfile & "\Menu Iniciar"
    strFolderEnu = strUserProfile & "\Start Menu"

    If objFSO.FolderExists(strFolderEnu) Then
     CriaPastaAcessorios strFolderEnu & "\Programs\Acessorios"
    End If

    If objFSO.FolderExists(strFolderPtb) Then
     CriaPastaAcessorios strFolderPtb & "\Programas\Acessorios"
    End If

    Public Sub CriaPastaAcessorios(strPath)
     If Not objFSO.FolderExists(strPath)  Then
      objFSO.CreateFolder strPath
      objFSO.CopyFolder strServerFolder, strPath
     End If
    End Sub

    Qualquer dúvida poste e se for útil vote.

    Abraço.

    Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.
    sexta-feira, 21 de maio de 2010 15:15
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Fala ai Gabriel boa tarde.

    Em primeiro lugar desculpa a demora na resposta dos testes.
    Em fim, não rolou o script que vc me deu.
    Mas adotei um plano "B", nesse plano eu estou mesmo colocando no desktop os atalhos em pastas distintas, com aquela opção do Server 2008 de criar atalhos e etc.

    Obrigado ai pela força e um abraço a todos !

    Marcão!

    terça-feira, 25 de maio de 2010 19:16
    |