Usuário com melhor resposta
Adicinando varios atalhos ao desktop

Pergunta
-
Bom dia a todos.
Solicito ajuda pois tenho uma tarefa que é a de criar um conjunto de atalhos na área de trabalho das estações do call center, como tenho uma rotatividade grande dos usuarios isto acaba sendo um complicador. Recentemente buscando no forum achei um script que pode ser acrescentado a um arquivo de lote (.bat) e adicionado ao logon dos usr, porém ao tentar adicionar mais de um atalho o script não executa a tarefa e nao apresenta codigo de erro nenhum. Na realidade prefiro trabalhar neste caso com vbs, mas não consegui adaptar nenhum.
Acredito que o problema esta na sintaxe que utilizei. Segue abaixo
@echo off
if exist "%userprofile%\desktop\atalho1.lnk" goto exit (aqui devo redirecionar ao 2 comando e assim por diante ao invés do exit??)
copy "\\servidor\share\atalho1.lnk" "%userprofile%\desktop"
:exit
and
if exist "%userprofile%\desktop\atalho2.lnk" goto exit
copy "\\servidor\share\atalho2.lnk" "%userprofile%\desktop"
:exit
and
if exist "%userprofile%\desktop\atalho3.lnk" goto exit
copy "\\servidor\share\atalho3.lnk" "%userprofile%\desktop"
:exit
Os atalhos são na realidade são um link para aplicações ja instaladas nas estações e apenas 2 delas estão no file server. Tenho uma pasta compartilhada com permissoes NTFS leitura para todos onde estão os links.Agradeço desde já o help.
cjanuzi
Respostas
-
Amigo vc pode adicionar diretamente o atalho para o camiho correto do aplicativo com o seguinte script:
On error Resume Next
Set WShell = CreateObject("WScript.Shell")
caminho= WShell.SpecialFolders("Desktop")
Set atalhoLnk = WShell.CreateShortcut(caminho & "\atalho1.lnk")
atalhoLnk.TargetPath = "caminho do aplicativo"
atalhoLnk.Save
Set atalhoLnk1 = WShell.CreateShortcut(caminho & "\atalho2.lnk")
atalhoLnk1.TargetPath = "caminho do aplicativo"
atalhoLnk1.Save
Set atalhoLnk2 = WShell.CreateShortcut(caminho & "\atalho3.lnk")
atalhoLnk2.TargetPath = "caminho do aplicativo"
atalhoLnk2.SaveOBS: Você pode mudar o nome do atalho que está em laranja e deve mudar o caminho do aplicativo que está em vermelho.
Ex: Set atalhoLnk = WShell.CreateShortcut(caminho & "\Excel.lnk")
atalhoLnk.TargetPath = "C:\Arquivos de programas\Microsoft Office\Office10\EXCEL.EXE"
atalhoLnk.SaveCaso deseje adiconar um ícone do programa adicone a seguinte linha ao script antes de atalhoLnk.Save, isto deve ser repetido para cada atalho.
atalhoLnk.iconlacation = "localização do ícone"Esta linha
Abs
Todas as Respostas
-
Amigo vc pode adicionar diretamente o atalho para o camiho correto do aplicativo com o seguinte script:
On error Resume Next
Set WShell = CreateObject("WScript.Shell")
caminho= WShell.SpecialFolders("Desktop")
Set atalhoLnk = WShell.CreateShortcut(caminho & "\atalho1.lnk")
atalhoLnk.TargetPath = "caminho do aplicativo"
atalhoLnk.Save
Set atalhoLnk1 = WShell.CreateShortcut(caminho & "\atalho2.lnk")
atalhoLnk1.TargetPath = "caminho do aplicativo"
atalhoLnk1.Save
Set atalhoLnk2 = WShell.CreateShortcut(caminho & "\atalho3.lnk")
atalhoLnk2.TargetPath = "caminho do aplicativo"
atalhoLnk2.SaveOBS: Você pode mudar o nome do atalho que está em laranja e deve mudar o caminho do aplicativo que está em vermelho.
Ex: Set atalhoLnk = WShell.CreateShortcut(caminho & "\Excel.lnk")
atalhoLnk.TargetPath = "C:\Arquivos de programas\Microsoft Office\Office10\EXCEL.EXE"
atalhoLnk.SaveCaso deseje adiconar um ícone do programa adicone a seguinte linha ao script antes de atalhoLnk.Save, isto deve ser repetido para cada atalho.
atalhoLnk.iconlacation = "localização do ícone"Esta linha
Abs
-
-
Boa noite
Gente eu precisava muito da ajuda de vcs quanto ao script de logon abaixo
sei que para criação de atalho existi essa linha de código:
atalhoLnk.TargetPath = "notepad" atalhoLnk.Save
porem eu precisa criar no campo "Iniciar em" la nas propriedade do atalho, também uma parte do endereço.
qual código eu específico na linha do script ???? para incluir também no campo "Iniciar em" no atalho ???
Me ajudem por favor
-