{"blog_title":"shikaku's blog","provider_name":"Hatena Blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2015%2F02%2F06%2F092607\" title=\"VBScript \u3067\u518d\u8d77\u52d5\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>","height":"190","type":"rich","image_url":null,"version":"1.0","url":"https://blog.systemjp.net/entry/2015/02/06/092607","width":"100%","provider_url":"https://hatena.blog","description":"Option Explicit On Error Resume Next Dim objWshShell ' WshShell \u30aa\u30d6\u30b8\u30a7\u30af\u30c8 Dim strCmdLine ' \u5b9f\u884c\u3059\u308b\u30b3\u30de\u30f3\u30c9 Dim varMsg '\u78ba\u8a8d\u753b\u9762 varMsg = MsgBox (\"\u518d\u8d77\u52d5\u3057\u307e\u3059\u304b\uff1f\", vbYesNo, \"\u78ba\u8a8d\") If varMsg <> vbYes Then WScript.Quit '\u30b9\u30af\u30ea\u30d7\u30c8\u7d42\u4e86 End If '\u518d\u8d77\u52d5 Set objWshShell = WScript.CreateObject(\"WScript.Shell\") strCmdLine = \"shutdown /r /t\u2026","blog_url":"https://blog.systemjp.net/","author_name":"shikaku","title":"VBScript \u3067\u518d\u8d77\u52d5\u3059\u308b","author_url":"https://blog.hatena.ne.jp/shikaku/","categories":["WSH"],"published":"2015-02-06 09:26:07"}