3〜6のデータをについてはWMIを使って取得し,FileSystemObjectを使ってテキストファイルに出力します。'ログオン・ログオフイベントを記録するスクリプト sEvent = "LogOn" 'ログオフ用はここを変更する sFileName = "\\server01\log\logon" & _ Year(Now) * 100 + Month(Now) & ".log" On Error Resume Next Set FSO = CreateObject("Scripting.FileSystemObject") Set wshNetwork = CreateObject("WScript.Network") SearchPC = wshNetwork.ComputerName Set objComputer = GetObject("winmgmts:{im