Set FastCut = CreateObject("Wscript.shell") Set Shortcut = FastCut.CreateShortcut(FastCut.SpecialFolders("Desktop") + "\Test.lnk") Shortcut.TargetPath = "C:\1.exe"Shortcut.Save
