
WindowsBuildNumber – Get operating system build number
Private Type OSVERSIONINFO dwOSVersionInfoSize As Long dwMajorVersion As Long dwMinorVersion As Long dwBuildNumber As Long dwPlatformId As Long szCSDVersion As String * 128End TypePrivate Declare Function GetVersionEx Lib “kernel32” Alias “GetVersionExA” _ (lpVersionInformation As OSVERSIONINFO) As Long’ Windows Build number.Function WindowsBuildNumber() As Long Dim os As OSVERSIONINFO, ver As String