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

.Arguments プロパティは .lnk でのみ使用できるため、.url ではなく、ファイル拡張子に .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 に答える