リファレンス、 WshUrlShortcut オブジェクト

everyday WSH

まんま

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop   = WshShell.SpecialFolders("Desktop")
set oUrlLink = WshShell.CreateShortcut(strDesktop & "\Microsoft Web Site.url")
oUrlLink.TargetPath = "http://www.microsoft.com"
oUrlLink.Save

WScript.Echo oUrlLink.FullName
  • マニュアルでは「strDesktop = WshShell.SpecialFolders("Desktop")」の箇所が抜け落ちていた