struct OSVERSIONINFO,_
dwOSVersionInfoSize as ulong,_
dwMajorVersion as ulong,_
dwMinorVersion as ulong,_
dwBuildNumber as ulong,_
dwPlatformId as ulong,_
szCSDVersion as char[128]

L=len(OSVERSIONINFO.struct)
OSVERSIONINFO.dwOSVersionInfoSize.struct=L
calldll #kernel32, "GetVersionExA",_
OSVERSIONINFO as struct,_
result as boolean

print "Major Version is ";
print OSVERSIONINFO.dwMajorVersion.struct
print "Minor Version is ";
print OSVERSIONINFO.dwMinorVersion.struct
print "Build Number is ";
print OSVERSIONINFO.dwBuildNumber.struct
print "PlatformId is ";
print OSVERSIONINFO.dwPlatformId.struct
print "CSDVersion is ";
print OSVERSIONINFO.szCSDVersion.struct
''''''''''''''''''''''''''''''''''''''''''''''''''''
'dwMajorVersion
'Identifies the major version number of the operating
'system as follows. Operating System Value
'Windows 95 4
'Windows 98 4
'Windows Me 4
'Windows NT 3.51 3
'Windows NT 4.0 4
'Windows 2000 5
'Windows XP 5
'Windows .NET Server 5
''''''''''''''''''''''''''''''''''''''''''''''''''''
'dwMinorVersion
'Identifies the minor version number of
'the operating system as follows.
'Operating System Value
'Windows 95 0
'Windows 98 10
'Windows Me 90
'Windows NT 3.51 51
'Windows NT 4.0 0
'Windows 2000 0
'Windows XP 1
'Windows .NET Server 1
''''''''''''''''''''''''''''''''''''''''''''''''''''
'dwBuildNumber
'Windows NT/2000/XP: Identifies the build number of the
'operating system.
'Windows 95/98/Me: Identifies the build number of the
'operating system in the low-order word. The high-order
'word contains the major and minor version numbers.
''''''''''''''''''''''''''''''''''''''''''''''''''''
'dwPlatformId
'Identifies the operating system platform. This member
'can be one of the following values. Value Platform
'0: _VER_PLATFORM_WIN32s Win32s on Windows 3.1.
'1: _VER_PLATFORM_WIN32_WINDOWS Windows 95, Windows 98, or Windows Me.
'2: _VER_PLATFORM_WIN32_NT Windows NT 3.51, Windows NT 4.0,
'Windows 2000, Windows XP, or Windows .NET Server.
''''''''''''''''''''''''''''''''''''''''''''''''''''
'szCSDVersion
'Windows NT/2000/XP: Contains a null-terminated string,
'such as "Service Pack 3", that indicates the latest
'Service Pack installed on the system. If no Service
'Pack has been installed, the string is empty.
'
'Windows 95/98/Me: Contains a null-terminated string that
'indicates additional version information. For example,
'" C" indicates Windows 95 OSR2 and " A" indicates Windows
'98 Second Edition.