VB及VBA獲取操作系統(tǒng)版本的通用模塊
- 2017-09-19 08:00:00
- zstmtony 原創(chuàng)
- 3706
VB及VBA獲取操作系統(tǒng)版本的通用模塊
Option Explicit
Public OSNameAs String'操作系統(tǒng)名稱（簡稱），方便程序控制時根據(jù)操作系統(tǒng)取值
Public Type OSVERSIONINFO
dwOSVersionInfoSize AsLong
dwMajorVersion AsLong
dwMinorVersion AsLong
dwBuildNumber AsLong
dwPlatformId AsLong
szCSDVersion AsString * 128
wServicePackMajor AsInteger
wServicePackMinor AsInteger
wSuiteMask AsInteger
wProductType AsByte
wReserved AsByte
End Type
Public Declare Function GetVersionExLib "kernel32"Alias "GetVersionExA" (lpVersionInformationAs OSVERSIONINFO)As Long
' 獲得 Windows 操作系統(tǒng)的名稱，returnType決定返回的方式，值為0時，返回簡稱，否則返回全稱
Public Function GetWindowsVersion(ByVal returnTypeAs Integer)As String
Dim ver As OSVERSIONINFO, retLngAs Long, osAs String
ver.dwOSVersionInfoSize =Len(ver)
GetVersionEx ver
' retLng = GetVersionEx(ver)
' If retLng = 0 Then
' os = "Unknown System Version!"
' Exit Function
' End If
With ver
SelectCase .dwPlatformId
Case1
SelectCase .dwMinorVersion
Case0
If returnType= 0Then
os ="Windows 95"
Else
SelectCase .szCSDVersion
Case"C"
os ="Windows 95 OSR2"
Case"B"
os ="Windows 95 OSR2"
CaseElse
os ="Windows 95"
EndSelect
EndIf
Case10
If returnType= 0Then
os ="Windows 98"
Else
SelectCase .szCSDVersion
Case"A"
os ="Windows 98 SE"
CaseElse
os ="Windows 98"
EndSelect
EndIf
Case90
If returnType= 0Then
os ="Windows Me"
Else
os ="Windows Millennium Edition"
EndIf
EndSelect
Case2
SelectCase .dwMajorVersion
Case3
os ="Windows NT 3.51"
Case4
os ="Windows NT 4.0"
Case5
SelectCase .dwMinorVersion
Case0
If returnType= 0Then
os ="Windows 2000"
Else
SelectCase .wSuiteMask
Case&H80
os ="Windows 2000 Data center"
Case&H2
os ="Windows 2000 Advanced"
CaseElse
os ="Windows 2000"
EndSelect
EndIf
Case1
If returnType= 0Then
os ="Windows XP"
Else
SelectCase .wSuiteMask
Case&H0
os ="Windows XP Professional"
Case&H200
os ="Windows XP Home"
CaseElse
os ="Windows XP"
EndSelect
EndIf
Case2
If returnType= 0Then
os ="Windows Server 2003"
Else
SelectCase .wSuiteMask
Case&H2
os ="Windows Server 2003 Enterprise"
Case&H80
os ="Windows Server 2003 Data center"
Case&H400
os ="Windows Server 2003 Web Edition"
Case&H0
os ="Windows Server 2003 Standard"
' Case &H112
' os = "Windows Server 2003 R2 Enterprise"
Case Else
os ="Windows Server 2003"
EndSelect
EndIf
EndSelect
If returnType<> 0And .wServicePackMajor> 0Then
os = os& " Service Pack" & .wServicePackMajor& IIf(.wServicePackMinor> 0,"."& .wServicePackMinor, vbNullString)
EndIf
Case6
If returnType<> 0Then
SelectCase .wProductType
Case&H6
os ="Business Edition"
Case&H10
os ="Business Edition (N)"
Case&H12
os ="Cluster Server Edition"
Case&H8
os ="Server Datacenter Edition (full installation)"
Case&HC
os ="Server Datacenter Edition (core installation)"
Case&H4
os ="Enterprise Edition"
Case&H1B
os ="Enterprise Edition (N)"
Case&HA
os ="Server Enterprise Edition (full installation)"
Case&HE
os ="Server Enterprise Edition (core installation)"
Case&HF
os ="Server Enterprise Edition for Itanium-based Systems"
Case&H2
os ="Home Basic Edition"
Case&H5
os ="Home Basic Edition (N)"
Case&H3
os ="Home Premium Edition"
Case&H1A
os ="Home Premium Edition (N)"
Case&H13
os ="Home Server Edition"
Case&H18
os ="Server for Small Business Edition"
Case&H9
os ="Small Business Server"
Case&H19
os ="Small Business Server Premium Edition"
Case&H7
os ="Server Standard Edition (full installation)"
Case&HD
os ="Server Standard Edition (core installation)"
Case&H8
os ="Starter Edition"
Case&H17
os ="Storage Server Enterprise Edition"
Case&H14
os ="Storage Server Express Edition"
Case&H15
os ="Storage Server Standard Edition"
Case&H16
os ="Storage Server Workgroup Edition"
Case&H1
os ="Ultimate Edition"
Case&H1C
os ="Ultimate Edition (N)"
Case&H0
os ="An unknown product"
Case&HABCDABCD
os ="Not activated product"
Case&H11
os ="Web Server Edition"
EndSelect
EndIf
SelectCase .dwMinorVersion
Case0
SelectCase .wProductType
Case3
If returnType= 0Then
os ="Windows Server 2008"
Else
os ="Windows Server 2008" & os
EndIf
CaseElse
If returnType= 0Then
os ="Windows Vista"
Else
os ="Windows Vista " & os
EndIf
EndSelect
Case1
SelectCase .wProductType
Case3
If returnType= 0Then
os ="Windows Server 2008 R2"
Else
os ="Windows Server 2008 R2"& os
EndIf
CaseElse
If returnType= 0Then
os ="Windows 7"
Else
os ="Windows 7 " & os
EndIf
EndSelect
EndSelect
If returnType<> 0And .wServicePackMajor> 0Then
os = os& " Service Pack" & .wServicePackMajor& IIf(.wServicePackMinor> 0,"."& .wServicePackMinor, vbNullString)
EndIf
EndSelect
CaseElse
os ="Unknown System Version!"
End Select
If returnType<> 0Then os = os &" [Version: " & .dwMajorVersion& "."& .dwMinorVersion& "."& .dwBuildNumber& "]"
End With
GetWindowsVersion = os
End Function
'返回獲取本地連接屬性的方式
'Vista及Win7下 GetDetailsOf(FolderItem, 2) 獲取的值類似于：“Marvell Yukon 88E8056 PCI-E Gigabit Ethernet Controller”，對應(yīng)XP、2000及2003下的GetDetailsOf(FolderItem, 3)
'Vista及Win7下 GetDetailsOf(FolderItem, 1) 獲取的值為本地連接狀態(tài)，為“網(wǎng)絡(luò)”時說明正常，對應(yīng)XP、2000及2003下的GetDetailsOf(FolderItem, 2)
Public Function getAdapterStatusType()As Integer
Select Case OSName
Case "Windows Vista","Windows Server 2008","Windows 7","Windows Server 2008 R2"
getAdapterStatusType =2
Case Else
getAdapterStatusType =3
End Select
End Function
'返回獲取本地連接屬性的方式
'Vista及Win7下 GetDetailsOf(FolderItem, 2) 獲取的值類似于：“Marvell Yukon 88E8056 PCI-E Gigabit Ethernet Controller”，對應(yīng)XP、2000及2003下的GetDetailsOf(FolderItem, 3)
'Vista及Win7下 GetDetailsOf(FolderItem, 1) 獲取的值為本地連接狀態(tài)，為“網(wǎng)絡(luò)”時說明正常，對應(yīng)XP、2000及2003下的GetDetailsOf(FolderItem, 2)
Public Function getAdapterStatusType()As Integer
Select Case OSName
Case "Windows Vista","Windows Server 2008","Windows 7","Windows Server 2008 R2"
getAdapterStatusType =2
Case Else
getAdapterStatusType =3
End Select
End Function
分享
Access數(shù)據(jù)庫自身
- office課程播放地址及課程明細(xì)
- Excel Word PPT Access VBA等Office技巧學(xué)習(xí)平臺
- 將( .accdb) 文件格式數(shù)據(jù)庫轉(zhuǎn)換為早期版本(.mdb)的文件格式
- 將早期的數(shù)據(jù)庫文件格式（.mdb）轉(zhuǎn)換為 （.accdb） 文件格式
- KB5002984：配置 Jet Red Database Engine 數(shù)據(jù)庫引擎和訪問連接引擎以阻止對遠(yuǎn)程數(shù)據(jù)庫的訪問（remote table)
- Access 365 /Access 2019 數(shù)據(jù)庫中哪些函數(shù)功能和屬性被沙箱模式阻止（如未啟動宏時）
- Access Runtime(運(yùn)行時)最全的下載(2007 2010 2013 2016 2019 Access 365)
Access VBA函數(shù)模塊
Access Activex第三方控件
- Activex控件或Dll 在某些電腦無法正常注冊的解決辦法(regsvr32注冊時卡?。?/a>
- office使用部分控件時提示“您沒有使用該ActiveX控件許可的問題”的解決方法
- RTF文件（富文本格式）的一些解析
- Access樹控件（treeview) 64位Office下出現(xiàn)橫向滾動條不會自動定位的解決辦法
- Access中國樹控件 在win10電腦 節(jié)點(diǎn)行間距太小的解決辦法
- EXCEL 2019 64位版（Office 2019 64位）早就支持64位Treeview 樹控件 ListView列表等64位MSCOMMCTL.OCX控件下載
- VBA或VB6調(diào)用WebService（直接Post方式）并解析返回的XML
Access ADP Sql Server等
- 早期PB程序連接Sqlserver出現(xiàn)錯誤
- MMC 不能打開文件C:/Program Files/Microsoft SQL Server/80/Tools/Binn/SQL Server Enterprise Manager.MSC 可能是由于文件不存在，不是一個MMC控制臺，或者用后來的MMC版
- sql server連接不了的解決辦法
- localhost與127.0.0.1區(qū)別
- Roych的淺談數(shù)據(jù)庫開發(fā)系列（Sql Server)
- sqlserver 自動備份對備份目錄沒有存取權(quán)限的解決辦法
- 安裝Sql server 2005 express 和SQLServer2005 Express版企業(yè)管理器 SQLServer2005_SSMSEE
文章分類
聯(lián)系我們
| 聯(lián)系人： | 王先生 |
|---|---|
| Email： | 18449932@qq.com |
| QQ： | 18449932 |
| 微博： | officecn01 |
