Here’s an easy way to get OS information using the Windows Management Instrument (WMI):
Private Sub getWindowsInfo() On Error Resume Next Dim strComputername As String Dim objWMIService As Object Dim objQrySetting As Object Dim objOS As Object strComputername = "." ' Local computer Set objWMIService =GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputername& "
ootcimv2") Set objQrySetting = objWMIService.ExecQuery("SELECT * FROMWin32_OperatingSystem") For Each objOS In objQrySetting MsgBox "OS Name: " & objOS.Name & vbCrLf & _ "Version: " & objOS.Version & vbCrLf & _ "Service Pack: " & objOS.ServicePackMajorVersion & "." &objOS.ServicePackMinorVersion & vbCrLf & _ "OS Manufacturer: " & objOS.Manufacturer & vbCrLf & _ "Windows Directory: " & objOS.WindowsDirectory & vbCrLf & _ "Locale: " & objOS.Locale Next ' Tidy up Set objWMIService = Nothing Set objQrySetting = Nothing Set objOS = NothingEnd Sub