Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub Main
- Dim WshShell, strDesktop, fileName, oShellLink
- Set WshShell = CreateObject("WScript.Shell")
- strDesktop = WshShell.SpecialFolders("Desktop")
- fileName = strDesktop & "\WinSMART (LITE).lnk"
- strPrograms = WshShell.SpecialFolders("Programs")
- If aqFileSystem.Exists(strPrograms & "\Siemens Hearing\WinSMART") Then
- Set oShellLink = WshShell.CreateShortcut(fileName)
- oShellLink.TargetPath = strPrograms & "\Siemens Hearing\WinSMART\WinSMART.exe"
- oShellLink.Save
- End If
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement