Set wshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set args = WScript.Arguments

If args.Count < 1 Then
WScript.Echo "Dateiname fehlt."
WScript.Quit
End If
 
ziel = args(0)
ziel = fso.GetAbsolutePathName(ziel)
idxName = InStrRev(ziel, "\")
idxExt = InStrRev(ziel, ".")
If idxExt < idxName Then idxExt = Len(ziel) + 1
ordner = Left(ziel, idxName - 1)
linkName = Mid(ziel, idxName + 1, idxExt - idxName - 1)
desktop = wshShell.SpecialFolders("Desktop")
 
Set link = wshShell.CreateShortcut(desktop & "\" & linkName & ".lnk")
link.TargetPath = ziel
link.WorkingDirectory = ordner
link.Save

ein sehr flexibles Tool, welches ich für Batch Dateien nutze, um damit einen Desktop Link zu erstellen ist link.vbs
[code]Set wshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set args = WScript.Arguments

If args.Count < 1 Then
WScript.Echo "Dateiname fehlt."
WScript.Quit
End If

ziel = args(0)
ziel = fso.GetAbsolutePathName(ziel)
idxName = InStrRev(ziel, "\")
idxExt = InStrRev(ziel, ".")
If idxExt < idxName Then idxExt = Len(ziel) + 1
ordner = Left(ziel, idxName - 1)
linkName = Mid(ziel, idxName + 1, idxExt - idxName - 1)
desktop = wshShell.SpecialFolders("Desktop")

Set link = wshShell.CreateShortcut(desktop & "\" & linkName & ".lnk")
link.TargetPath = ziel
link.WorkingDirectory = ordner
link.Save[/code]
als link.vbs abspeichern und dann automatisch eine Verknüpfung erstellen lassen in der Form:
link.vbs "ProgramPfad\ProgramName.exe"

mehr Info u.a. hier:
[url]https://docs.microsoft.com/de-de/troubleshoot/windows-client/admin-development/create-desktop-shortcut-with-wsh[/url]

Hallo zusammen,
gibt es für Windows 11 (Windows 10) ein Tool mit dem ich Shortcuts erstellen kann, die z.B. Anwendungen starten.
Die Windows eigene Lösung über Verknüpfung Desktop ist mir zu unflexibel.