获取Windows操作系统所有版本

最新推荐文章于 2022-09-26 13:28:12 发布
最新推荐文章于 2022-09-26 13:28:12 发布
阅读量911 收藏
点赞数
分类专栏： 操作系统 文章标签： windows server basic express integer function
Option Explicit

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFOEX ) As Long

Private Type OSVERSIONINFOEX
    dwOSVersionInfoSize As Long
    dwMajorVersion  As Long
    dwMinorVersion As Long
    dwBuildNumber As Long
    dwPlatformId As Long
    szCSDVersion As String * 128
    wServicePackMajor As Integer
    wServicePackMinor As Integer
    wSuiteMask As Integer
    wProductType As Byte
    wReserved As Byte
End Type

Private Const VER_PLATFORM_WIN32_NT As Long = 2
Private Const VER_PLATFORM_WIN32_WINDOWS As Long = 1
Private Const VER_PLATFORM_WIN32s As Long = 0

Private Const PRODUCT_UNLICENSED As Long = &HABCDABCD
Private Const PRODUCT_BUSINESS As Long = &H6
Private Const PRODUCT_BUSINESS_N As Long = &H10
Private Const PRODUCT_CLUSTER_SERVER As Long = &H12
Private Const PRODUCT_DATACENTER_SERVER As Long = &H8
Private Const PRODUCT_DATACENTER_SERVER_CORE As Long = &HC
Private Const PRODUCT_ENTERPRISE As Long = &H4
Private Const PRODUCT_ENTERPRISE_N As Long = &H1B
Private Const PRODUCT_ENTERPRISE_SERVER As Long = &HA
Private Const PRODUCT_ENTERPRISE_SERVER_CORE As Long = &HE
Private Const PRODUCT_ENTERPRISE_SERVER_IA64 As Long = &HF
Private Const PRODUCT_HOME_BASIC As Long = &H2
Private Const PRODUCT_HOME_BASIC_N As Long = &H5
Private Const PRODUCT_HOME_PREMIUM As Long = &H3
Private Const PRODUCT_HOME_PREMIUM_N As Long = &H1A
Private Const PRODUCT_HOME_SERVER As Long = &H13
Private Const PRODUCT_SERVER_FOR_SMALLBUSINESS As Long = &H18
Private Const PRODUCT_SMALLBUSINESS_SERVER As Long = &H9
Private Const PRODUCT_SMALLBUSINESS_SERVER_PREMIUM As Long = &H19
Private Const PRODUCT_STANDARD_SERVER As Long = &H7
Private Const PRODUCT_STANDARD_SERVER_CORE As Long = &HD
Private Const PRODUCT_STARTER As Long = &H8
Private Const PRODUCT_STORAGE_ENTERPRISE_SERVER As Long = &H17
Private Const PRODUCT_STORAGE_EXPRESS_SERVER As Long = &H14
Private Const PRODUCT_STORAGE_STANDARD_SERVER As Long = &H15
Private Const PRODUCT_STORAGE_WORKGROUP_SERVER As Long = &H16
Private Const PRODUCT_UNDEFINED As Long = &H0
Private Const PRODUCT_ULTIMATE As Long = &H1
Private Const PRODUCT_ULTIMATE_N As Long = &H1C
Private Const PRODUCT_WEB_SERVER As Long = &H11
Public Function GetWindowsVersion ( ) As String

' 变量声明
Dim retOSVersionInf As OSVERSIONINFOEX
Dim retLng As Long

'结构尺寸
retOSVersionInf .dwOSVersionInfoSize = Len (retOSVersionInf )

'获取 Windows 版本
retLng = GetVersionEx (retOSVersionInf )

If retLng = 0 Then
    GetWindowsVersion = "未知"
    Exit Function
End If

With retOSVersionInf

If .dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then
        
        Select Case .dwMajorVersion
            Case 4
                Select Case .dwMinorVersion
                    Case 0 ' Win 95
                        Select Case .szCSDVersion
                            Case "C" ' OSR2
                                GetWindowsVersion = "Windows 95 OSR2"
                            Case "B" ' OSR2
                                GetWindowsVersion = "Windows 95 OSR2"
                            Case Else
                                GetWindowsVersion = "Windows 95"
                        End Select
                    Case 10 ' Win 98
                        Select Case .szCSDVersion
                            Case "A" ' SE
                                GetWindowsVersion = "Windows 98 SE"
                            Case Else
                                GetWindowsVersion = "Windows 98"
                        End Select
                    Case 90 ' Win ME
                        GetWindowsVersion = "Windows ME"
                End Select
        End Select

ElseIf .dwPlatformId = VER_PLATFORM_WIN32_NT And .dwMajorVersion = 5 Then

    Select Case .dwMinorVersion
        Case 0 ' Win 2000
            Select Case .wProductType
                Case 1
                    Select Case .wSuiteMask
                        Case &H80 ' 数据中心
                            GetWindowsVersion = "Windows 2000 Data center"
                        Case &H2 ' 高级版本
                            GetWindowsVersion = "Windows 2000 Advanced"
                        Case Else
                            GetWindowsVersion = "Windows 2000"
                    End Select
            End Select
        Case 1 ' Win XP
            Select Case .wProductType
                Case 1
                    Select Case .wSuiteMask
                        Case &H0 ' Pro
                            GetWindowsVersion = "Windows XP Professional"
                        Case &H200 ' Home
                            GetWindowsVersion = "Windows XP Home"
                        Case Else ' XP
                            GetWindowsVersion = "Windows XP"
                    End Select
            End Select
        Case 2 ' Win Server 2003
            Select Case .wProductType
                Case 3
                    Select Case .wSuiteMask
                        Case &H2
                            GetWindowsVersion = "Windows Server 2003 Enterprise"
                        Case &H80
                            GetWindowsVersion = "Windows Server 2003 Data center"
                        Case &H400
                            GetWindowsVersion = "Windows Server 2003 Web Edition"
                        Case &H0
                            GetWindowsVersion = "Windows Server 2003 Standard"
                        Case Else
                            GetWindowsVersion = "Windows Server 2003"
                    End Select
            End Select
    End Select

    If .wServicePackMajor > 0 Then
        GetWindowsVersion = GetWindowsVersion & " Service Pack " & .wServicePackMajor & IIf ( .wServicePackMinor > 0 , "." & .wServicePackMinor , vbNullString )
    End If

ElseIf .dwPlatformId = VER_PLATFORM_WIN32_NT And .dwMajorVersion = 6 Then

    Select Case .dwMinorVersion
        Case 0
                Select Case .wProductType
                    Case PRODUCT_BUSINESS
                        GetWindowsVersion = "Business Edition"
                    Case PRODUCT_BUSINESS_N
                        GetWindowsVersion = "Business Edition (N)"
                    Case PRODUCT_CLUSTER_SERVER
                        GetWindowsVersion = "Cluster Server Edition"
                    Case PRODUCT_DATACENTER_SERVER
                        GetWindowsVersion = "Server Datacenter Edition (full installation)"
                    Case PRODUCT_DATACENTER_SERVER_CORE
                        GetWindowsVersion = "Server Datacenter Edition (core installation)"
                    Case PRODUCT_ENTERPRISE
                        GetWindowsVersion = "Enterprise Edition"
                    Case PRODUCT_ENTERPRISE_N
                        GetWindowsVersion = "Enterprise Edition (N)"
                    Case PRODUCT_ENTERPRISE_SERVER
                        GetWindowsVersion = "Server Enterprise Edition (full installation)"
                    Case PRODUCT_ENTERPRISE_SERVER_CORE
                        GetWindowsVersion = "Server Enterprise Edition (core installation)"
                    Case PRODUCT_ENTERPRISE_SERVER_IA64
                        GetWindowsVersion = "Server Enterprise Edition for Itanium-based Systems"
                    Case PRODUCT_HOME_BASIC
                        GetWindowsVersion = "Home Basic Edition"
                    Case PRODUCT_HOME_BASIC_N
                        GetWindowsVersion = "Home Basic Edition (N)"
                    Case PRODUCT_HOME_PREMIUM
                        GetWindowsVersion = "Home Premium Edition"
                    Case PRODUCT_HOME_PREMIUM_N
                        GetWindowsVersion = "Home Premium Edition (N)"
                    Case PRODUCT_HOME_SERVER
                        GetWindowsVersion = "Home Server Edition"
                    Case PRODUCT_SERVER_FOR_SMALLBUSINESS
                        GetWindowsVersion = "Server for Small Business Edition"
                    Case PRODUCT_SMALLBUSINESS_SERVER
                        GetWindowsVersion = "Small Business Server"
                    Case PRODUCT_SMALLBUSINESS_SERVER_PREMIUM
                        GetWindowsVersion = "Small Business Server Premium Edition"
                    Case PRODUCT_STANDARD_SERVER
                        GetWindowsVersion = "Server Standard Edition (full installation)"
                    Case PRODUCT_STANDARD_SERVER_CORE
                        GetWindowsVersion = "Server Standard Edition (core installation)"
                    Case PRODUCT_STARTER
                        GetWindowsVersion = "Starter Edition"
                    Case PRODUCT_STORAGE_ENTERPRISE_SERVER
                        GetWindowsVersion = "Storage Server Enterprise Edition"
                    Case PRODUCT_STORAGE_EXPRESS_SERVER
                        GetWindowsVersion = "Storage Server Express Edition"
                    Case PRODUCT_STORAGE_STANDARD_SERVER
                        GetWindowsVersion = "Storage Server Standard Edition"
                    Case PRODUCT_STORAGE_WORKGROUP_SERVER
                        GetWindowsVersion = "Storage Server Workgroup Edition"
                    Case PRODUCT_ULTIMATE
                        GetWindowsVersion = "Ultimate Edition"
                    Case PRODUCT_ULTIMATE_N
                        GetWindowsVersion = "Ultimate Edition (N)"
                    Case PRODUCT_UNDEFINED
                        GetWindowsVersion = "An unknown product"
                    Case PRODUCT_UNLICENSED
                        GetWindowsVersion = "Not activated product"
                    Case PRODUCT_WEB_SERVER
                        GetWindowsVersion = "Web Server Edition"
                End Select
                
                Select Case .wProductType
                    Case 1 ' Win Vista
                        GetWindowsVersion = "Windows Vista " & GetWindowsVersion
                    Case 3 ' Win Server 2008
                        GetWindowsVersion = "Windows Server 2008 " & GetWindowsVersion
                    Case Else
                        GetWindowsVersion = "Windows Vista " & GetWindowsVersion
                End Select
                
                    If .wServicePackMajor > 0 Then
                        GetWindowsVersion = GetWindowsVersion & " Service Pack " & .wServicePackMajor & IIf ( .wServicePackMinor > 0 , "." & .wServicePackMinor , vbNullString )
                    End If
                    
        End Select

End If

GetWindowsVersion = GetWindowsVersion & " [Version: " & .dwMajorVersion & "." & .dwMinorVersion & "." & .dwBuildNumber & "]"

End With


End Function
 
扬帆起航2013
关注
专栏目录
获取Windows 操作系统版本信息的 C 程序
08-08
获取本机ip 显示系统版本 操作系统已安装补丁信息
获取Windows 操作系统版本
maomao171314的专栏
07-01 690
获取windows 操作系统版本
获取Windows系统版本
Aaron的博客
10-15 8814
语言:C/C++ 编程软件:VS2015 字符集:UNICODE编码 【1】说明 1、由于GetVersionEx函数在Windows 8.1版本之后,返回的结果全部是6.2,这函数被微软动了手脚的,但是实际上可以利用额外添加一个manifest文件指示兼容新版本. (参看文章:http://blog.csdn.net/k1988/article/details/47614529) ...
获取Windows版本信息
Never too late to study
07-29 2650
获取Windows版本信息。 　　在google里搜索“msdn os version”及“获取Windows版本”可得到大量的资料，以下代码就是从网上搜集的资料整理而成（代码在VC++ 2005及VC++ 2005 Express中编译通过，为了方便在64位下编译，所以改成不用预编译的版本，如果要用预编译，请去掉 //#include "stdafx.h" 前的//）： /*******
获取Windows系统的版本信息
04-05
获取Windows系统的版本信息
GetOSVersion:通过 3 种方式获取 Windows 操作系统版本信息。 使用 API、GetVersionEx、VerifyVersionInfo
06-13
在 Windows 上获取操作系统版本信息。 如何建造 使用 Visual Studio 2013，打开项目文件 GetOSVersion.sln。 设置配置（发布或调试） 构建解决方案。 $(SolutionDir)\Release 中有输出文件 如何使用 GetOSVersion...
VC++获取Windows系统的版本号和运行模式
03-17
内容索引:VC/C++源码,系统相关,版本号　VC++获取Windows操作系统的版本号和运行模式，因变量设置不同，这里检测到XP系统是Windows NT，其它参数都正常，包括补丁版本、内部版本号等。其实本程序个人觉得没什么实用性...
VB获取所有操作系统版本信息
12-15
在VB中获取所有可能的操作系统版本信息并不直接，因为这通常涉及遍历注册表或查询Windows API。Windows API函数`GetVersionEx`可以提供关于操作系统的详细信息，但需要使用P/Invoke技术将C++ API调用引入VB.NET项目...
VB.NET获取Windows 7操作系统信息.rar
07-10
VB.NET获取Windows 7操作系统信息，本程序获取的内容比较多，主要有：显示器分辨率、桌面文件夹路径、收藏夹路径、Application Data""路径"、Windows7当前登录的用户名、当前应用程序的路径、计算机IP和计算机全名、...
Windows获取操作系统信息
★匆匆★的专栏
04-27 484
http://www.oschina.net/code/snippet_54100_5403 #include #include #include #include #include #include using namespace std; string getSystemName() { SYSTEM_INFO info;
获取Windows系统版本号
Nero Zhang的博客
11-08 1473
GetVersionEx function 最好不要用这个API因为微软已经抛弃掉了，原话是这么说的： [GetVersionEx may be altered or unavailable for releases after Windows 8.1. Instead, use the Version Helper functions] 也就是从Win8.1开始不支持了，无论是Win8
获取WINDOWS系统版本的方法。。
shen_wei的专栏
10-27 1705
#include #pragma comment(lib, "netapi32.lib") WKSTA_INFO_100 *pWkstaInfo = NULL; int nVersion = 0; NET_API_STATUS nRes = NetWkstaGetInfo(NULL, 100, (LPBYTE *)&pWkstaInfo); if (nRes == NERR_Success)
获取windows系统详细版本号
supperFatter的博客
09-26 240
windows ver命令。
获取windows操作系统名称和版本
yu_sn0w的博客
04-01 2534
// GetSystemName.cpp : 定义控制台应用程序的入口点。 // #include "stdafx.h" #include #include #include #pragma comment(lib, "netapi32.lib") #define REG_K_OS_W L"SOFTWARE\\Microsoft\\Windows NT\\Cur
获取Windows系统版本号（转）
u012129783的博客
09-01 572
https://blog.csdn.net/sunflover454/article/details/51525179
C/C++ Windows API——执行进程
司马懿的西山居
10-21 3328
// ProcessDemo.cpp : Defines the entry point for the console application. //#include "stdafx.h" #include <Windows.h>#pragma comment(lib, "urlmon.lib")//URLDownloadToFileint main() { BOOL ret; /*
【Inno Setup】判别系统版本
少莫千华
02-14 4421
[Code] function IsXP32(): Boolean; var Version:TWindowsVersion; S:String; begin GetWindowsVersionEx(Version); S:= '主版本号:' + IntToStr( Version.Major ) + #13#10; S:= S+'副版本号:' + IntToStr( Versi
取得岂今为止最全面的Windows版本和IE版本以及32位和64位操作系统信息
chenjl1031的专栏
04-13 3713
本程序从法国网站（http://www.VBFrance.com）上下载，摘取了其中一部分发现：这是岂今为止最全面的Windows版本、IE版本、32和64位操作系统信息获取程序。我修正了其中InfoVersionWinStd过程中的错误，并增加了 Windows 8 的版本识别；同时将2个标准模块封装到了类模块中。本程序共2个类模块：WinSysInfo.cls，RegistryHandler。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值