Citations en chaîne vbscript provoque une erreur url wsh invalide

Question

J'essaie d'obtenir le script ci-dessous pour produire un raccourci comme celui-ci:

"C: \ Program Files \ Internet Explorer \ iexplore.exe" http://WebApp/index.aspx

set WshShell = WScript.CreateObject("WScript.Shell") 
strDesktop = WshShell.SpecialFolders("Desktop") 
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\WebApp.url") 
oUrlLink.TargetPath = ""&chr(34)& _ 
    "C:\Program Files\Internet Explorer\iexplore.exe" & _ 
    chr(34)&" http://WebApp/index.aspx" 
oUrlLink.Save 

mais il ne semble pas que les guillemets.

Je reçois une syntaxe non valide dans l'URL: "" C: \ Program Files \ Internet Explorer \ iexplore.exe "http://WebApp/index.aspx".

Comment puis-je intégrer un "sans vbscript obtenir ses petites culottes dans un noeud?

Answer 1

C'est selon Microsoft:

Set objShell = CreateObject("Wscript.Shell") 
strFolder = objShell.SpecialFolders.Item("Desktop") 
Set objShortcut = objShell.CreateShortcut(strFolder & "\Open Web Site.lnk") 
objShortcut.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe" 
objShortcut.Arguments = "http://WebApp/index.aspx" 
objShortcut.Save 

Vous devez utiliser .lnk pour l'extension de fichier, pas .URL que la propriété est seulement .Arguments disponible pour .lnk

Answer 2

Est-ce que ce travail?

oUrlLink.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe" 
oUrlLink.Arguments = "http://WebApp/index.aspx" 
oUrlLink.Save 

Answer 3

Utilisez ce que le chemin cible

 

"C:\Program Files\Internet Explorer\iexplore.exe http://WebApp/index.aspx" 
 

Qu'en est-ce

 

Target= "http://WebApp/index.aspx" 
 

Answer 4

Citations s'échappant dans VB - toujours douloureux.

oUrlLink.TargetPath = """C:\Program Files\Internet Explorer\iexplore.exe"" http://WebApp/index.aspx"

Answer 5

Avez-vous essayé?

oUrlLink.TargetPath = chr(34) & "C:\Program Files\Internet Explorer\iexplore.exe" & _ 
         chr(34) & " http://WebApp/index.aspx" 

Pour plus d'informations, veuillez consulter le here.

Answer 6

Cela a fonctionné pour moi:

set WshShell = WScript.CreateObject("WScript.Shell") 
strDesktop = WshShell.SpecialFolders("Desktop") 
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\WebApp.url") 
oUrlLink.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe http://WebApp/index.aspx" 
oUrlLink.Save 

Answer 7

Set objShell = WScript.CreateObject("WScript.Shell") 
strDesktopFolder = objShell.SpecialFolders("Desktop") 
Set objShortCut = objShell.CreateShortcut(strDesktopFolder & "\test.lnk") 
objShortCut.TargetPath = "http://www.google.com/" 
objShortCut.Description = "Test Environment" 
objShortCut.Save 

---

Ce qui précède a bien fonctionné pour moi pour le déploiement de raccourcis vers les ordinateurs de bureau dans le cadre d'un GPO. Les noms ont été changés pour protéger les innocents.

Semble un peu plus propre à mon esprit, mais je ne suis pas un gourou du script par tous les moyens.