oWsh = CreateObject("WScript.Shell") cDesktopDir = oWsh.SpecialFolders("Desktop") oLnk = oWsh.CreateShortcut(cDesktopDir + "\\Shortcut to Notepad.lnk") oLnk.TargetPath = cDesktopDir + "\\notepad.lnk" oLnk.Save()