Access - Verificar versiones de windows

' Unesdoc.unesco.org unesdoc.unesco.org -------------------------------------- 

 'Procedimiento: getOperatingSystem 

 'Autor: Daniel Pineault, Consultores CARDA Inc. 

 'Sitio web: http://www.cardaconsultants.com 

 'Propósito: devolver los detalles activos del sistema operativo 

 'Copyright: Lo siguiente puede ser alterado y reutilizado como desee siempre y cuando 

 'Copyright se deja sin cambios (incluyendo Autor, Sitio Web y 

 ' 

 ' Revisión histórica: 

 'Rev Fecha (aaaa / mm / dd) Descripción 

 '************************************************* ************************************* 

 '1 2012-Sep-27 Lanzamiento inicial 

 'Unesdoc.unesco.org unesdoc.unesco.org -------------------------------------- 

 Public function getOperatingSystem ()

 Dim localHost As String

 Dim objWMIService As Variant

 Dim colOperatingSystems as variant

 Dim objOperatingSystem as variant

 On Error goto error_Handler

 LocalHost = "."  'Técnicamente se podría ejecutar contra equipos remotos, si se permite 

'error

 Set objWMIService = GetObject ("winmgmts: {impersonationLevel = impersonate}! \\" & localHost & "\ root \ cimv2")

'error

 Set colOperatingSystems = objWMIService.ExecQuery ("Select * of Win32_OperatingSystem")

 For each ObjOperaciónSystem in colOperatingSystems

 GetOperatingSystem = objOperatingSystem.Caption & "" & objOperatingSystem.Version

 Exit Function

 Next

 Error_Handler_Exit:

 On Error Resume Next

 Exit Function

 Error_Handler:

 MsgBox "Se ha producido el siguiente error."  & VbCrLf & vbCrLf & _

 "Número de error:" & Err.Number & vbCrLf & _

 "Origen del error: getOperatingSystem" & vbCrLf & _

 "Error Descripción:" & Err.Description, _

 VbCritical, "¡Se ha producido un error!"

 Resume Error_Handler_Exit

 End Function