VBS
Set WshShell = CreateObject("WScript.Shell")
path = WshShell.CurrentDirectory + "\"
fldr = WshShell.SpecialFolders("Desktop") + "\"
Set WshShortcut = WshShell.CreateShortcut(fldr + "test.lnk")
WshShortcut.IconLocation ="shell32.dll, 1"
WshShortcut.Description = "Test"
WshShortcut.Arguments = "C:\file.txt"
WshShortcut.TargetPath = "notepad.exe"
WshShortcut.WindowStyle = 1
WshShortcut.WorkingDirectory = path
WshShortcut.Save
WshShell.Run fldr + "test.lnk"