DIM OVIX AS OSVERSIONINFOEX ... CALL GetVersionEx(BYVAL VARPTR(OVIX))
Tweet
DECLARE FUNCTION GetVersionEx LIB "KERNEL32.DLL" ALIAS "GetVersionExA" (lpVersionInformation AS OSVERSIONINFOEX) AS LONG
'
'
'
%VER_NT_WORKSTATION = &H00000001
%VER_NT_DOMAIN_CONTROLLER = &H00000002
%VER_NT_SERVER = &H00000003
%VER_SUITE_SMALLBUSINESS = &H00000001
%VER_SUITE_ENTERPRISE = &H00000002
%VER_SUITE_BACKOFFICE = &H00000004
%VER_SUITE_COMMUNICATIONS = &H00000008
%VER_SUITE_TERMINAL = &H00000010
%VER_SUITE_SMALLBUSINESS_RESTRICTED = &H00000020
%VER_SUITE_EMBEDDEDNT = &H00000040
%VER_SUITE_DATACENTER = &H00000080
%VER_SUITE_SINGLEUSERTS = &H00000100
%VER_SUITE_PERSONAL = &H00000200
%VER_SUITE_SERVERAPPLIANCE = &H00000400
%ERROR_OLD_WIN_VERSION = 0
Type OSVERSIONINFOEX
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As Asciiz * 128
wServicePackMajor As Long 'Word?
wServicePackMinor As Long 'Word?
wSuiteMask As Long 'Word?
wProductType As Byte
wReserved As Byte
End Type
#Include "H:\PBCC\OSVER\Win32api.inc"
Declare Function DisplaySystemVersion() As String
Function PbMain() As Long
StdOut DisplaySystemVersion
End Function
'============================================================================================
Function DisplaySystemVersion() As String
Dim osvi As OSVERSIONINFOEX
Local lResult As Long
Local St As String
Local NTVer As String
Local ExWorked As String
Local bOsVersionInfoEx As Long
Local hKey As Long
Local szProductType As Asciiz * 80
Local dwBufLen As Long
osvi.dwOsVersionInfoSize = SizeOf(osvi)
bOsVersionInfoEx = GetVersionEx(osvi)
If bOsVersionInfoEx = %ERROR_OLD_WIN_VERSION Then 'It failed
StdOut "GetVersionEx failed with the following error: " & Format$(bOsVersionInfoEx)
End If
Select Case osvi.dwPlatformId
Case %VER_PLATFORM_WIN32_NT
'// Test for the product.
If osvi.dwMajorVersion <= 4 Then St = "Microsoft Windows NT "
If osvi.dwMajorVersion = 5 And osvi.dwMinorVersion = 0 Then St = "Microsoft Windows 2000 "
If osvi.dwMajorVersion = 5 And osvi.dwMinorVersion = 1 Then St = "Whistler "
'// Test for product type.
If IsTrue bOsVersionInfoEx Then 'Test for product type
If osvi.wProductType = %VER_NT_WORKSTATION Then
If osvi.wSuiteMask & %VER_SUITE_PERSONAL Then
St = St & " Personal "
Else
St = St & " Professional "
End If
ElseIf osvi.wProductType = %VER_NT_SERVER Then
If osvi.wSuiteMask & %VER_SUITE_DATACENTER Then
St = St & "DataCenter Server "
ElseIf osvi.wSuiteMask & %VER_SUITE_ENTERPRISE Then
St = St & "Advanced Server "
Else
St = St & "Server "
End If
End If
Else 'Probe the registry
RegOpenKeyEx %HKEY_LOCAL_MACHINE, "SYSTEM\CurrentControlSet\Control\ProductOptions",0, %KEY_QUERY_VALUE, hKey
RegQueryValueEx hKey,_
"ProductType",_
0,_
0,_
szProductType,_
dwBufLen
RegCloseKey hKey
If szProductType = "WINNT" Then
St = St & "Workstation "
ElseIf szProductType = "SERVERNT" Then
St = St & "Server "
ElseIf szProductType = "LanmanNT" Then
St = St & "Terminal Server "
End If
End If
'// Display version, service pack (If Any), And build number.
If osvi.dwMajorVersion <= 4 Then
St = St & "version " & Format$(osvi.dwMajorVersion) & "." & Format$(osvi.dwMinorVersion) & " " & osvi.szCSDVersion & " (Build " & Format$(osvi.dwBuildNumber & 65535) & ")"
Else
St = St & osvi.szCSDVersion & " (Build " & Format$(osvi.dwBuildNumber & 65535) & ")"
End If
Case %VER_PLATFORM_WIN32_WINDOWS
If (osvi.dwMajorVersion = 4 & osvi.dwMinorVersion = 0) Then
St = "Microsoft Windows 95 "
If Left$(osvi.szCSDVersion,1) = "C" Then St = St & "OSR2 "
End If
If (osvi.dwMajorVersion = 4 & osvi.dwMinorVersion = 10) Then
St = "Microsoft Windows 98 "
If Left$(osvi.szCSDVersion,1) = "A" Then St = St & "SE "
End If
If (osvi.dwMajorVersion = 4 & osvi.dwMinorVersion = 90) Then
St = "Microsoft Windows ME "
End If
Case %VER_PLATFORM_WIN32s
St = "Microsoft Win32s "
End Select
Function = St
End Function
TYPE OSVERSIONINFOEX dwOSVersionInfoSize AS DWORD dwMajorVersion AS DWORD dwMinorVersion AS DWORD dwBuildNumber AS DWORD dwPlatformId AS DWORD szCSDVersion AS ASCIIZ * 128 wServicePackMajor AS WORD wServicePackMinor AS WORD wSuiteMask AS WORD wProductType AS BYTE wReserved AS BYTE END TYPE
Comment