【转载】获取操作系统版本自定义函数

时　间:2023-10-09 09:17:25
作　者:金宇   ID：43  城市：江阴
摘　要:获取操作系统版本自定义函数GetOperatingSystem()
正　文:

      请将下列函数代码放到Access新增的模块中，然后在窗体中调用函数GetOperatingSystem()就可以获取当前的操作系统版本。

代   码:

Public Function GetOperatingSystem()
   Dim localHost       As String
   Dim objWMIService   As Variant
   Dim colOperatingSystems As Variant
   Dim objOperatingSystem As Variant
 
   On Error GoTo Err_Handler
 
   localHost = "." 'Technically could be run against remote computers, if allowed
   Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & localHost & "\root\cimv2")
   Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
 
   For Each objOperatingSystem In colOperatingSystems
       GetOperatingSystem = objOperatingSystem.Caption & " " & objOperatingSystem.Version
     '  Exit Function
   Next
 
  ' Debug.Print GetOperatingSystem
   
   'Determine if operating system is 32-bit or 64-bit
   '-------------------------------------------------
   GetOperatingSystem = GetOperatingSystem & " " & IsWin32OrWin64
   
   'Debug.Print GetOperatingSystem
   
Exit_Handler:
  ' On Error Resume Next
   Exit Function
 
Err_Handler:
   MsgBox "Error " & Err.Number & " in GetOperatingSystem procedure :             " & _
       "@" & Err.Description & "            @", vbCritical, "Program error"
   Resume Exit_Handler

End Function