{"blog_title":"takanoo\u306e\u65e5\u8a18","image_url":null,"blog_url":"https://takanoo.hatenadiary.org/","height":"190","author_name":"takanoo","provider_url":"https://hatena.blog","url":"https://takanoo.hatenadiary.org/entry/20100906/1283780330","width":"100%","version":"1.0","author_url":"https://blog.hatena.ne.jp/takanoo/","categories":["windows"],"title":"\u74b0\u5883\u5909\u6570\u3092\u4e00\u89a7\u8868\u793a\u3059\u308b","provider_name":"Hatena Blog","type":"rich","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Ftakanoo.hatenadiary.org%2Fentry%2F20100906%2F1283780330\" title=\"\u74b0\u5883\u5909\u6570\u3092\u4e00\u89a7\u8868\u793a\u3059\u308b - takanoo\u306e\u65e5\u8a18\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"\u306a\u3093\u304bGUI*1\u3067\u30b7\u30b9\u30c6\u30e0\u74b0\u5883\u5909\u6570\u3092\u8868\u793a\u3055\u305b\u3088\u3046\u3068\u3059\u308b\u3068\u6fc0\u3057\u304f\u3081\u3093\u3069\u304f\u3055\u3044\u306e\u3067\u3001\u30b9\u30af\u30ea\u30d7\u30c8\u3092\u66f8\u3044\u3066\u307f\u305f\u3002 '\u30e6\u30fc\u30b6\u74b0\u5883\u5909\u6570\u3092\u5217\u6319\u3059\u308b Set sh = CreateObject(\"WScript.Shell\") Set env = sh.Environment(\"USER\") For Each e In env s = s & e & vbNewLine Next WScript.Echo s '\u30b7\u30b9\u30c6\u30e0\u74b0\u5883\u5909\u6570\u3092\u5217\u6319\u3059\u308b Set sh = CreateObject(\"WScript.Shell\") Set env = sh.Environment(\"SYSTEM\") For Each e I\u2026","published":"2010-09-06 22:38:50"}