[[20211026112337]]　『OS情報の取得』（UBUNTU）　ページの最後に飛ぶ

『OS情報の取得』（UBUNTU）

複数台あるPCのOSアップデート複数人で行ったのでちゃんと終わっているか確認のためのマクロを組もうと思っています
OS情報が以下のものになっていることを確認したいです
OS:Windows10
Build:19042(20H2)
Revision:1237より上

現在はコマンドプロンプトのverで帰ってきたものを分解して比較しているのですが
一瞬出るコマンド画面が気に食わないのでほかに方法あったら教えてほしいです

＜使用 Excel：Office365、使用 OS：Windows10 ＞

ご参考。

https://infith.com/system/access/vba_os_ver_bit/
（ひまつぶし） 2021/10/26(火) 12:42

その方法はRevisionの取り方がわかりませんでした

（UBUNTU） 2021/10/26(火) 13:39

↓と書いてありますね。

※Win32_OperatingSystemの詳しい説明はMSDNを参照。
（ひまつぶし） 2021/10/26(火) 14:47

＞その方法はRevisionの取り方がわかりませんでした

https://smart-change-phone.net/revision-version-distinction/

のURLによると「あえて「バージョン」という記載をしているケースも多い」ということです。
要するにリビジョンも付加してバージョンと呼ぶことが多いということです。

（＊） 2021/10/26(火) 15:23

以下のコードを実行してもrevisionに当たる「1237」の文字列を取得できませんでした

'OSの情報を取得
Public Sub sample1()

    Dim colItems As Object
    Dim item As Object

    Set colItems = CreateObject("WbemScripting.SWbemLocator").ConnectServer.ExecQuery("Select * From Win32_OperatingSystem")

     On Error Resume Next
    For Each item In colItems
Debug.Print item.BootDevice
Debug.Print item.BuildNumber
Debug.Print item.BuildType
Debug.Print item.Caption
Debug.Print item.CodeSet
Debug.Print item.CountryCode
Debug.Print item.CreationClassName
Debug.Print item.CSCreationClassName
Debug.Print item.CSDVersion
Debug.Print item.CSName
Debug.Print item.CurrentTimeZone
Debug.Print item.DataExecutionPrevention_Available
Debug.Print item.DataExecutionPrevention_32BitApplications
Debug.Print item.DataExecutionPrevention_Drivers
Debug.Print item.DataExecutionPrevention_SupportPolicy
Debug.Print item.debug
Debug.Print item.Description
Debug.Print item.Distributed
Debug.Print item.EncryptionLevel
Debug.Print item.ForegroundApplicationBoost
Debug.Print item.FreePhysicalMemory
Debug.Print item.FreeSpaceInPagingFiles
Debug.Print item.FreeVirtualMemory
Debug.Print item.InstallDate
Debug.Print item.LargeSystemCache
Debug.Print item.LastBootUpTime
Debug.Print item.LocalDateTime
Debug.Print item.Locale
Debug.Print item.Manufacturer
Debug.Print item.MaxNumberOfProcesses
Debug.Print item.MaxProcessMemorySize
Debug.Print item.MUILanguages; []
Debug.Print item.Name
Debug.Print item.NumberOfLicensedUsers
Debug.Print item.NumberOfProcesses
Debug.Print item.NumberOfUsers
Debug.Print item.OperatingSystemSKU
Debug.Print item.Organization
Debug.Print item.OSArchitecture
Debug.Print item.OSLanguage
Debug.Print item.OSProductSuite
Debug.Print item.OSType
Debug.Print item.OtherTypeDescription
Debug.Print item.PAEEnabled
Debug.Print item.PlusProductID
Debug.Print item.PlusVersionNumber
Debug.Print item.PortableOperatingSystem
Debug.Print item.Primary
Debug.Print item.ProductType
Debug.Print item.RegisteredUser
Debug.Print item.SerialNumber
Debug.Print item.ServicePackMajorVersion
Debug.Print item.ServicePackMinorVersion
Debug.Print item.SizeStoredInPagingFiles
Debug.Print item.Status
Debug.Print item.SuiteMask
Debug.Print item.SystemDevice
Debug.Print item.SystemDirectory
Debug.Print item.SystemDrive
Debug.Print item.TotalSwapSpaceSize
Debug.Print item.TotalVirtualMemorySize
Debug.Print item.TotalVisibleMemorySize
Debug.Print item.Version
Debug.Print item.WindowsDirectory
Debug.Print item.QuantumLength
Debug.Print item.QuantumType

    Next
End Sub

（UBUNTU） 2021/10/26(火) 16:12

＞以下のコードを実行してもrevisionに当たる「1237」の文字列を取得できませんでした

そうですか。あとはレジストリから取得するとかかと思いますが、わからないです。

お役に立てなくてごめんなさい。

（ひまつぶし） 2021/10/26(火) 17:28

レジストリで間違ってないようですよー
こんな感じ

    Sub sample()

        Const BasePath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
        With CreateObject("WScript.Shell")
            MsgBox Join(Array( _
                .RegRead(BasePath & "ProductName"), _
                .RegRead(BasePath & "DisplayVersion"), _
                .RegRead(BasePath & "CurrentBuild"), _
                .RegRead(BasePath & "UBR"), _
                ""), vbLf)
        End With

    End Sub

結果はこんな感じ

Microsoft Excel

Windows 10 Home
20H2
19042
1288

（とりあえず書いてみた） 2021/10/26(火) 19:44

おー！ありがとうございます
（UBUNTU） 2021/10/27(水) 11:03

コメント返信：

[ 一覧(最新更新順) ]

[[20211026112337]] 『OS情報の取得』（UBUNTU） ページの最後に飛ぶ

[[20211026112337]]　『OS情報の取得』（UBUNTU）　ページの最後に飛ぶ