Create Lnk Shortcut using VBScript

Dim objShell : Set objShell = CreateObject(“WScript.Shell”) Dim userProfileFolder : userProfileFolder = objShell.ExpandEnvironmentStrings(“%USERPROFILE%”) Dim desktopFolder : desktopFolder = userProfileFolder & “\Desktop” Dim programFilesFolder : programFilesFolder = objShell.ExpandEnvironmentStrings(“%ProgramFiles%”) Dim shortcutName : shortcutName = “Alkane Test” Dim shortcutDescription : shortcutDescription = “Alkane … Continue reading