请将下列函数代码放到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