{"id":453,"date":"2011-09-15T19:37:08","date_gmt":"2011-09-15T10:37:08","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=453"},"modified":"2011-09-15T19:38:13","modified_gmt":"2011-09-15T10:38:13","slug":"windows-8wmi%e3%81%a7os%e3%81%ae%e6%83%85%e5%a0%b1%e3%82%92%e5%8f%96%e5%be%97%e3%81%97%e3%81%a6%e3%81%bf%e3%81%be%e3%81%97%e3%81%9f%e3%80%82","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=453","title":{"rendered":"[Windows 8]WMI\u3067OS\u306e\u60c5\u5831\u3092\u53d6\u5f97\u3057\u3066\u307f\u307e\u3057\u305f\u3002"},"content":{"rendered":"

WMI\u3067Windows 8 Developer Preview(\u82f1\u8a9e\u7248\u30fb64\u30d3\u30c3\u30c8)\u306e\u60c5\u5831\u3092\u53d6\u5f97\u3057\u3066\u307f\u307e\u3057\u305f(VBA)\u3002
\n<\/p>\n

\u25a0 VBA\u30b3\u30fc\u30c9<\/h4>\n
Option Explicit\r\n\r\nPublic Sub Sample()\r\n  Dim colItems As Object\r\n  Dim itm As Object\r\n  \r\n  On Error Resume Next\r\n  Set colItems = CreateObject("WbemScripting.SWbemLocator").ConnectServer.ExecQuery("Select * from Win32_OperatingSystem")\r\n  For Each itm In colItems\r\n    Debug.Print "BootDevice:" & itm.BootDevice\r\n    Debug.Print "BuildNumber:" & itm.BuildNumber\r\n    Debug.Print "BuildType:" & itm.BuildType\r\n    Debug.Print "Caption:" & itm.Caption\r\n    Debug.Print "CodeSet:" & itm.CodeSet\r\n    Debug.Print "CountryCode:" & itm.CountryCode\r\n    Debug.Print "CreationClassName:" & itm.CreationClassName\r\n    Debug.Print "CSCreationClassName:" & itm.CSCreationClassName\r\n    Debug.Print "CSDVersion:" & itm.CSDVersion\r\n    Debug.Print "CSName:" & itm.CSName\r\n    Debug.Print "CurrentTimeZone:" & itm.CurrentTimeZone\r\n    Debug.Print "DataExecutionPrevention_32BitApplications:" & itm.DataExecutionPrevention_32BitApplications\r\n    Debug.Print "DataExecutionPrevention_Available:" & itm.DataExecutionPrevention_Available\r\n    Debug.Print "DataExecutionPrevention_Drivers:" & itm.DataExecutionPrevention_Drivers\r\n    Debug.Print "DataExecutionPrevention_SupportPolicy:" & itm.DataExecutionPrevention_SupportPolicy\r\n    Debug.Print "Debug:" & itm.Debug\r\n    Debug.Print "Description:" & itm.Description\r\n    Debug.Print "Distributed:" & itm.Distributed\r\n    Debug.Print "EncryptionLevel:" & itm.EncryptionLevel\r\n    Debug.Print "ForegroundApplicationBoost:" & itm.ForegroundApplicationBoost\r\n    Debug.Print "FreePhysicalMemory:" & itm.FreePhysicalMemory\r\n    Debug.Print "FreeSpaceInPagingFiles:" & itm.FreeSpaceInPagingFiles\r\n    Debug.Print "FreeVirtualMemory:" & itm.FreeVirtualMemory\r\n    Debug.Print "InstallDate:" & itm.InstallDate\r\n    Debug.Print "LargeSystemCache:" & itm.LargeSystemCache\r\n    Debug.Print "LastBootUpTime:" & itm.LastBootUpTime\r\n    Debug.Print "LocalDateTime:" & itm.LocalDateTime\r\n    Debug.Print "Locale:" & itm.Locale\r\n    Debug.Print "Manufacturer:" & itm.Manufacturer\r\n    Debug.Print "MaxNumberOfProcesses:" & itm.MaxNumberOfProcesses\r\n    Debug.Print "MaxProcessMemorySize:" & itm.MaxProcessMemorySize\r\n    Debug.Print "MUILanguages:" & itm.MUILanguages\r\n    Debug.Print "Name:" & itm.Name\r\n    Debug.Print "NumberOfLicensedUsers:" & itm.NumberOfLicensedUsers\r\n    Debug.Print "NumberOfProcesses:" & itm.NumberOfProcesses\r\n    Debug.Print "NumberOfUsers:" & itm.NumberOfUsers\r\n    Debug.Print "OperatingSystemSKU:" & itm.OperatingSystemSKU\r\n    Debug.Print "Organization:" & itm.Organization\r\n    Debug.Print "OSArchitecture:" & itm.OSArchitecture\r\n    Debug.Print "OSLanguage:" & itm.OSLanguage\r\n    Debug.Print "OSProductSuite:" & itm.OSProductSuite\r\n    Debug.Print "OSType:" & itm.OSType\r\n    Debug.Print "OtherTypeDescription:" & itm.OtherTypeDescription\r\n    Debug.Print "PAEEnabled:" & itm.PAEEnabled\r\n    Debug.Print "PlusProductID:" & itm.PlusProductID\r\n    Debug.Print "PlusVersionNumber:" & itm.PlusVersionNumber\r\n    Debug.Print "PortableOperatingSystem:" & itm.PortableOperatingSystem\r\n    Debug.Print "Primary:" & itm.Primary\r\n    Debug.Print "ProductType:" & itm.ProductType\r\n    Debug.Print "RegisteredUser:" & itm.RegisteredUser\r\n    Debug.Print "SerialNumber:" & itm.SerialNumber\r\n    Debug.Print "ServicePackMajorVersion:" & itm.ServicePackMajorVersion\r\n    Debug.Print "ServicePackMinorVersion:" & itm.ServicePackMinorVersion\r\n    Debug.Print "SizeStoredInPagingFiles:" & itm.SizeStoredInPagingFiles\r\n    Debug.Print "Status:" & itm.Status\r\n    Debug.Print "SuiteMask:" & itm.SuiteMask\r\n    Debug.Print "SystemDevice:" & itm.SystemDevice\r\n    Debug.Print "SystemDirectory:" & itm.SystemDirectory\r\n    Debug.Print "SystemDrive:" & itm.SystemDrive\r\n    Debug.Print "TotalSwapSpaceSize:" & itm.TotalSwapSpaceSize\r\n    Debug.Print "TotalVirtualMemorySize:" & itm.TotalVirtualMemorySize\r\n    Debug.Print "TotalVisibleMemorySize:" & itm.TotalVisibleMemorySize\r\n    Debug.Print "Version:" & itm.Version\r\n    Debug.Print "WindowsDirectory:" & itm.WindowsDirectory\r\n  Next\r\n  Set colItems = Nothing\r\n  On Error GoTo 0\r\nEnd Sub<\/pre>\n
\u25a0 \u7d50\u679c<\/h4>\n
BootDevice:\\Device\\HarddiskVolume1\r\nBuildNumber:8102\r\nBuildType:Multiprocessor Free\r\nCaption:Microsoft Windows Developer Preview \r\nCodeSet:932\r\nCountryCode:81\r\nCreationClassName:Win32_OperatingSystem\r\nCSCreationClassName:Win32_ComputerSystem\r\nCSDVersion:\r\nCSName:WIN8PC\r\nCurrentTimeZone:540\r\nDataExecutionPrevention_32BitApplications:True\r\nDataExecutionPrevention_Available:True\r\nDataExecutionPrevention_Drivers:True\r\nDataExecutionPrevention_SupportPolicy:2\r\nDebug:False\r\nDescription:\r\nDistributed:False\r\nEncryptionLevel:256\r\nForegroundApplicationBoost:2\r\nFreePhysicalMemory:2018972\r\nFreeSpaceInPagingFiles:3210264\r\nFreeVirtualMemory:5132032\r\nInstallDate:20110914232533.000000+540\r\nLargeSystemCache:\r\nLastBootUpTime:20110915164505.493335+540\r\nLocalDateTime:20110915191717.920000+540\r\nLocale:0411\r\nManufacturer:Microsoft Corporation\r\nMaxNumberOfProcesses:-1\r\nMaxProcessMemorySize:8589934464\r\nName:Microsoft Windows Developer Preview |C:\\Windows|\\Device\\Harddisk0\\Partition2\r\nNumberOfLicensedUsers:\r\nNumberOfProcesses:51\r\nNumberOfUsers:2\r\nOperatingSystemSKU:74\r\nOrganization:\r\nOSArchitecture:64-bit\r\nOSLanguage:1033\r\nOSProductSuite:256\r\nOSType:18\r\nOtherTypeDescription:\r\nPAEEnabled:\r\nPlusProductID:\r\nPlusVersionNumber:\r\nPortableOperatingSystem:False\r\nPrimary:True\r\nProductType:1\r\nRegisteredUser:kinuasa\r\nSerialNumber:00127-*****-*****-*****\r\nServicePackMajorVersion:0\r\nServicePackMinorVersion:0\r\nSizeStoredInPagingFiles:3210264\r\nStatus:OK\r\nSuiteMask:272\r\nSystemDevice:\\Device\\HarddiskVolume2\r\nSystemDirectory:C:\\Windows\\system32\r\nSystemDrive:C:\r\nTotalSwapSpaceSize:\r\nTotalVirtualMemorySize:6485064\r\nTotalVisibleMemorySize:3274800\r\nVersion:6.2.8102\r\nWindowsDirectory:C:\\Windows<\/pre>\n","protected":false},"excerpt":{"rendered":"WMI\u3067Windows 8 Developer Preview(\u82f1\u8a9e\u7248\u30fb64\u30d3\u30c3\u30c8)\u306e\u60c5\u5831\u3092\u53d6\u5f97\u3057\u3066\u307f\u307e\u3057\u305f(VBA)\u3002","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[25],"tags":[26],"class_list":["post-453","post","type-post","status-publish","format-standard","hentry","category-windows","tag-windows-8"],"aioseo_notices":[],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/p4UZZr-7j","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/453","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=453"}],"version-history":[{"count":7,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/453\/revisions"}],"predecessor-version":[{"id":460,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=\/wp\/v2\/posts\/453\/revisions\/460"}],"wp:attachment":[{"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=453"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=453"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.ka-net.org\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=453"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}