Поделиться через


Использование системного монитора

Системный монитор (SYSMON) можно включить в любое приложение, поддерживающее элементы ActiveX®. Например, можно включить SYSMON в приложение Microsoft Visual Basic или в HTML-документ.

В следующем примере показано, как включить SYSMON в HTML-документ. В примере используется VBScript для добавления счетчиков, значения которых извлекаются с локального компьютера, изменяются некоторые свойства SYSMON, управляющие отображением монитора, и обрабатываются события OnCounterAdd. В примере используется подстановочный знак (*) для добавления всех экземпляров счетчика процессов.

<HTML>
<BODY BGCOLOR=#C0C0C0>

<SCRIPT LANGUAGE="VBScript">
  Sub Monitor_OnCounterAdded(index)
    Monitor.Counters.Item(1).Width = 8
  End Sub
</Script>
<OBJECT
  CLASSID="clsid:C4D2D8E0-D1DD-11CE-940F-008029004347"
  ID="Monitor"
  HEIGHT=80%
  WIDTH=100%>
</OBJECT>

<SCRIPT LANGUAGE="VBScript">
  Sub Window_OnLoad
    On Error Resume Next
    Monitor.ShowValueBar = False
    Monitor.ShowHorizontalGrid = True
    Monitor.Counters.Add("\Process(*)\% Processor Time")
    Monitor.DisplayType=sysmonLineGraph
    Monitor.GraphTitle="System Performance Overview"
  End Sub
</SCRIPT>

</BODY>
</HTML>