{"type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2019%2F03%2F19%2F155954\" title=\"ExcelVBA\u3067 \u30ec\u30b8\u30b9\u30c8\u30ea\u306e\u5024\u306e\u540d\u524d\u3068\u7a2e\u985e\u3092\u5217\u6319\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>","version":"1.0","blog_title":"shikaku's blog","provider_url":"https://hatena.blog","categories":["ExcelVBA"],"provider_name":"Hatena Blog","blog_url":"https://blog.systemjp.net/","published":"2019-03-19 15:59:54","title":"ExcelVBA\u3067 \u30ec\u30b8\u30b9\u30c8\u30ea\u306e\u5024\u306e\u540d\u524d\u3068\u7a2e\u985e\u3092\u5217\u6319\u3059\u308b","author_name":"shikaku","author_url":"https://blog.hatena.ne.jp/shikaku/","width":"100%","description":"\u30ec\u30b8\u30b9\u30c8\u30ea\u306e\u6307\u5b9a\u30d1\u30b9\u5185\u306b\u3042\u308b\u540d\u524d\u3068\u7a2e\u985e\u3092\u5217\u6319\u3059\u308bWMI\u3068\u3044\u3046\u306e\u3092\u4f7f\u3046 Option Explicit 'WMI\u306b\u3066\u4f7f\u7528\u3059\u308b\u5404\u7a2e\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u5b9a\u7fa9\u30fb\u751f\u6210\u3059\u308b\u3002 Dim oClass Dim oLocator Dim oService Dim oRegName Dim oRegType Dim i Dim sMesStr Dim sTypeStr Const HKEY_LOCAL_MACHINE = &H80000002 '\u30ed\u30fc\u30ab\u30eb\u30b3\u30f3\u30d4\u30e5\u30fc\u30bf\u306b\u63a5\u7d9a\u3059\u308b\u3002 Set oLocator = WScript.CreateObject(\"WbemScripting.SWbemLocator\") Set o\u2026","url":"https://blog.systemjp.net/entry/2019/03/19/155954","height":"190","image_url":null}