Retrieve Windows ReleaseId with vba

[nilmol]

Hello,

Is there a way to retrieve the Windows Release Id? Current releasid in my case being 1803, previous was 1709 and now coming up is probably 1810 or possibly 1811.

My current version is 17134 but Winver says 17134.345. Any ideas on how to retrieve the last three figures?

/nils

 

[rlv01]

I'd say try to get it from the registry

Sub WinVerTest()
    Dim WinShell As Object
    Dim S As String
    Dim Build As String
    Dim WinVer As String
    
    Set WinShell = CreateObject("WScript.Shell")
    
    With WinShell
        WinVer = "Version " & WinShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ReleaseId")
        Build = "OS Build " & _
            WinShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentBuildNumber") _
            & "." & WinShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\UBR")
        S = WinShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName") & vbCr
        S = S & WinVer & " (" & Build & ")"
        MsgBox S, vbInformation, "Windows Version"
    End With
End Sub

 

[nilmol]

Absolutley fantastic, works like a charm and exactly what I was looking for. Thanks

/n