Dim UsrInfo
SET UsrInfo = WScript.CreateObject("WScript.Network")
Dim cn, rs
Set cn = CreateObject("ADODB.Connection")
cn.Provider = "SQLOLEDB"
cn.ConnectionString = "Provider=SQLOLEDB.1;Password= XXX ;Persist Security Info=True;User ID= Имя польз-ля БД;Initial Catalog= Имя БД;Data Source= Адрес сервера БД"
On Error Resume Next
cn.Open
Set rs = CreateObject("ADODB.Recordset")
rs.CursorType =  3 
rs.LockType =  3 
rs.Open "EnterTime", cn
rs.AddNew
rs.Fields("fio").Value = UsrInfo.UserName
rs.Fields("host").Value = UsrInfo.ComputerName
rs.Fields("dat").Value = NOW
rs.Update
cn.Close