{"height":"190","provider_name":"Hatena Blog","author_name":"shikaku","width":"100%","url":"https://blog.systemjp.net/entry/2015/06/11/173525","blog_title":"shikaku's blog","description":"Option Explicit Dim WSH,sc Set WSH=CreateObject(\"WScript.Shell\") Set sc = WSH.CreateShortcut(\"C:\\Documents and Settings\\xxxx\\\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\\\u30e1\u30e2\u5e33.lnk\") sc.TargetPath = \"C:\\WINDOWS\\notepad.exe\" sc.save Set sc = Nothing Set WSH = nothing\u30cd\u30bf\u5143 http://www.kanaya440.com/contents/tips/vbs/008.html","type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2015%2F06%2F11%2F173525\" title=\"VBA/VBS\u3067\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u3092\u4f5c\u6210\u3059\u308b - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","author_url":"https://blog.hatena.ne.jp/shikaku/","image_url":null,"version":"1.0","provider_url":"https://hatena.blog","published":"2015-06-11 17:35:25","blog_url":"https://blog.systemjp.net/","categories":["ExcelVBA","WSH"],"title":"VBA/VBS\u3067\u30b7\u30e7\u30fc\u30c8\u30ab\u30c3\u30c8\u3092\u4f5c\u6210\u3059\u308b"}