用perl 监控windows
来源:互联网 发布:淘宝助理怎么新建宝贝 编辑:程序博客网 时间:2024/05/17 02:41
#!/usr/bin/perl -wuse Win32::OLE qw[in];my $host = $ARGV[0] || '.';my $wmi = Win32::OLE->GetObject( "winmgmts://$host/root/cimv2" )or die Win32::FormatMessage( Win32::OLE::LastError() );my %instances = (Win32_PhysicalMemory => \&get_pmem,Win32_PerfRawData_PerfOS_Memory => \&get_amem,Win32_Processor => \&get_load,Win32_LogicalDisk => \&get_disk,);while(1) {my $out = get_perf_data();print $out;print "\n";sleep(30);}sub get_perf_data {my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);$year = $year + 1900;$mon = $mon + 1;my $str = sprintf "%4.4d-%2.2d-%2.2d",$year,$mon,$mday;my $timestr = sprintf "%2.2d:%2.2d:%2.2d",$hour,$min,$sec;my $mem;foreach ( keys %instances ) {my $class = $wmi->InstancesOf( $_ );$mem .= $instances{ $_ }->( $class );}my $out = "##\nCollect Time: ".$str." ".$timestr."\n".$mem."%%\r\n";return $out;}# get cpu loadavgsub get_load {my $class = shift;my $total="";my $i = 0;$i++,$total = $total."CPU No. $i: ".$_->{LoadPercentage}."%\n" foreach in($class);return $total;}# get total memory sizesub get_pmem {my $class = shift;my $total;$total += $_->{Capacity} foreach in($class);return "Physical Memory: $total Bytes\n";}# get available memory sizesub get_amem {my $class = shift;my $amem;$amem .= join ' ', $_->{AvailableBytes} foreach in($class);return "Available Memory: $amem Bytes\n";}# get free disk sizessub get_disk {my $class = shift;my $total = "";$total .= "DISK ".$_->{DeviceID}." Free: ".$_->{FreeSpace}." Bytes\n" foreach in($class);return $total}
0 0
- 用perl 监控windows
- 常用脚本 – perl监控windows
- Perl ping监控
- Perl 监控批量错误
- Perl 监控 web展示
- perl 监控主机报警
- Perl 监控OS脚本
- perl 监控mysql数据库
- Perl 监控Redis
- perl 监控端口
- perl 监控数据变化
- perl 监控日志告警
- PERL WINDOWS
- Windows Perl
- 用Perl的hash数组实现个性化监控
- Windows下用perl操作excel
- Perl 监控日志异常报警
- perl 批量监控主机ping
- Android获取手机基站信息并进行基站定位(基站定位原理)
- 机房收费系统 用例图
- Fastjson介绍
- 该方法打开
- mysql管理工具navicat的注册码
- 用perl 监控windows
- public、protected、private、abstract、static和final
- 详解扁平化设计的流行配色方案
- PowerDesigner实用技巧小结(3)
- 筛选素数的几种方法
- C#什么是钩子,关于钩子的使用
- htaccess转换httpd.ini方法及案例参考
- python中if __name__ == '__main__': 的解析
- CString的使用效率