Private Sub SetComputerDescription(ByVal ComputerDescription As String)
        Dim objSWbemServices As Object = GetObject("winmgmts:\\.\root\cimv2")
        For Each objSWbemObject As Object In objSWbemServices.InstancesOf( _
          "Win32_OperatingSystem")
            objSWbemObject.Description = ComputerDescription
            On Error Resume Next
            objSWbemObject.Put_()
            If Err.Number <> 0 Then
                MsgBox(Err.Number & ": " & Err.Description)
            End If
        Next
    End Sub

danke schonmal

Oo