• ベストアンサー

Windows機へのシステムログ出力方法

お世話になります。 Windowsサーバ上で実行されているPerlスクリプトからシステムログへ 出力する方法をご存知の方いらっしゃいましたらご教授下さい。 よろしくお願いします。

  • Perl
  • 回答数1
  • ありがとう数2

質問者が選んだベストアンサー

  • ベストアンサー
  • guci-ok
  • ベストアンサー率33% (49/146)
回答No.1

Windowsではシステムログではなく、イベントログでしょ? お探しのものは、Win32::EventLogと思います。

参考URL:
http://search.cpan.org/~jdb/libwin32-0.28/EventLog/EventLog.pm
gootree
質問者

お礼

回答頂き有難うございます。 ご教授頂いたものを使用してみたいと思います。 ※確かにUNIXではないので、ご指摘通りイベントログです。  申し訳ありません。

関連するQ&A

  • Windows2Kのシステムログが壊れた

    Windows2K serverを使っています。 たまたまログをみたところ、システムログが「壊れています」とエラーが出ていました。 どのように対処すれば、修復出来るのでしょうか。 ご存知の方、ご教授ください。 宜しくお願いします。

  • Windowsのシステムログをsyslogサーバに転送

    Windowsのシステムログ(エラー,警告)をsyslogサーバに転送するには どうしたらいいでしょうか。お金がかからない方法が望ましいです。 宜しくお願いいたします。

  • コンソール出力をテキストに出力する方法(コンソール出力は残しつつ)

    【質問】  Perl内部で実行される実行ファイル(.exe)のコンソール出力(STDOUT,STDERR)をテキストファイルに出力したい。(Perlのコンソール出力も含む。) ※コンソール出力は残しつつ。 (コマンドプロンプトの)パイプとリダイレクトを使用して上手くいくかと思ったのですが、標準出力と標準エラーとでは標準エラーが先に出力されてしまい、本来出力される順番で出力されない。(標準出力はバッファにたまるため??) 何かいい方法はありませんでしょうか? 【環境】  Windows2000  Active Perl 5.8.8

    • ベストアンサー
    • Perl
  • die関数のエラー出力先について

    いつもお世話になっております。 以下のようなスクリプトを書き、 imapサーバの死活監視を行おうと思っております。 ################################# my $imap = Mail::IMAPClient->new( Server => $hostname, User => $username, Password => $password, Timeout => 5, ) or die "Cannot connect to $hostname imap:143. $!"; -------処理は続きますが割愛------- ################################# そこで、1つ壁にぶつかったので質問いたしました。 +++壁の内容+++ imapサーバに何らかの理由で接続できなかったケースを考慮して、 die関数を使おうと思ったのですが、 このdie関数は、「引数に指定した値を標準エラー出力に出力」するとのことなのですが、 引数に指定した値を任意のファイルに出力する方法はないのでしょうか?? +++やりたいことの背景+++ imapサーバを監視するPerlスクリプトは、 実行するたびに指定したファイルに実行結果と実行時間を出力したい。 実行結果と実行時間を出力したファイルを 別の監視プログラムが監視するという二重構造の監視を行いたい。 imapサーバを監視するPerlスクリプトの実行結果を、 どうしても任意のファイルに出力したい。 +++++++++++++++++++++++++++++++++ 以上です。 よろしくお願いします。

    • ベストアンサー
    • Perl
  • システムログにエラーが出力されている

    Windows2000 Severを使用しておりSCSIでI-O DATAのミラーリングハードディスクを使用しております。 現在このディスクにアクセスするとエラーが大量にシステムログに 出力されております。 これはHDが壊れているということなのでしょうか。 ■エラーメッセー内容 (1)ページング操作中にデバイス\Device\Harddisk1\DR1上で  エラーが検出されました (2)ドライバは、デバイス\Device\Harddisk1\DR1の書き込み  キャッシュが有効である事を検出しました。  データが壊れる可能性があります

  • cshからperlを呼び出しファイルに出力

    いつもお世話になっております。 cshからperlを呼び出しperlが出力する内容と入力項目を実行しているcsh内部で行ない結果をファイルへ出力したいのですが、そのような事ができるのでしょうか? ---------- cshファイル内 #!/bin/csh echo "●perl a.pl を実行します" | tee a.log perl a.pl ---------- perlファイル内 (perlがわかりませんので、perlの内容をcsh形式で記述させていただきます) (1)echo -n "日付を入力して下さい" (2)echo "⇒ " (3)set INPUT_DATE = $< (4)echo "日付:$INPUT_DATE " exit 0 ---------- cshから実行されたperl(csh)の内容[(1)(2)(3)(4)]をファイル(| tee a.log)へ出力することが可能でしょうか? ご存知の方がいらっしゃいましたらご教授願います。

  • Perlからsyslog経由でログを出力したい

    皆さん、こんにちは。 Perlからsyslog経由でログを出力しようと考えています。 2点質問がありますのでご存知でしたらご教授ください。 (1)Perlスクリプトからsyslog経由でログ出力する方法 いろいろ方法は考えられるかと思いますが、 よく使われるエレガントな方法をご教授していただけるとありがたいです。 通常はやはりloggerを使うのでしょうか? (2)syslog経由で任意のファイルに出力する方法 syslogで、あるプログラムからのログにおいて、 このレベルはこのファイルという分け方はできますか? できなければ別の手段はありませんか? syslog-ngであればこのようなことができるのでしょうか? もしできれば方法を教えてください。 よろしくお願いします。

    • ベストアンサー
    • Perl
  • windows server2003 R2 SP2でシステムログが破損してしまう。

    windows server2003 R2 SP2のサーバーでワークグループ環境でDHCPサービスで20台くらいの管理をしています。 ほかのPCはwin95やらかなり古いマシンも散在しております。このサーバーで 導入当初からシステムログが破損してしまう現象が多発しております。 サーバーが10Mに対応していなから1gbitと相性が悪くて出るのでは?という指摘でGbitのhubから100Mのhubに交換してもすぐに再発してしまいます。 業務で使用もしており原因不明です。こういった経験をお持ちの方、いらっしゃいませんでしょうか?

  • linuxのperlでWindowsファイルを操作する方法について

    こんにちは。お世話になります。 題名の件、Perlという枠から外れるかもしれませんが、linux+perlでWindowsのファイルを読み取る、(通常のWindowsの場合と同様、フォルダのダイアログを出して、グラフィカルにファイルを選択、linuxサーバに読み取る)ことはできるのでしょうか? googleでもうまく検索できなかったので、ご教授お願いいたします。

    • ベストアンサー
    • Perl
  • Windows上MySQLのイベントログ出力抑止

    MySQL 5.6をWindowsサーバ上でサービス実行しています。 クライアントからの接続がある状態でサービスを停止すると、イベントログに 「MySQL: Forcing close of thread xx user 'xx'」 というメッセージが警告レベルで出力されます。 このメッセージが出力されないよう、MySQL側で設定できるならしたいと考えているのですが、 うまく抑止できません。海外の類似事例で、--skip-external-lockingをつけるとよいとあったのですが、 解決しませんでした。 そこで、 ・上記メッセージを出力しなくする方法 ・あるいはWindowsのイベントログを一律出力しなくする方法 がもしありましたらご教授下さい。

    • ベストアンサー
    • MySQL

専門家に質問してみよう