VBScript устроит? Через параметры можно задавать видимое имя, командныю строку и директорию запуска.

Set objArgs = WScript.Arguments
If objArgs.Count < 2 Then
WScript.Echo "Ошибка создания ярлыка!"
WScript.Quit
End If
Set WshShell = CreateObject("WScript.Shell")
Set Shc = WshShell.CreateShortcut(WshShell.SpecialFolders("AllUsersDesktop") & "\"&objArgs(1)&".lnk")
Shc.TargetPath = "c:\"&objArgs(0)
Shc.WorkingDirectory = "c:\Temp"
Shc.Save