''' <summary>
  ''' Liefert True, wenn stumm geschaltet ist.
  ''' </summary>
  Function GetMute() As Boolean
    Dim ps As New ProcessStartInfo
    ps.FileName = "C:\Test\SoundVolumeView.exe"
    ps.Arguments = "/GetMute ""Lautsprecher"""
    ps.CreateNoWindow = True
    Dim p = Process.Start(ps)
    p.WaitForExit()
    Return p.ExitCode = 1
  End Function