windows - 监控脚本并在崩溃时发送电子邮件

Question

我有一些使用 Windows 2003 R2 和 2008 中的任务调度程序安排的 perl 脚本。这些脚本直接使用 perl.exe 或通过批处理文件调用。

有时这些脚本无法执行（可能会崩溃），我们不知道这些崩溃。

当这些脚本崩溃时，有什么方法可以发送邮件？或多或少像监控这些脚本

提前致谢

卡尔提克

Answer 1

当您可以让插件监控自己时，为什么还要从外部监控脚本？首先，您可以使用eval来捕获错误，如果发生错误，您可以按照 rpg 的建议发送带有Net::SMTP 模块的电子邮件。但是，我强烈建议您使用某种日志文件，以便跟踪错误之前发生的事情以及导致错误的原因。您的主要目标应该是避免错误。这当然需要您修改脚本，如果由于任何原因您不能这样做，那么情况可能会稍微复杂一些，因为您需要另一个脚本。

使用Win32::Process::Info模块，您可以检索 Windows 上正在运行的进程并检查您的插件是否正在运行。

while(1) {
    my $found = false;
    my $p = Win32::Process::Info->new;
    foreach my $proc ($pi->GetProcInfo) {
        if ($proc->{Name} =~ /yourscriptname/i ) {
            found = true;
        }
    }
    if ($found eq 'false') {
        # send email
        my $smtp = Net::SMTP->new("yoursmtpserver");
        eval {
            $smtp->mail("sender@test.it");
            $smtp->recipient("recipient@test.it");
            $smtp->data;
            $smtp->datasend("From: sender@test.it");
            $smtp->datasend("\n");
            $smtp->datasend("To: recipient@test.it");
            $smtp->datasend("\n");
            $smtp->datasend("Subject: Plugin crashed!");
            $smtp->datasend("\n");
            $smtp->datasend("Plugin crashed!");
            $smtp->dataend;
            $smtp->quit;
        };
    }
    sleep(300);
}

我没有测试这段代码，因为我没有在 Windows 上安装 Perl，但逻辑应该没问题。

Answer 2

您可以使用 PushMon 来监控您的脚本。您所做的是创建与您的 Perl 脚本计划相匹配的 PushMon URL。然后，当您的脚本成功运行时，您应该“ping”这些 URL。如果这些 URL 未被访问，可能是因为您的脚本崩溃或电源故障，PushMon 将通过电子邮件通知您。

免责声明：我与 PushMon 有关。

Answer 3

用于监控 - 请检查错误代码。这将帮助你解决它的失败。

对于邮件发送 - 您可以使用 Net::SMTP 模块发送电子邮件。如果您需要代码片段，请告诉我。