046843 ランダム
 HOME | DIARY | PROFILE 【お気に入りブログ登録】 【ログイン】

つれづれなるブログ 本館

PR

Keyword Search

▼キーワード検索

Profile


つれな

Freepage List

2011.02.25
XML
カテゴリ:ソフトウェア
ドメインに参加しているコンピュータにログオン・ログオフしたときに、イベントログにログを残す。
いろいろな記事をつぎはぎして作成しました。
各記事の作成者様、ありがとうございます。

1. ログオン・ログオフログを作成するスクリプトを作る。
元のスクリプトはこのサイトからもらいました。
ほとんど中身は触っていません。ファイルに書き込むのをイベントに切り替えているだけです。
イベントの書き込み方はこちらを参考にしています。
------ここから------
'ログオン・ログオフイベントを記録するスクリプト

sEvent = "LogOn" 'ログオフ用はここを変更する
sEventlogServer = "\\サーバ名" 'イベントを送るサーバ名

Const AUDIT_SUCCESS = 8

On Error Resume Next
Set objShell = WScript.CreateObject("WScript.Shell")
Set wshNetwork = CreateObject("WScript.Network")
Set objADSys = CreateObject("ADSystemInfo")

SearchPC = wshNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=impersonate}!//" & SearchPC)
Set NICs = objComputer.ExecQuery("select * from Win32_NetworkAdapterConfiguration")

For Each Adapter In NICs
  if UCase(Adapter.DNSHostName) = UCase(SearchPC) then
    IPAddress = Adapter.IPAddress
    IPSubnet = Adapter.IPSubNet
    DefaultIPGateway = Adapter.DefaultIPGateway
    sIP = ""
    sSubNet = ""
    sGateway = ""
    If IsArray(IPAddress) Then
      For I = LBound(IPAddress) To UBound(IPAddress)
        sIP = sIP & IPAddress(I) & ";"
        sSubNet = sSubNet & IPSubnet(I) & ";"
        sGateway = sGateway & DefaultIPGateway(I) & ";"
      Next
      sMAC = Adapter.MACAddress
      sWINS1 = Adapter.WINSPrimaryServer
      sWINS2 = Adapter.WINSSecondaryServer
    End If
    exit for
  end if
Next

sMsg = sEvent & "," & _
  Now & "," & _
  wshNetwork.ComputerName & "," & _
  wshNetwork.UserName & "," & _
  wshNetwork.UserDomain & "," & _
  sIP

' Write to Eventlog
objShell.LogEvent AUDIT_SUCCESS, sMsg, sEventlogServer

' ドメインコントローラが一台だけならこちらでOK
' objShell.LogEvent AUDIT_SUCCESS, sMsg, objADSys.GetAnyDCName

-----ここまで------

2.グループポリシーによりログオン・ログオフスクリプトで動かすように設定
ここは適当に調べてね。

3.Domain Userでイベントを書き込めるように設定
こちらのサイトを参考にしました。

Windows Server 2008 イベント ログに対するセキュリティ アクセス許可の変更について


Windows Server 2003 のイベント ログのセキュリティをローカルまたはグループ ポリシーで設定する方法







Last updated  2011.02.25 19:32:13
コメント(0) | コメントを書く
[ソフトウェア] カテゴリの最新記事

Calendar

Favorite Blog

まだ登録されていません

Comments

きらり510@ **拝見しました** こんばんわ 気になって読ませていただ…
つれな@ Re:機種変更 W51CA(02/08) 一日でパケット代が5800円かかったので、…
つれな@ なんにもないのに 足跡残してくれてありがとさんです。 (^.…

Headline News


Copyright (c) 1997-2018 Rakuten, Inc. All Rights Reserved.