Squirrel — Sun, 21 May 2006 03:41:00 GMT

最�q�看到浪潮的猎鹰服务器管理��Y�Ӟ��其中可以对远�E�服务器的CPU和内存��用率�q�行实时监视�Q�就像�Q务管理器那样�l�制一个报表。我推断他要么是使用SNMP协议从客��h��拿到数据之后在传递给��理器，要么��是使用Windows提供的某些System Performence COM�l��g来抓数据�?br /> 查MSDN�Q�上有一个System Monitor的例子。居然是用VBScript来调一调控刉��?〉管理工�?〉性能-〉系�l�监视器。既然是用HTML嵌VBScript�Q�那转换为应用程序到也方便，��文件后�~�名改�?hta�Q�即以HTML Application方式打开�Q�由MSHTA.exe来解释执行就可以了�?br /> 下面的程序就是从命��o(h��)行中获取要监视的计算机IP地址后，启动System Monitor�Q�监视之�?br />

<HTML>
<HEAD>
<HTA:APPLICATION ID="oHTA"
    APPLICATIONNAME="myApp">
   <meta http-equiv="Content-Type" content="text/html; charset=gb2312" >
   HEAD>
    <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%"
            VIEWASTEXT>
        OBJECT>
        <SCRIPT LANGUAGE="VBScript">

  Sub Window_OnLoad
    On Error Resume Next
    Monitor.ShowValueBar = True
    Monitor.ShowHorizontalGrid = True

    Arg = Trim( oHTA.commandLine )

    IPArgPos = InStr(2, Arg, """", 1)
    IPArg = Trim( right( Arg, len(Arg)-IPArgPos) )

    IPStrings = split( IPArg, " ", -1, 1 )

    for i = 0 to uBound(IPStrings)
    Monitor.Counters.Add( "\\" + IPStrings(i) + "\Processor(_Total)\% Processor Time" )
    Monitor.Counters.Add( "\\" + IPStrings(i) + "\Memory\Available MBytes" )
    Monitor.Counters.Add( "\\" + IPStrings(i) + "PhysicalDisk(_Total)\Avg. Disk Queue Length" )
    Monitor.Counters.Add( "\\" + IPStrings(i) + "\LogicalDisk(_Total)\% Free Space" )
    Monitor.Counters.Add( "\\" + IPStrings(i) + "\Network Interface(*)\Bytes Total/sec" )
    Next

    'Monitor.Counters.Add( "\Process(*)\% Processor Time")
    Monitor.DisplayType=sysmonLineGraph
    Monitor.GraphTitle= "计算机系�l�性能监视"
  End Sub

        SCRIPT>
    BODY>
HTML>

不知道大家有没有使用�q�COM�l��g��这��L(f��ng)��东西嵌到C++�E�序中。如果有的话�Q�不妨发表上来看看�?img src ="http://www.shnenglu.com/Squirrel/aggbug/7458.html" width = "1" height = "1" />

Squirrel 2006-05-21 11:41 发表评论

亚洲精品综合,国产亚洲欧洲997久久综合,亚洲精品免费网站