Private Function GetValue(ByVal queryObj As ManagementObject, ByVal Name As _
      String)
        Try
            Return queryObj(Name)
        Catch
        End Try
        Return "[Null]"
    End Function

os_detail_dic.Add("Name", GetVal(queryObj, "Caption"))

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist