Crie um atalho na área de trabalho que abre url no Internet Explorer

Question

Usamos uma página da Web que funciona apenas no IE. Eu crio um atalho na área de trabalho que usa o destino de "C:\Program Files\Internet Explorer\iexplore.exe" http:\sampleurl.com . Isso abre a página no IE, mas o que eu quero fazer é criar um vbs que meu GPO possa executar e criar o ícone para todos os usuários da minha rede que precisam dele. Aqui está o que eu tenho até agora, mas não abre no 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 

    

Answer 1

Ok, eu percebi. Eu precisava definir o MyShortcut.armguments para o URL e o MyShortcut.TargetPath para o 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