vbscript字符串中的引号导致wsh无效的url错误

时间:2009-03-17 14:34:41

标签: vbscript wsh

我正在尝试使用下面的脚本来生成这样的快捷方式:

  

“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

但它似乎不喜欢引号。

我在网址中收到无效语法:“”C:\ Program Files \ Internet Explorer \ iexplore.exe“http://WebApp/index.aspx”。

我如何嵌入“没有vbscript将其短裤打结?”

7 个答案:

答案 0 :(得分: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

答案 1 :(得分:0)

这有用吗?

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

答案 2 :(得分:0)

将此作为目标路径


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

这个怎么样


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

答案 3 :(得分:0)

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

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

答案 4 :(得分:0)

你试过这个吗?

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

可以找到有关引用的更多信息here

答案 5 :(得分: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

答案 6 :(得分: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中部署桌面快捷方式。这些名字已被更改以保护无辜者。

我的想法看起来有点干净,但无论如何我都不是剧本大师。