安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

VBA获取操作系统的版本号(支持windows xp,windows 2003 ,win7 ,win10)

2017-09-17 09:06:00
zstmtony
原创
744

VBA获取操作系统的版本号(支持windows xp,windows 2003 ,win7 ,win10)


Public GetOsVersion() As String
    Dim objWMIService, colItems, objItem, strOSversion As String
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    For Each objItem In colItems
        strOSversion = objItem.Version
    Next
    Select Case Left(strOSversion, 3)
        Case "5.2": strOSversion = "Windows Server 2003"
        Case "5.0": strOSversion = "Windows 2000"
        Case "5.1": strOSversion = "Windows XP"
        Case "6.0": strOSversion = "windows vista"
        Case "6.1": strOSversion = "Win7"
        Case "6.2": strOSversion = "Win8"
        Case "6.3": strOSversion = "Win8.1"
        Case "10.": strOSversion = "Win10"
        Case Else: strOSversion = "i don't know"
    End Select
     GetOsVersion=strOSversion
End Sub
'其它获取系统版本的相关VB 代码 Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONONFO) As Long
Private Type OSVERSIONONFO
dwOSVersioninfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformld As Long
dwCSDVersion As String * 128
End Type
Public Function SystemVer() As Variant
Dim Osinfor As OSVERSIONONFO, StrOsName As String
Osinfor.dwOSVersioninfoSize = Len(Osinfor)
GetVersionEx Osinfor
Select Case Osinfor.dwPlatformld
       Case 0
            StrOsName = "Windows 32s"
       Case 1
          Select Case Osinfor.dwMinorVersion
                 Case 0
                      StrOsName = "Windows 95"
                 Case 10
                      StrOsName = "Windows 98"
                 Case 90
                      StrOsName = "Windows Mellinnium"
          End Select
       Case 2
          Select Case Osinfor.dwMajorVersion
                 Case 3
                      StrOsName = "WindowsNT 3.51"
                 Case 4
                      StrOsName = "WindowsNT 4.0"
                 Case 5
                      Select Case Osinfor.dwMinorVersion
                             Case 0
                                  StrOsName = "Windows 2000"
                             Case 1
                                  StrOsName = "Windows XP"
                             Case 2
                                  StrOsName = "Windows 2003"
                      End Select
                 Case 6
                      Select Case Osinfor.dwMinorVersion
                             Case 0
                                  StrOsName = "Windows Vista"
                             Case 1
                                  StrOsName = "Windows 7"
                      End Select
         End Select
       Case Else
            StrOsName = "未知系统版本"
       End Select
       SystemVer = StrOsName
End Function
Private Sub Command1_Click()
  MsgBox SystemVer
End Sub 
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.21
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
好多寿司注册 热血传奇吧 鹿岛鹿角vs柔佛fc 楚留香云从龙 3d杀号专家真正高手 2012巴列卡诺皇马评论 塔什干棉农VS吉达阿赫利直播 vr赛车彩票开奖记录 灵猴献瑞铜章什么价 萨索洛切沃