If you ever need to get the time from a remote computer you can use the following code sample:

option Explicit
private Declare Function NetRemoteTOD Lib "Netapi32.dll" ( _
tServer as Any, pBuffer as Long) as Long

private Declare Function NetApiBufferFree Lib "Netapi32.dll" (byval lpBuffer as Long) as Long
private Type TIME_OF_DAY_INFO
tod_elapsedt as Long
tod_msecs as Long
tod_hours as Long
tod_mins as Long
tod_secs as Long
tod_hunds as Long
tod_timezone as Long
tod_tinterval as Long
tod_day as Long
tod_month as Long
tod_year as Long
tod_weekday as Long
End Type
private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination as Any, Source as Any, byval Length as Long)

private Sub Command1_Click()
Dim lRet as Long
Dim tod as TIME_OF_DAY_INFO
Dim lpbuff as Long
Dim tServer() as Byte
tServer = "yourServerNameGoesHere" & vbNullChar
lRet = NetRemoteTOD(tServer(0), lpbuff)
If lRet = 0 then
CopyMemory tod, byval lpbuff, len(tod)
' tod.tod_day, tod.tod_month, tod.tod_year are the fields to look for.
End If
NetApiBufferFree lpbuff
End Sub



this works only under NT!