实现服务器性能指标监控

我是多个应用系统的管理员，需要管理多台基于.NET的服务器，为了方便我对各个服务器进行硬件性能指标的监控，我编写了一个程序，每隔10秒采样一次服务器各项硬件性能指标，并把相应的指标写入远程SQL Server2000。然后在一个页面读取该数据库，即可同时获取各台服务器各项性能指标。页面每隔10秒刷新一次。

改进方向：1、在监控页面加入无刷新技术；2、性能指标达到一定的伐值，触发短信通知；3、加入IIS Head头信息返回，即可获取IIS状态。

硬件监控代码如下（VS2003）：

Imports System
Imports System.Management
Imports System.Environment

Public Class Form1
    Inherits System.Windows.Forms.Form
    Private _oPerformanceCounter As PerformanceCounter

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Interval = 5000
        Timer1.Enabled = True
    End Sub

    Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Disposed
        Timer1.Enabled = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Dispose()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        '获取CPU占用率
        _oPerformanceCounter = New PerformanceCounter("Processor", "% Processor Time", "_Total")
        Dim _oA As CounterSample = _oPerformanceCounter.NextSample
        System.Threading.Thread.Sleep(1000)
        Dim _oB As CounterSample = _oPerformanceCounter.NextSample
        Dim _nVal As Single
        _nVal = CounterSample.Calculate(_oA, _oB)
        Dim _s As String
        _s = _nVal.ToString() + "%"
        Label10.Text = _s
        '----------

        '----获取ASP.NET占用的内存总数
        Label12.Text = Getaspnetn()
        '------------------

        '获取可用内存数量
        Dim myMemory As New PerformanceCounter
        myMemory.CategoryName = "Memory"
        myMemory.CounterName = "Available MBytes"
        Label7.Text = CInt(myMemory.NextValue().ToString()) & "MB"
        '---------------------

        '--获取总内存数量
        Dim seacher As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_LogicalMemoryConfiguration")
        For Each obj As ManagementBaseObject In seacher.Get
            Label6.Text = CStr(CInt(obj("TotalPhysicalMemory").ToString() / 1024)) & "MB"
            Label14.Text = obj("TotalVirtualMemory").ToString
        Next

        Label16.Text = Environment.MachineName   '获取计算机名
        Label18.Text = Environment.OSVersion.ToString    '获取操作系统
        Label20.Text = Environment.SystemDirectory    '获取系统目录
        Label22.Text = CStr(CInt((Environment.TickCount / 1000) / 60)) & "分钟"
        Label24.Text = Environment.UserName

        '--获取CPU信息

        Dim CPU_searcher As New ManagementObjectSearcher("select * from Win32_Processor") '
        For Each obj As ManagementBaseObject In CPU_searcher.Get
            Label9.Text = Trim(obj("Name").ToString())
        Next
        '------

        '获取主板信息
        Dim board_searcher As New ManagementObjectSearcher("select * from Win32_baseboard") '
        For Each obj As ManagementBaseObject In board_searcher.Get
            Label26.Text = Trim(obj("Manufacturer").ToString())
            Label28.Text = Trim(obj("Product").ToString())
        Next
        '----

        '--获取内存使用率

    End Sub

    Private Function Getaspnetn() As String
        Dim temp As String
        Try
            temp = (CType(System.Diagnostics.Process.GetCurrentProcess.WorkingSet, Double) / 1048576).ToString("N2") & "M"
        Catch ex As Exception
            temp = "未知"
        End Try
        Return Trim(temp)
    End Function
End Class