用于查找Windows版本名称和Service Pack的vbscript

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery("SELECT * FROM Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
    strVersion = objOperatingSystem.Version
    strServicePack = objOperatingSystem.ServicePackMajorVersion

    Select Case strVersion
        Case "5.0"
            strVersionName = "Windows 2000"
        Case "5.1"
            strVersionName = "Windows XP"
        Case "5.2"
            strVersionName = "Windows Server 2003"
        Case "6.0"
            strVersionName = "Windows Vista"
        Case "6.1"
            strVersionName = "Windows 7"
        Case "6.2"
            strVersionName = "Windows 8"
        Case "6.3"
            strVersionName = "Windows 8.1"
        Case "10.0"
            strVersionName = "Windows 10"
        Case Else
            strVersionName = "Unknown"
    End Select

    WScript.Echo "Windows Version: " & strVersionName
    WScript.Echo "Service Pack: " & strServicePack
Next