perl监控局域网XP-PRO系统程序

#该程序实验目的：
#当用户个人文件夹的邮件达到3G的时候，系统自动回复一封警告邮件（提醒用户更改邮件送达位置，即新建个人文件夹）。
#借此，引伸：通过特定端口访问局域网所有PC（client)，进行监控并发出警告邮件(这个目前我不会,请教)
程序:

opendir(DIRMAIL, "D:/Mail") or die "$!";
my @allfiles = grep { not /^\.{1,2}\z/ } readdir DIRMAIL;
closedir DIRMAIL;
die "No file names supplied!\n" unless @allfiles;

my $youngest_name = shift @allfiles;
my $youngest_age = -M $youngest_name;
   foreach (@allfiles) {
      my $age = -M;
      ($youngest_name, $youngest_age) = ($_, $age)
         if $age < $youngest_age;
   }
printf "The youngest file was %s, and it was %.1f days old.\n",
      $youngest_name, $youngest_age;
   if (-s 'd:/Mail/'.$youngest_name >3000000000){# "-s":byte

       use Net::SMTP; #use model:Net::SMTP

       my $mailhost = "##########"; # the smtp host
       my $mailfrom = '######'; # your email address
       my @mailto = ('######'); # the recipient list
       my $subject = "个人文件夹的邮件超出3G限制";
       my $text = "温馨提示：\n您的个人文件夹邮件超过3G限制，请您新建一个新的个人文件夹以防止无法接收邮件\n详细设置方法为......";

       $smtp = Net::SMTP->new($mailhost, Hello => 'localhost', Timeout => 120, Debug => 1);

       # anth login, type your user name and password here
       #$smtp->auth('user','pass');

          foreach my $mailto (@mailto) {
             # Send the From and Recipient for the mail servers that require it
             $smtp->mail($mailfrom);
             $smtp->to($mailto);

             # Start the mail
             $smtp->data();

             # Send the header
             $smtp->datasend("To: $mailto\n");
             $smtp->datasend("From: $mailfrom\n");
             $smtp->datasend("Subject: $subject\n");
             $smtp->datasend("\n");

             # Send the message
             $smtp->datasend("$text\n\n");

             # Send the termination string
             $smtp->dataend();
          }
       $smtp->quit;
   }
这里,什么方法可以实现用程序监控整个局域网Client端PC(XP-PRO系统)?
要学以致用,呵呵,请老大们指教啊!先谢谢了!

http://bbs.chinaunix.net/viewthread.php?tid=885153


你可以看看仙子写的 “用Perl写一套系统监控程序”

呵呵,仙子的文档我都下载了!她监控的是UNIX系统,我要监控的是WIN-XP系统,应该区别很大吧!
谁能给点好的意见啊?谢谢!

没人理会么?给个可行的方案吧~

没有人能帮忙么?高手何在呀?苦啊~

每天一帖,不信没人理,呵呵!

不熟悉XP监控。。。只能帮你顶了。呵呵

谢谢兄弟了,大家都来帮顶啊~~直到有老大肯指点,霍霍!

我顶最后一次,再顶就没意思了,呵呵!

我也不懂,帮你顶下