Get time from server

[eyeconz]

Does anyone know of a way to return the time from a different machine? I have some employee's that have learned to change the time on their local machine's to manuplate time stamps.

 

[cmmrfrds]

Set up a connection to your backend database and get the time from it.

Dim cn As New Connection
Dim rs As New Recordset
Dim connString As String
Dim sql1 As String
connString = "provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\bigtuna\databases\bank.mdb;" & _
"Persist Security Info=False"

cn.ConnectionString = connString
cn.Open connString

sql1 = "select Now() "

rs.Open sql1, cn, adOpenStatic, adLockOptimistic

Debug.Print rs(0)
rs.close
set rs = nothing
set cn = nothing