Les comparto una manera muy sencilla y práctica para obtener el sistema operativo de Windows con una rutina de VBA.
'****************************************' ' Email: obed.cruz@exceltrabajaporti.com ' ' www.exceltrabajaporti.com ' ' Excel VBA Developer ' '****************************************' Option Explicit Sub SistemaOperativo() Dim WmObj As Object, objTarget As Object, Obj As Object Set WmObj = GetObject("WinMgmts:{impersonationLevel=impersonate}") Set objTarget = WmObj.ExecQuery("Select * from Win32_OperatingSystem") For Each Obj In objTarget MsgBox Left(Obj.Name, InStr(1, Obj.Name, "|") - 1) & vbCrLf & Obj.Version Next End Sub