ログイン・ログオフ監視スクリプト追加修正
自宅のドメインコントローラサーバに設置しているログオン・ログオフスクリプトの追加修正をした。
これまではメールの発報だけだったものを、CSVファイルにも記録することに。
WSHを使っているので、VBScriptがメインに。
これで自宅ネットワークに接続してあるPCにログイン・ログオフが起こった場合の記録ができるように。
strMsg2 = “login,” + CStr(Date) + ” ” + CStr(Time) + “,” + objNetwork.UserName + “,” + objNetWork.ComputerName
Dim fso, writer, i
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set writer = fso.OpenTextFile(“../login.csv”, 8, True)
writer.WriteLine strMsg2
writer.Close()