用perl 监控windows

jeffwang8001

最近在学习perl，就用perl写了一个监控windows主机的脚本，大家给看看

1. 
   
2. #!/usr/bin/perl -w
   
3. use Win32::OLE qw[in];
   
4. 
   
5. my $host = $ARGV[0] || '.';
   
6. my $wmi = Win32::OLE->GetObject( "winmgmts://$host/root/cimv2" )
   
7.         or die Win32::FormatMessage( Win32::OLE::LastError() );
   
8. 
   
9. my %instances = (
   
10.         Win32_PhysicalMemory => \&get_pmem,
    
11.         Win32_PerfRawData_PerfOS_Memory => \&get_amem,
    
12.         Win32_Processor => \&get_load,
    
13.         Win32_LogicalDisk => \&get_disk,
    
14. );
    
15. 
    
16. while(1) {
    
17.         my $out = get_perf_data();
    
18.         print $out;
    
19.         print "\n";
    
20.         sleep(30);
    
21. }
    
22. 
    
23. sub get_perf_data {
    
24.         my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
    
25.         $year = $year + 1900;
    
26.         $mon  = $mon + 1;
    
27.         my $str = sprintf "%4.4d-%2.2d-%2.2d",$year,$mon,$mday;
    
28.         my $timestr = sprintf "%2.2d:%2.2d:%2.2d",$hour,$min,$sec;
    
29.        
    
30.         my $mem;
    
31.         foreach ( keys %instances ) {
    
32.                 my $class = $wmi->InstancesOf( $_ );
    
33.                 $mem .= $instances{ $_ }->( $class );
    
34.         }
    
35.        
    
36.         my $out = "##\nCollect Time: ".$str." ".$timestr."\n".$mem."%%\r\n";
    
37.         return $out;
    
38. }
    
39. 
    
40. # get cpu loadavg
    
41. sub get_load {
    
42.         my $class = shift;
    
43.         my $total="";
    
44.         my $i = 0;
    
45.         $i++,$total = $total."CPU No. $i: ".$_->{LoadPercentage}."%\n" foreach in($class);
    
46.         return $total;
    
47. }
    
48. 
    
49. # get total memory size
    
50. sub get_pmem {
    
51.         my $class = shift;
    
52.         my $total;
    
53.         $total += $_->{Capacity} foreach in($class);
    
54.         return "Physical Memory: $total Bytes\n";
    
55. }
    
56. 
    
57. # get available memory size
    
58. sub get_amem {
    
59.         my $class = shift;
    
60.         my $amem;
    
61.         $amem .= join ' ', $_->{AvailableBytes} foreach in($class);
    
62.         return "Available Memory: $amem Bytes\n";
    
63. }
    
64. 
    
65. # get free disk sizes
    
66. sub get_disk {
    
67.         my $class = shift;
    
68.         my $total = "";
    
69.         $total .= "DISK ".$_->{DeviceID}." Free: ".$_->{FreeSpace}." Bytes\n" foreach in($class);
    
70.                
    
71.         return $total
    
72. }
    
73. 
    

复制代码

orangetouch

牛~

我以前写的显示CPU占用率的程序费了好大劲···

among29

牛,不错
在找个数据库定期写入
再处理,一个很好的报告了

lonelyair

原帖由 jeffwang8001 于 2007-1-25 17:24 发表
最近在学习perl，就用perl写了一个监控windows主机的脚本，大家给看看
[code]
#!/usr/bin/perl -w
use Win32::OLE qw[in];

my $host = $ARGV[0] || '.';
my $wmi = Win32::OLE->GetObject( "winmg ...

我看了下Win32::OLE 但是我不知道
$wmi->InstancesOf( $_ )
$_->{LoadPercentage}
$_->{Capacity}
$_->{DeviceID}
$_->{FreeSpace}
怎么来的？？？？要是系统的，我怎么找到呢？

lonelyair

没人来解释一下吗？

路小佳

这个属于WMI的范畴， 去MSDN上看。
http://msdn2.microsoft.com/en-us/library/aa394084.aspx

ghostsaint

强,学习

dlms

路过学习下哈哈

bitterness

很好，厉害

mybook12345

恩 收藏了 谢谢楼主