' LOGOUT SCRIPT as follows
Option Explicit
Dim strUserDirectory, strCompDirectory, strDate
Dim strUser, strComp
Dim strUserFile, strCompFile
Dim objWshNtwk, objFSO, objTextFile
Set objWshNtwk = WScript.CreateObject("WScript.Network")
strUserDirectory = "\\servername\logging$\Pupils"
strCompDirectory = "\\servername\logging$\Computers"
strDate = Now
strUser = (objWshNtwk.UserName)
strComp = (objWshNtwk.ComputerName)
strUserFile = "\" & CStr(strUser) & ".txt"
strCompFile = "\" & CStr(strComp) & ".txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForAppending = 8
' Username Log
Set objTextFile = objFSO.OpenTextFile (strUserDirectory &_
strUserFile, ForAppending, True)
objTextFile.WriteLine ("User:" & ", " & strUser & ", " _
& "Logged out of Computer" & ", " & strComp & ", "_
& "at" & ", " & strDate)
objTextFile.Close
'computer name Log
Set objTextFile = objFSO.OpenTextFile _
(strCompDirectory & strCompFile, ForAppending, True)
'objTextFile.WriteLine (strUser & "," & strComp & "," & strDate)
objTextFile.WriteLine ("Computer" & ", " & strComp & ", "_
& "Was logged out of by" _
& ", " & strUser & ", " & "at" & "," & strDate)
objTextFile.Close
WScript.Quit