Option Strict On
Imports System.Management

Dim mObjects As New ManagementObjectSearcher( _
  "\\.\root\cimv2", "SELECT * FROM Win32_OperatingSystem")
 
For Each objSWbemObject As ManagementObject In mObjects.Get()
  ' Beschreibung auslesen
  Dim sDescr As String = DirectCast( _
    objSWbemObject.GetPropertyValue("Description"), String)
  Debug.Print(sDescr)
 
  ' Beschreibung setzen
  Try
    objSWbemObject.SetPropertyValue("Description", "Neue Beschreibung")
    objSWbemObject.Put()
  Catch ex As Exception
    MsgBox(ex.Message)
  End Try
Next

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de