• 締切済み

【VBA】イベントログの取得

イベントビューアのアプリケーション/セキュリティ/システムの各々の項目をVBAを使って Excelシートに取り込みたいと思っているのですが、どのように記述すると良いでしょうか? お手数をお掛けしますが、コーディングベースで教えてください!!

noname#168857
noname#168857

みんなの回答

  • kokorone
  • ベストアンサー率38% (417/1093)
回答No.3

#1です。 ごめんなさいです。 これ以上は、私にもわかりません

  • kokorone
  • ベストアンサー率38% (417/1093)
回答No.2

#1です。 参照URLには、WMIを使用した例もありますよ ね。 それを利用しない手はないと思います。Windowsが 提供するライブラリなのですから。 サードパーティ・第3者が作成したDLL・オブ ジェクトではありません。

noname#168857
質問者

補足

お世話になっています。 こちらの都合で申し訳ないのですが、他ファイルを設定できない状況なので、 Windowsが提供したライブラリであっても現状のマシン環境方からの+αとしてファイルを 置く事が出来ません。 --- WMIの手法はアプリケーションログの取得との操作確認まで出来ました。 イメージ的には、こちらの方法で問題ないのかと思っていますが、これをセキュリティ ログとして使用する際のコマンドのバリエーションが分かりません。 ご存知あればご教授頂きたく。宜しくお願いします。

  • kokorone
  • ベストアンサー率38% (417/1093)
回答No.1

質問される前に、ネットで検索しましたか? 「VBA」「イベントログ」でヒットしました。

参考URL:
http://park7.wakwak.com/~efc21/cgi-bin/wwwlng.cgi?print+200505/05050348.txt
noname#168857
質問者

補足

URL先では、DLL等の他モジュールを取り込みつつ簡単に作るのではなく、1から作りたいと思っています。 他に良い情報がありましたら、宜しくお願い致します。

関連するQ&A

  • VBAでエクセルのバージョンを取得するには

    エクセルBOOKを開いているアプリケーションがエクセル2007以降かそうでないかを、その開かれているBOOKのVBAで取得するにはどのような記述をすればよろしいでしょうか? 2007以降か、その前かでコードを分岐させたいのです。 よろしくお願いします。

  • WinXPイベントログについて

    お世話になります。 イベントログの項目にInternet Explorerがありません。 (アプリケーション、システム、セキュリティはあります。) 特に問題ないとおもいますが、ご存知の方いたら イベントログにInternet Explorerを設定する方法を教えてください。 よろしくお願いいたします。

  • イベントビュアーで、アプリケーショネアーコード

    イベントビュアーをみると、                            アプリケーション ログ アプリケーションエラーコード 320.OK セキュリティ   ログ セキュリティ監査レコード   512,0K システム     ログ システムエラーコード     512,OK と出ています。 何か問題でもあるのでしょうか? イベントビュアーとは、どういうことなのですか? 詳しく教えて下さい。  

  • Excel VBAでの初期設定

    Excel VBA 初心者です。Excelは2013です。VBAでBookを開いたときにあるシートの初期設定をしたいと考えています。Activateイベントを使おうと思いましたがイベントが発生しないことがあるため質問しています。 例として以下のようなコードを記述したとき、sheet1以外を開いて保存している場合にはActivateイベントは発生しますが、sheet1を開いて保存している場合にはイベントが発生しないため初期設定の処理ができませんでした。 対応方法をお分かりの方ご教授いただけないでしょうか。 ============================= '"以下をThisWorkbook"に記述 Private Sub Workbook_Open() '②Worksheets("sheet2").Activate も入れれば Activateイベントは発生する Worksheets("sheet1").Activate '①もともと sheet1がActiveで保存されていた場合、Activateイベントは発生しなかった End Sub ============================= '"以下をsheet1"に記述 Private Sub Worksheet_Activate() '初期設定処理 MsgBox "sheet1の初期設定をしました" End Sub ============================= 宜しくお願いします。

  • VBA初心者です。

    VBA初心者です。 Excel 2010のVBAで、 ワークシートのSheet1のオブジェクトモジュールに 他のシートから別のシートにコピー&ペーストをしたいと思い、 以下のプログラムの記述をすると、 アプリケーション定義またはオブジェクトの定義エラーとなってしまいます。 Worksheets("Sheet2").Range(Cells(1, 7), Cells(d, 8)).Copy Destination:=Worksheets("Sheet3").Cells(3, 1) (「d」は変数です。セルの範囲指定は、実際に記述するときは 範囲が広範になるので、行数列数で把握できるようにCellsを使っています) エラーになる理由と解決法をご教授いただければと思います。

  • VBAでイベントを設定したいのですが…

    いつもお世話になっております。 早速ですが、VBAでイベントの処理を記述したいの ですが、イベント取得ができません。 どこでから取得すればいいのでしょうか? Excel2007を使用しています。 よろしくお願いします。

  • VBAでのユーザーフォームの使い方

    VBAのマクロでユーザフォームにボタンを配して、それによってエクセルシートのデータを更新するようなマクロを作りたいのですが、ユーザフォームの挿入でボタン配置まではできるのですけど、どのようにリンク付けするのかコーディング等、解りません。お教え下さい。簡単なサンプルコーディングがあれば助かります。

  • VBAにて

    お世話になります。 VBAでプログラムを作成しています。 その中で下記の記述にて、エクセルのシートを 削除したい部分があるのですが、Msgboxで、 「選択したシートに、データが存在する可能性があります。  データを完全に削除するには、「削除」をクリックしてください。」 と出るメッセージをVBAの記述により出ない様に したいのですが・・。 その方法を教えてください。 宜しくお願い致します。      記 ActiveWindow.SelectedSheets.Delete

  • エクセル2000VBAについて

    エクセル2000VBAで、ワークシート上でESCキーを押したと同じ意味を持つステートメントはどのように記述したらよいのでしょうか?

  • VBA シート名を先月の名前にしたい

    VBA シート名を先月の名前にしたい お世話になります。 excelのシート名を、当年先月の名前(2013年4月なら”2013年3月”)にしたいのです。 当月ならうまくいくのですが、VBAでいいコーディングがあればご教示ください。 宜しくお願いします。

専門家に質問してみよう