1

我试图让下面的脚本产生这样的快捷方式：

"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

但它似乎不喜欢引号。

我在 URL 中得到一个无效的语法：“”C:\Program Files\Internet Explorer\iexplore.exe“ http://WebApp/index.aspx ”。

如何在没有 vbscript 的情况下嵌入“内裤”？

4

7 回答 7

7

这是根据微软的：

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

您必须使用 .lnk 作为文件扩展名，而不是 .url 因为 .Arguments 属性仅适用于 .lnk

于 2009-03-17T14:59:59.497 回答
0

这行得通吗？

oUrlLink.TargetPath = "C:\Program Files\Internet Explorer\iexplore.exe"
oUrlLink.Arguments = "http://WebApp/index.aspx"
oUrlLink.Save
于 2009-03-17T14:40:04.787 回答
0

将此用作目标路径


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

这个怎么样


Target= "http://WebApp/index.aspx"
于 2009-03-17T14:40:56.267 回答
0

在 VB 中转义引号 - 总是很痛苦。

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

于 2009-03-17T14:41:02.223 回答
0

你试过这个吗？

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

更多关于引用的信息可以在这里找到。

于 2009-03-17T14:41:15.453 回答
0

这对我有用：

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
于 2009-03-17T14:45:57.813 回答
0 
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

以上对我来说很好，可以将快捷方式部署到桌面作为 GPO 的一部分。名称已更改以保护无辜者。

对我来说似乎有点清洁，但无论如何我都不是脚本大师。

于 2009-05-18T09:54:49.187 回答