{"width":"100%","author_url":"https://blog.hatena.ne.jp/deloreanmc12/","version":"1.0","height":"190","provider_url":"https://hatena.blog","published":"2009-06-10 00:50:00","description":"WMI \u304b\u3089PC\u306e\u30cf\u30fc\u30c9\u30a6\u30a7\u30a2\u60c5\u5831\u3092\u53d6\u5f97\u3057\u3066\u3044\u308b\u90e8\u5206\u306e VB.Net \u306e\u30bd\u30fc\u30b9\u3092\u898b\u3066\u3044\u308b\u3068\u6c17\u4ed8\u3044\u305f\u3053\u3068\u304c\u3002\u3002 \u30bd\u30fc\u30b9\u306f\u3053\u3093\u306a\u611f\u3058\u3067\u3057\u305f\u3002 Dim strComputer As String = \".\" Dim wbemServices As Object = GetObject(\"winmgmts:\\\\\" & strComputer) Dim wbemObjectSet As Object = wbemServices.InstancesOf(\"Win32_ComputerSystem\") For Each wbemObject As Object In wbemObjectSet ' PC\u578b\u2026","type":"rich","provider_name":"Hatena Blog","categories":[".Net\u958b\u767a"],"image_url":null,"title":"(.Net)VB.Net\u306b\u306f\u9045\u5ef6\u30d0\u30a4\u30f3\u30c7\u30a3\u30f3\u30b0\u8db3\u308b\u3082\u306e\u304c\u3042\u3063\u305f!!","author_name":"deloreanmc12","blog_url":"https://3ryupg.hatenablog.com/","blog_title":"3\u6d41\u30d7\u30ed\u30b0\u30e9\u30de\u306e\u30e1\u30e2\u66f8\u304d","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2F3ryupg.hatenablog.com%2Fentry%2F2009%2F06%2F10%2F005000\" title=\"(.Net)VB.Net\u306b\u306f\u9045\u5ef6\u30d0\u30a4\u30f3\u30c7\u30a3\u30f3\u30b0\u8db3\u308b\u3082\u306e\u304c\u3042\u3063\u305f!! - 3\u6d41\u30d7\u30ed\u30b0\u30e9\u30de\u306e\u30e1\u30e2\u66f8\u304d\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","url":"https://3ryupg.hatenablog.com/entry/2009/06/10/005000"}