ON ERROR RESUME NEXT
Dim WSHShell, WSHNetwork, ComputerString, UserNameString, DateTimeString, objConn, objRSSQL, actionString
Set WSHShell = CreateObject("WScript.Shell")
Set WSHNetwork = CreateObject("WScript.Network")
'Database Connection String
Set objConn = CreateObject("ADODB.Connection")
objConn.Open "Driver={SQL Server};" & _
"Server=yourSQLserver;" & _
"Database=yourdatabasename;" & _
"user id=youruserid;" & _
"password=youruseridpassword;"
Set objRSSQL = CreateObject("ADODB.Recordset")
'Get Date and Time, Workstation Name, and User Name
ComputerString = WshNetwork.ComputerName
UserNameString = WshNetwork.UserName
DateTimeString = now()
actionString = "Logon"
'Insert info in to database
SQLQuery = "insert into LogonTracking (logindatetime, logonworkstation, logonuser, action)" & _
" values ('" & DateTimeString & "','" & ComputerString & "','" & UserNameString & "','" & actionString & "')"
objRSSQL.Open SQLQuery, objConn
'Clean up Memory
set WSHShell = nothing
set WSHNetwork = nothing
set ComputerString = nothing
set UserNameString = nothing
set DateTimeString = nothing
set actionString = nothing
set objConn = nothing
set objRSSQL = nothing
'Quit the Script
wscript.quit