Crie um atalho de página do Internet Explorer com o VBS

Question

Estou tentando criar um script VB para criar um .lnk que aponte para uma página da Web aberta no Internet Explorer:

Set oWS = WScript.CreateObject("WScript.Shell") 
sLinkFile = "C:\users\admin\Desktop\My Website.lnk" 
Set oLink = oWS.CreateShortcut(sLinkFile) 
oLink.TargetPath = "C:\Program Files (x86)\Internet Explorer\iexplore.exe http://192.168.1.1" 
oLink.WorkingDirectory = "C:\Program Files (x86)\Internet Explorer\" 
oLink.Description = "My Website" 
oLink.Save 

Mas estou recebendo o seguinte erro ao tentar executar:

.\CreateShortcut.vbs(4, 1) Microsoft VBScript runtime error: Invalid procedure call or argument

Suponho que tenha algo a ver com a minha sintaxe na variável oLink.TargetPath , mas não tenho certeza do que está errado. Eu tentei escapar das citações, mas isso não funcionou.

Qual é a minha chamada ou argumento inválido nesse script?

Note que não posso apenas criar um link para a página da Web e não iexplore.exe , pois preciso que esta página seja aberta apenas no Internet Explorer, e não em qualquer navegador que seja padrão.

    

Answer 1

De acordo com a página do MSDN sobre a propriedade TargetPath :

This property is for the shortcut's target path only. Any arguments to the shortcut must be placed in the Argument's [sic] property.

A inclusão da URL no caminho de destino torna o caminho inválido - os nomes de arquivos não podem incluir dois pontos. O script funcionará se você especificar apenas o caminho para o Internet Explorer em TargetPath . Em seguida, você pode colocar o URL da página na propriedade Arguments :

oLink.TargetPath = "C:\Program Files (x86)\Internet Explorer\iexplore.exe"
oLink.Arguments = "http://192.168.1.1"