{"version":"1.0","type":"rich","width":"100%","author_name":"shikaku","blog_title":"shikaku's blog","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2021%2F11%2F15%2F174308\" title=\"ExcelVBA\u3067windows\u30d0\u30fc\u30b8\u30e7\u30f3(10\u3068\u304b11\u3068\u304b) \u8fd4\u3059 - 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>","blog_url":"https://blog.systemjp.net/","categories":[],"description":"'OS\u306e\u30d0\u30fc\u30b8\u30e7\u30f3\u306e\u6570\u5024\u3092\u8fd4\u3059 win10=10 win11=11 Function GetOsVersion() ' \u53d6\u5f97\u7d50\u679c\u3092\u683c\u7d0d\u3059\u308b\u5909\u6570\u3092\u5ba3\u8a00 Dim lnArchitecture As Long Dim strCaption As String Dim strCSDVersion As String Dim strOSVersion As String ' \u521d\u671f\u5024\u3092\u5165\u308c\u3066\u304a\u304f lnArchitecture = 32 strCaption = \"\" strCSDVersion = \"Service Pack 0\" On Error Resume Next Dim objOS As Obj\u2026","provider_url":"https://hatena.blog","title":"ExcelVBA\u3067windows\u30d0\u30fc\u30b8\u30e7\u30f3(10\u3068\u304b11\u3068\u304b) \u8fd4\u3059","author_url":"https://blog.hatena.ne.jp/shikaku/","url":"https://blog.systemjp.net/entry/2021/11/15/174308","height":"190","published":"2021-11-15 17:43:08","provider_name":"Hatena Blog","image_url":null}