1

Мы используем веб-страницу, которая работает только в 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 

1 ответ1

1

Хорошо, я понял это. Мне нужно было установить в MyShortcut.armguments URL-адрес и MyShortcut.TargetPath to 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

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .