On Error Resume Next
Dim WshShell, WshNetwork,PC,UN,rs,conn,strbookmark,strID
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;”
PC = ucase(WshNetwork.ComputerName)
UN = WshNetwork.UserName
rs.open “machlogon”,conn,3,3
rs.addnew
rs(“UID”) = lcase(UN)
rs(“machID”) = ucase(PC)
rs(“logonDateTime”) = Now()
rs(“logoffDateTime”) = Null
rs.update
strbookmark = rs.AbsolutePosition
rs.Requery
rs.AbsolutePosition = strbookmark
strID = rs(“logonID”)
rs.close
‘Write an ID number to a file for use when they logoff
dim fs,f
strID= Null
set f=nothing
set fs=nothing
Set conn=nothing
set rs=nothing
set WshShell=nothing
set WshNetwork=nothing
File: http://eddiejackson.net/data/LogonRecords.mdb
