资源监控_自个儿编写一个nmon

资源监控_自己编写一个nmon

监控资源是测试工作中非常常见的事情，悲催的是每年都会临到用时又折腾一下。因为操作系统不断的在改变，监控的工具也在不断的随着改变。要么去搞搞rpc，然后用loadrunner连接上系统来监控，要么就搞个类似nmon一类的工具来监控，生成漂亮的图表。等到多年以后，发现其实真正需要监控的参数就那么几个，cpu、mem、disk和net，再多了未必用得到，还消耗资源，比如监控磁盘读写队列，有用吗？没用吗？要是disk增长很迅速，cpu占用大，大多数人都会意识到磁盘读写的很厉害了，所以监控磁盘读写队列未必那么有用，够用就好了。使用nmon后，觉得挺省心的，不过就有个不爽的地方，对系统是监控了一大堆，但是对进程没监控。

基于上面的两个需求，一是监控足够少的参数，二是对进程要有监控，所以搞了一个我的nmon。说起来很简单，就是以脚本生成一大堆的csv，然后使用一个vba脚本汇总生成excel文件，同时生成图表。

好了，来介绍一下mynmon吧，在ubuntu下测试通过，vba脚本在office2007下测试通过。不过我还是没太足的信心，欢迎大家帮忙测试一下。

脚本：mynmon.sh：

脚本包括两部分：

一部分是对系统的CPU,NET,MEM,DISK进行的监控

另一部分是对参数中的进程列表进行的监控，细节好像也没啥好说的了，大家自己看吧

另：调试信息的是顶头两个#的行，需要开启调试信息的时候，就直接vi文件，使用

:%s/^##// 替换掉，要关闭调试信息，就把顶头的echo加上两个#

#Two parts: system & process

#usage:./mynmon.sh interval "processname1 processname2 processname3..."

SLEEP_TIME=$1

P_LIST=$2

OUT1="SYS.CSV"

OUT2TMP=".CSV"

OUT2=""

S1=""

STMP1=""

S2=""

STMP2=""

PID=""

rm *.CSV

#system resource

S1="NETIN(k),NETOUT(k),DISK USED(k),CPU 1MIN LOAD,MEM FREE(k)\n"

printf "$S1">$OUT1

while :

#1.network

STMP1=`/sbin/ifconfig eth0|sed -n "8"p|awk '{print $2}'|awk -F: '{print $2}'`

##echo "NET IN:"$STMP1

STMP1=`echo $STMP1"/1000"|bc`

S1="$STMP1,"

STMP1=`/sbin/ifconfig eth0|sed -n "8"p|awk '{print $6}'|awk -F: '{print $2}'`

##echo "NET OUT:"$STMP1

STMP1=`echo "$STMP1/1000"|bc`

S1="$S1$STMP1,"

#2.disk

STMP1=`df --total|grep total|awk '{print $3}'`

##echo "DISK:"$STMP1

S1="$S1$STMP1,"

#3.cpu one minute load

STMP1=`uptime|awk -F, '{print $4}'|awk '{print $3}'`

##echo "CPU:"$STMP1

S1="$S1$STMP1,"

#4.mem free

STMP1=`vmstat 1 1|sed -n '3p'|awk '{print $4}'`

##echo "MEM:"$STMP1

S1="$S1$STMP1\n"

##echo "$S1"

printf "$S1">>$OUT1

#process resource

for p in $P_LIST

OUT2="$p""_""$OUT2TMP"

##echo "PROCESS:$p OUT2:$OUT2"

if [ -f "$OUT2" ]

then

else

printf "CPU LOAD,MEM(m)\n">"$OUT2"

#1.get pid

PID=`ps -ef|grep $p|grep -v grep|grep -v mynmon|awk '{print $2}'|sed -n '1p'`

if [ "-$PID" = "-" ]

then

{

echo "The process <$p> does not exist."

echo "The process <$p> does not exist." >$OUT2

}

else

{

#1.CPU

STMP2=`ps -p $PID -o pcpu |grep -v CPU | awk '{print $1}'`

##echo "PROCESS $p CPU:"$STMP2

S2="$STMP2,"

#2.MEM

STMP2=`ps -o rss -p $PID|grep -v RSS`

STMP2=`echo "$STMP2/1000"|bc`

##echo "PROCESS $p MEM:$STMP2"

S2="$S2$STMP2"

##echo "$S2"

printf "$S2\n">>"$OUT2"

}

done

sleep $SLEEP_TIME

done

启动方式：

nohup ./mynmon.sh 120 “key1 key2 key3 key4”

处理脚本：mynmonlog.xls：

使用方法：

资源监控_自个儿编写一个nmon

001.jpg

算法：

1.新建excel文件；

2.寻找需要处理目录下的所有csv文件，根据<目录名_文件名>，给excel添加sheet，顺带删除了缺省的sheet1，sheet2和sheet3；

3.打开csv文件，把内容粘贴进sheet中；

4.SYS文件单独生成：(netin，netout和net),cpu,mem free和chart；

5.WIN文件单独生成：(netin，netout和net),cpu,mem free和chart；

6.其他文件生成cpu和mem free的chart；

7.保存为配置的结果文件

Private Declare Function OpenClipboard Lib "user32" (ByVal Hwnd As Long) As Long

Private Declare Function CloseClipboard Lib "user32" () As Long

Private Declare Function EmptyClipboard Lib "user32" () As Long

Sub EraseClipboard()

If (OpenClipboard(0&)) Then

Call EmptyClipboard

Call CloseClipboard

End If

End Sub

Sub Main()

Dim objExcel As Excel.Application

Dim Excelbook As Workbook

Dim Excelsheet As Worksheet

Dim strXls

Dim objExcel1 As Excel.Application

Dim Csvbook As Workbook

Dim Csvsheet As Worksheet

Dim fso, f, f1, fc, myFile

Dim strDoFolder, strSubFolder, strDoFile

Dim lngCnt, lngI

Dim g As ChartObject

Dim dt1, dt2

dt1 = Now

strDoFolder = ThisWorkbook.Path & "\" & ThisWorkbook.ActiveSheet.Cells(3, 2).Value & "\"

strXls = ThisWorkbook.Path & "\" & ThisWorkbook.ActiveSheet.Cells(4, 2).Value

'Debug.Print strDoFolder

'Debug.Print strXls

Set objExcel = CreateObject("Excel.Application")

Set Excelbook = objExcel.Workbooks.Add '新建EXCEL文件

objExcel.Visible = True

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(strXls) Then

fso.DeleteFile strXls, True

End If

Set f = fso.GetFolder(strDoFolder)

Set fc = f.SubFolders

For Each f1 In fc

strSubFolder = strDoFolder & f1.Name

If f1.Files.Count > 0 Then

For Each myFile In f1.Files

strDoFile = strSubFolder & "\" & myFile.Name

'DEBUG.PRINT UCase(fso.GetExtensionName(strDoFile)) & vbCrLf & strDoFile

If UCase(fso.GetExtensionName(strDoFile)) = "CSV" Then

Set Excelsheet = Excelbook.Worksheets.Add '添加工作页

Excelsheet.Name = Left(f1.Name & "_" & fso.GetBaseName(strDoFile), 30)

Set objExcel1 = CreateObject("Excel.Application")

Set Csvbook = objExcel1.Workbooks.Open(strDoFile) '打开CSV文件

Set Csvsheet = Csvbook.Worksheets(1) '取CSV文件的sheet

objExcel1.Visible = True

Csvsheet.Activate

Csvsheet.Cells.Select

objExcel1.Selection.Copy

Excelsheet.Activate

Excelsheet.Cells(1, 1).Select

Excelsheet.Paste

'对于不同的SYS,WIN,其他进程的监控结果不同的处理

If UCase(Left(fso.GetBaseName(strDoFile), 3)) = "SYS" Then

lngCnt = Excelsheet.UsedRange.Rows.Count

Excelsheet.Cells(1, 6).Value = "NETIN(K)"

Excelsheet.Cells(1, 7).Value = "NETOUT(K)"

Excelsheet.Cells(1, 8).Value = "NET(K)"

For lngI = 2 To lngCnt - 1

Excelsheet.Cells(lngI, 6).Value = Excelsheet.Cells(lngI + 1, 1).Value - Excelsheet.Cells(lngI, 1).Value

Excelsheet.Cells(lngI, 7).Value = Excelsheet.Cells(lngI + 1, 2).Value - Excelsheet.Cells(lngI, 2).Value

Excelsheet.Cells(lngI, 8).Value = Excelsheet.Cells(lngI, 6).Value + Excelsheet.Cells(lngI, 7).Value

Set g = Excelsheet.ChartObjects.Add(400, 10, 400, 250)

With g.Chart

.ChartType = xlLine

.SetSourceData Source:=Excelsheet.Range("$F:$H")

End With

Set g = Excelsheet.ChartObjects.Add(450, 60, 400, 250)

With g.Chart

.ChartType = xlLine

.SetSourceData Source:=Excelsheet.Range("$D:$D")

End With

Set g = Excelsheet.ChartObjects.Add(500, 110, 400, 250)

With g.Chart

.ChartType = xlLine

.SetSourceData Source:=Excelsheet.Range("$E:$E")

End With

ElseIf UCase(Left(fso.GetBaseName(strDoFile), 3)) = "WIN" Then

Set g = Excelsheet.ChartObjects.Add(450, 60, 400, 250)

With g.Chart

.ChartType = xlLine

.SetSourceData Source:=Excelsheet.Range("$B:$C")

End With

Set g = Excelsheet.ChartObjects.Add(500, 110, 400, 250)

With g.Chart

.ChartType = xlLine

.SetSourceData Source:=Excelsheet.Range("$G:$G")

End With

Else

Set g = Excelsheet.ChartObjects.Add(450, 60, 400, 250)

With g.Chart

.ChartType = xlLine

.SetSourceData Source:=Excelsheet.Range("$A:$A")

End With

Set g = Excelsheet.ChartObjects.Add(500, 110, 400, 250)

With g.Chart

.ChartType = xlLine

.SetSourceData Source:=Excelsheet.Range("$B:$B")

End With

End If

'清空剪切板

Call EraseClipboard

Csvbook.Close SaveChanges:=False

Set Csvsheet = Nothing

Set Csvbook = Nothing

Set objExcel1 = Nothing

Else

End If

Excelbook.Worksheets("Sheet1").Delete

Excelbook.Worksheets("Sheet2").Delete

Excelbook.Worksheets("Sheet3").Delete

Excelbook.SaveAs strXls

Excelbook.Close

Set Excelsheet = Nothing

Set Excelbook = Nothing

Set objExcel = Nothing

Set fso = Nothing

Set f = Nothing

Set fc = Nothing

dt2 = Now

MsgBox "执行完成，总共用时：" & DateDiff("s", dt1, dt2) & "秒"

End Sub

上面的内容牵涉到了windows的资源监控，我比较BT，不喜欢用loadrunner的监控，喜欢自己开启计数器，方法不用说了吧，生成csv文件的命令如下：

relog 001.blg -f CSV -o WINNMON.csv

这里附带说起另外一个话题，如果只是监控一台服务器，这事容易，如果要监控很多台呢，光是把mynmon.sh放上去，启动起来，估计都能把你搞崩溃了。如何自动上传文件，自动执行，自动停止脚本，自动取下结果，这是另外一件事情，有兴趣的同学可以搜搜winscp就会有法子了。

附件：

http://download.csdn.net/detail/testingba/4427796

资源监控_自个儿编写一个nmon

热点推荐