4月24日のセミナー「AD 次の一手」にて、「小規模なシステムの場合には、高価なパッケージではなくスクリプトレベルのプログラミングで同期を行うことも可能」というお話をしました。
セミナー資料にはスクリプトを掲載することができませんでしたが、ここに使用したスクリプトを掲載いたします。
以下のスクリプトは、DC001 というドメインコントローラに接続して、監査イベント 4720 と 5136 を待ち合わせるものです。VBscript で書かれていますので、拡張子を vbs として保存し、コマンドプロンプトから実行してください。
CScript xxxxx.vbs
くれぐれも、あたまの CScript を忘れないでください。忘れると、ポップアップメッセージが大量に表示されることになります。もしくは、以下のコマンドで、事前にスクリプトのホストを cscript に変更しておきましょう。
Cscript //h:cscript
ユーザー管理に関する監査イベントの詳細については、以下をご参照ください。
【Windows Server 2008】監査イベントの Event ID が変わります
http://blogs.technet.com/junichia/archive/2008/01/11/2008-id.aspx
|
strDC = "DC001" Rec = now & ",ドメインコントローラに接続します," & "DC=" & strDC If Err.Number = 0 Then strQuery = "Select * from __InstanceCreationEvent WITHIN 10" & _ Set colMonitoredEvents = objService.ExecNotificationQuery(strQuery, "WQL", 48) If Err.Number = 0 Then Do set objLatestEvent = colMonitoredEvents.NextEvent Message = objLatestEvent.TargetInstance.Message Loop |
実行結果例を以下に示します。
|
C:\tmp>cscript waitevent.vbs 2008/04/25 22:32:56,ドメインコントローラへの接続完了,DC=DC001 サブジェクト: ディレクトリ サービス: オブジェクト: 属性: 操作: サブジェクト: ディレクトリ サービス: オブジェクト: 属性: 操作: |