Access 2016 Get Windows Build

Giganews Newsgroups
Subject: Access 2016 Get Windows Build
Posted by:  Jürgen_Meyer
Date: Sun, 14 Jun 2020

The following shows me the build number

Function Test()
strComputer = "."
Set objWMIService = GetObject("winmgmts:" &
"{impersonationLevel=impersonate}!\" & strComputer & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem")
For Each objOperatingSystem In colOperatingSystems
    Debug.Print objOperatingSystem.Caption & "  " & objOperatingSystem.Version
& " " & objOperatingSystem.Build Number
Next
End Function

It shows me:
19041
But the info is not complete
I want to get the complete build number
In this case:
19041.329

Any idea?

Rgds
Juergen

Replies