Usuário com melhor resposta
Criar pastas no menu iniciar e adicinar programas dentro da mesma via script

Pergunta
-
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 "" "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!
Respostas
-
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 IfIf objFSO.FolderExists(strFolderPtb) Then
CriaPastaAcessorios strFolderPtb & "\Programas\Acessorios"
End IfPublic Sub CriaPastaAcessorios(strPath)
If Not objFSO.FolderExists(strPath) Then
objFSO.CreateFolder strPath
objFSO.CopyFolder strServerFolder, strPath
End If
End SubQualquer dúvida poste e se for útil vote.
Abraço.
Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.- Marcado como Resposta Marcus P. Gioscia segunda-feira, 31 de maio de 2010 20:29
Todas as Respostas
-
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. -
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! -
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. -
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
-
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 IfIf objFSO.FolderExists(strFolderPtb) Then
CriaPastaAcessorios strFolderPtb & "\Programas\Acessorios"
End IfPublic Sub CriaPastaAcessorios(strPath)
If Not objFSO.FolderExists(strPath) Then
objFSO.CreateFolder strPath
objFSO.CopyFolder strServerFolder, strPath
End If
End SubQualquer dúvida poste e se for útil vote.
Abraço.
Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.- Marcado como Resposta Marcus P. Gioscia segunda-feira, 31 de maio de 2010 20:29
-
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!