Try
            Dim query As ObjectQuery
            query = New ObjectQuery( _
                "SELECT * FROM Win32_OperatingSystem")
            Dim searcher As ManagementObjectSearcher
            searcher = New ManagementObjectSearcher(scope, query)
 
            For Each queryObj As ManagementObject In searcher.Get()
    Dim os_detail_dic As New Dictionary(Of String, String)
     os_detail_dic.Add("Name", queryObj("Caption"))
     os_detail_dic.Add("Build", queryObj("BuildNumber")
     os_detail_dic.Add("Architektur",queryObj("OSArchitecture"))
     os_detail_dic.Add("Lizensnummer", queryObj("SerialNumber"))
     os_detail_dic.Add("Service Pack", queryObj("ServicePackMajorVersion"))
     data.Add("Betriebssystem", os_detail_dic)
            Next
Catch err As ManagementException
MessageBox.Show("Folgender Fehler ist beim Auslesen der OS Daten aufgetreten: " _
  & err.Message)
End Try