Ok, ich habe es herausgefunden. Ich musste MyShortcut.armguments
die URL und den MyShortcut.TargetPath
IE einstellen .
' Define variables. Dim WSHShell Dim MyShortcut Dim DesktopPath Set WSHShell = CreateObject("WScript.Shell") If not WSHShell Is Nothing Then DesktopPath = WSHShell.SpecialFolders("Desktop") Set MyShortcut = WSHShell.CreateShortCut(DesktopPath & "\Visions" & ".lnk") MyShortcut.TargetPath = "C:\Program Files (x86)\Internet Explorer\iexplore.exe" MyShortcut.WorkingDirectory = "%USERPROFILE%\Desktop" MyShortcut.WindowStyle = 1 MyShortcut.Arguments = "https://visions.apscc.org/Citrix/XenApp/auth/login.aspx?CTX_MessageType=WARNING&CTX_MessageKey=NoUsableClientDetected" MyShortcut.Save Set MyShortcut = Nothing end if