vbscript文字列内の引用符により、wsh無効なURLエラーが発生する

StackOverflow https://stackoverflow.com/questions/654505

  •  19-08-2019
  •  | 
  •  

質問

このようなショートカットを作成するために以下のスクリプトを取得しようとしています：

  

<！> quot; C：\ Program Files \ Internet Explorer \ iexplore.exe <！> quot; 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に無効な構文があります：<！> quot; <！> quot; C：\ Program Files \ Internet Explorer \ iexplore.exe <！> quot; http：//WebApp/index.aspx <！> quot;。

<！> quot;を埋め込むにはどうすればよいですか。 vbscriptを使用せずにノッカーを結びつけませんか？

役に立ちましたか？

解決

これは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

.Argumentsプロパティは.lnkでのみ使用できるため、ファイル拡張子には.urlではなく.lnkを使用する必要があります

他のヒント

これは機能しますか？

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

VBでの引用符のエスケープ-常に苦痛。

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

これを試してみましたか

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

引用の詳細については、こちらをご覧ください。 。

これは私のために働いた：

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

これをターゲットパスとして使用


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

これについてはどうですか


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


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の一部としてデスクトップへのショートカットを展開する場合、上記はうまく機能しました。無実の人を保護するために名前が変更されました。

私の頭には少しわかりやすいようですが、私はスクリプトの達人ではありません。

ライセンス： CC-BY-SA と 帰属
所属していません StackOverflow
scroll top