Sub Test()
Dim objWMI As Object
Dim OSs As Object
Dim OS As Object
Dim t As String
Set objWMI = GetWMIService
Set OSs = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
With Sheets(1)
For Each OS In OSs
Cells(1, 1) = "BootDevice :"
Cells(1, 2) = OS.BootDevice
Cells(2, 1) = "BuildNumber :"
Cells(2, 2) = OS.BuildNumber
Cells(3, 1) = "BuildType :"
Cells(3, 2) = OS.BuildType
Cells(4, 1) = "OS.Caption :"
Cells(4, 2) = OS.Caption
t = OS.Caption
Debug.Print OS.CodeSet
Debug.Print OS.CountryCode
Debug.Print OS.CreationClassName
Debug.Print OS.CSCreationClassName
Debug.Print OS.CSDVersion
Debug.Print OS.CSName
Debug.Print OS.CurrentTimeZone
Debug.Print OS.DataExecutionPrevention_Available
Debug.Print OS.DataExecutionPrevention_32BitApplications
Debug.Print OS.DataExecutionPrevention_Drivers
Debug.Print OS.DataExecutionPrevention_SupportPolicy
Debug.Print OS.Debug
Debug.Print OS.Description
Debug.Print OS.Distributed
Debug.Print OS.EncryptionLevel
Debug.Print OS.ForegroundApplicationBoost
Debug.Print OS.FreePhysicalMemory
Debug.Print OS.FreeSpaceInPagingFiles
Debug.Print OS.FreeVirtualMemory
Debug.Print OS.InstallDate
Debug.Print OS.LargeSystemCache
Debug.Print OS.LastBootUpTime
Debug.Print OS.LocalDateTime
Debug.Print OS.Locale
Debug.Print OS.Manufacturer
Debug.Print OS.MaxNumberOfProcesses
Debug.Print OS.MaxProcessMemorySize
'Debug.Print OS.MUILanguages ' not supported by Windows XP
Debug.Print OS.Name
Debug.Print OS.NumberOfLicensedUsers
Debug.Print OS.NumberOfProcesses
Debug.Print OS.NumberOfUsers
'Debug.Print OS.OperatingSystemSKU ' not supported by Windows XP
Debug.Print OS.Organization
'Debug.Print OS.OSArchitecture ' not supported by Windows XP
Debug.Print OS.OSLanguage
Debug.Print OS.OSProductSuite
Debug.Print OS.OSType
Debug.Print OS.OtherTypeDescription
'Debug.Print OS.PAEEnabled ' not supported by Windows XP
Debug.Print OS.PlusProductID
Debug.Print OS.PlusVersionNumber
Debug.Print OS.Primary
Debug.Print OS.ProductType
Debug.Print OS.RegisteredUser
Debug.Print OS.SerialNumber
Debug.Print OS.ServicePackMajorVersion
Debug.Print OS.ServicePackMinorVersion
Debug.Print OS.SizeStoredInPagingFiles
Debug.Print OS.Status
Debug.Print OS.SuiteMask
Debug.Print OS.SystemDevice
Debug.Print OS.SystemDirectory
Debug.Print OS.SystemDrive
Debug.Print OS.TotalSwapSpaceSize
Debug.Print OS.TotalVirtualMemorySize
Debug.Print OS.TotalVisibleMemorySize
Debug.Print OS.Version
Debug.Print OS.WindowsDirectory
Next OS
End With
MsgBox t, vbInformation
If t Like "*Microsoft Windows XP*" Then
Sheets("XP Pro").Activate
Else
Sheets("WIN 7").Activate
End If
End Sub