On Error Resume Next
Dim WshShell, WshNetwork,PC,UN,rs,conn
Set conn = CreateObject(“ADODB.Connection”)
Set rs = CreateObject(“ADODB.RecordSet”)
Set WshShell = WScript.CreateObject(“WScript.Shell”)
Set WshNetwork = WScript.CreateObject(“WScript.Network”)
PC = ucase(WshNetwork.ComputerName)
UN = WshNetwork.UserName
conn.Open “Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\SERVERNAME\RMDelivery\LogonRecords.mdb;”
strSQL = “Update machlogon Set logoffDateTime='” & Now() & “‘ WHERE ((UID='” & lcase(UN) & “‘) AND (machID='” & ucase(PC) & “‘) AND (logoffDateTime IS NULL))”
conn.execute strSQL
Set conn=nothing
Set rs = Nothing
set WshShell=nothing
set WshNetwork=nothing
File: http://eddiejackson.net/data/LogonRecords.mdb
