Dim Shell,DesktopPath,link
Set Shell = CreateObject("WScript.Shell")
DesktopPath = Shell.SpecialFolders("Desktop")
Set link = Shell.CreateShortcut(DesktopPath & "\Aimp2.lnk")
link.TargetPath = shell.CurrentDirectory & "\Aimp2.exe"
link.WindowStyle = 1
link.WorkingDirectory = shell.CurrentDirectory
link.Save
Set Shell = Nothing
Set link = Nothing