ブログを作る※無料・簡単アフィリ    ブログトップ | 楽天市場
023162 ランダム
ログオンログオフのイベント送出ス… (そのほか)楽天ブログ 【ケータイで見る】 【ログイン】
つれづれなるブログ 本館
ホーム 日記 プロフィール オークション 掲示板 ブックマーク お買い物一覧

PR

Calendar

March 2012
SMTWTFS
    123
45678910
11121314151617
18192021222324
25262728293031
<一覧へthis monthnext>

Keyword Search

Favorite Blog

まだ登録されていません

Category

Archives

Mobile

>>ケータイに
このブログの
URLを送信!

 

つれづれなる日々

<< 前へ次へ >>一覧コメントを書く

2011.02.25 楽天プロフィール Add to Google 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) | コメントを書く




■コメント

お名前
タイトル
メッセージ
・メッセージ本文は全角で800文字までです。
・書き込みに際しては楽天ブログ規約の禁止事項や免責事項をご確認ください
・ページの設定によっては、プルダウンで「顔選択」を行っても、アイコンが表示されません。ご了承ください。


<< 前へ次へ >>一覧コメントを書く一番上に戻る


Powered By 楽天ブログは国内最大級の無料ブログサービスです。楽天・Infoseekと連動した豊富なコンテンツや簡単アフィリエイト機能、フォトアルバムも使えます。デザインも豊富・簡単カスタマイズが可能!

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