Створіть ярлик на робочому столі, який відкриває URL-адресу в Internet Explorer

Ми використовуємо веб-сторінку, яка працює тільки в IE. Я створюю ярлик на робочому столі, який використовує ціль "C:\Program Files\Internet Explorer\iexplore.exe" http:\\sampleurl.com. Це відкриває сторінку в IE, але те, що я хочу зробити, це створити VBS, що мій GPO може запустити і створити значок для всіх користувачів в моїй мережі, які це потребують. Ось що я маю до цих пір, але він не відкриває його в IE.

' 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 = "https://www.sampleurl.com"
MyShortcut.WorkingDirectory = "%USERPROFILE%\Desktop" 
MyShortcut.WindowStyle = 1 
MyShortcut.Arguments = "" 
MyShortcut.Save 
Set MyShortcut = Nothing 
end if 

Добре, я зрозумів це. Мені потрібно було встановити MyShortcut.armguments до URL-адреси та MyShortcut.TargetPath до IE.

' 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