Script cria atalho de sistema no desktop

‘ Script cria atalho de sistema no desktop 
set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
set oShellLink = WshShell.CreateShortcut(strDesktop & "\Nome do Sistema.lnk")
oShellLink.TargetPath = "http://link do sistema ou caminho" 
oShellLink.WindowStyle = 3
oShellLink.IconLocation = "%SystemRoot%\system32\SHELL32.dll, 220"
oShellLink.Description = "Nome do Sistema"
oShellLink.Save

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s