sqlcmd -E -i database.sql

logonoff.vbs の上段あたりに dbServer の設定項目があるので適宜修正してください。

テーブルは1つのみです。
user_log

CREATE DATABASE logdb;
GO

USE logdb;
GO

CREATE TABLE user_log
( logtime datetime2 DEFAULT SYSDATETIME()
 ,updatetime datetime2 NULL
 ,username nvarchar(128) NOT NULL
 ,computer nvarchar(128) NOT NULL
 ,server nvarchar(128) NOT NULL
 ,logontime datetime NULL
 ,logofftime datetime NULL
 ,logonretry bit NULL
 ,logoffretry bit NULL );
GO

CREATE INDEX user_log_idx ON user_log(username,computer,logtime);
CREATE INDEX user_logtime_idx ON user_log(logtime);
GO

EXECUTE sp_addmessage 50001, 16, 'logon script error. username = %s, computer = %s, server = %s, pctime = %s', 'us_english', 'TRUE';
EXECUTE sp_addmessage 50002, 16, 'logoff script error. username = %s, computer = %s, server = %s, pctime = %s', 'us_english', 'TRUE';
GO

CREATE PROCEDURE user_logonoff
  @server nvarchar(128)
 ,@pctime datetime
 ,@islogon bit = 1
 ,@isretry bit = 0
AS
 DECLARE @maxtime datetime2 = NULL
 DECLARE @lastlogoff datetime = NULL
 DECLARE @update datetime2 = SYSDATETIME()
 DECLARE @chartime char(23) = CONVERT ( char, @pctime, 121 )
 DECLARE @username nvarchar(128) = SUSER_NAME()
 DECLARE @computer nvarchar(128) = HOST_NAME()
 IF @server IS NULL OR @pctime IS NULL
  BEGIN
	IF @islogon = 1
	 BEGIN
		RAISERROR (50001, 16, 1, @username, @computer, @server, @chartime)
	 END
	ELSE
	 BEGIN
		RAISERROR (50002, 16, 1, @username, @computer, @server, @chartime)
	 END
	RETURN
  END
 IF @islogon = 1
  BEGIN
	INSERT INTO user_log(username,computer,server,logontime,logonretry) VALUES (@username, @computer, @server, @pctime, @isretry)
  END
 ELSE
  BEGIN
	SELECT TOP(1) @maxtime = logtime, @lastlogoff = logofftime FROM user_log WHERE username = @username AND computer = @computer AND logtime > DATEADD(year, -1, SYSDATETIME()) ORDER BY logtime DESC
	IF @maxtime IS NULL OR @lastlogoff IS NOT NULL
	 BEGIN
		INSERT INTO user_log(updatetime,username,computer,server,logofftime,logoffretry) VALUES (@update, @username, @computer, @server, @pctime, @isretry)
	 END
	ELSE
	 BEGIN
		UPDATE user_log SET updatetime = @update, logofftime = @pctime, logoffretry = @isretry WHERE logtime = @maxtime AND username = @username AND computer = @computer
	 END
  END;
GO

GRANT CONNECT TO [TEST\Domain Users];
GRANT EXECUTE ON user_logonoff TO [TEST\Domain Users];
GO

' ログオン、ログオフの記録をデータベースに保存するスクリプト
' logonoff.vbs (logon|logoff)
' ログオン スクリプトとログオフ スクリプトに追加して使用する
' データベースは SQL Server 2008 を想定(Express でも可能)
' ログオン時またはログオフ時にネットワークにつながっていない場合や
' DBサーバーが停止していた場合はローカルに保存し、次回接続時に登録する
Option Explicit
Const saveName = "\logonoff.txt"
Const dbServer = "TEST-DC1"
Const dbPort = 1433
Const dbName = "logdb"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim strServer, isLogon, strDateTime, strExec
Dim objDB
Dim WshShell, FSO
Dim time, tempTimer
Dim strFileName, objFile, strLine

time = Now()
tempTimer = Timer
strDateTime = Year(time) & "/" & Right("0" & Month(time), 2) & "/" _
	& Right("0" & Day(time), 2) & " " & Right("0" & Hour(time), 2) & ":" _
	& Right("0" & Minute(time), 2) & ":" & Right("0" & Second(time), 2) & "." _
	& Right("000" & Int((tempTimer - Int(tempTimer)) * 1000), 3)

If WScript.Arguments.Count > 0 Then
  If WScript.Arguments(0) = "logon" Then
    isLogon = 1
  Else
    isLogon = 0
  End If
Else
  WScript.Echo "logon または logoff の引数をつけて実行してください。"
  WScript.Quit
End If

Set WshShell = CreateObject("WScript.Shell")
strServer =  Mid(WshShell.ExpandEnvironmentStrings("%LOGONSERVER%"), 3)
strFileName = WshShell.ExpandEnvironmentStrings("%TEMP%") & saveName
Set FSO = CreateObject("Scripting.FileSystemObject")
strExec = "EXECUTE user_logonoff N'" & strServer & "','" & strDateTime & "'," & isLogon

Set objDB = CreateObject("ADODB.Connection")
objDB.Provider = "SQLOLEDB"
objDB.ConnectionTimeout = 5
objDB.ConnectionString = "Server=" & dbServer & "," & dbPort & ";Database=" & dbName _
	& ";Integrated Security=sspi"
On Error Resume Next
objDB.Open
If Err.Number <> 0 Then ' 接続できなかったのでテキストに保存
  On Error Goto 0
  Set objFile = FSO.OpenTextFile( strFileName, ForAppending, True )
  objFile.WriteLine strExec & ",1"
  objFile.Close
Else ' 接続できたら登録
  On Error Goto 0
  ' 前回登録できなかった分がテキストに保存されている場合は先にそれを登録
  If FSO.FileExists( strFileName ) Then
    Set objFile = FSO.OpenTextFile( strFileName, ForReading )
    Do While objFile.AtEndOfLine <> True
      strLine = Trim( objFile.ReadLine )
      If Len(strLine) > 10 Then objDB.Execute strLine
    Loop
    objFile.Close
    FSO.DeleteFile( strFileName )
  End If
  ' 今回の分を登録
  objDB.Execute strExec & ",0"
  objDB.Close
End If