Arto

Thanks. Just what I was looking for.

>If VFP solution is good for you (no ActiveX needed)
>
>See: How to use the NetRemoteTOD function to obtain date and time information from a server http://support.microsoft.com/kb/249716/EN-US/
>
>(or you can obtain atomtime with winsock from the internet)
>
>And
>
>Setting time could be something like the next (I'v taken this direct from settime method where ATOMtime is fetched from the Internet..., just look for the main routine hope to set time):
>

>. * Fetch atomtime
>.
>.
>* set system time
>DECLARE SHORT SetLocalTime IN win32api STRING SystemTime
>.
>.
>Local ;
>  lSystemTime, ;
>  lretval, ;
>  ltOldTime, ;
>  lni
>
>m.lSystemTime = word2str(Year(m.ltDateTime)) + ;
>  word2str(Month(m.ltDateTime)) + ;
>  word2str(Dow(m.ltDateTime) - 1) + ;
>  word2str(Day(m.ltDateTime)) + ;
>  word2str(Val(Substr(Ttoc(m.ltDateTime),12,2))) + ;
>  word2str(Val(Substr(Ttoc(m.ltDateTime),15,2))) + ;
>  word2str(Val(Substr(Ttoc(m.ltDateTime),18,2))) + ;
>  word2str(0)
>
>m.ltOldTime = Datetime()
>
>*!* Time to time SetLocalTime returns 0 "without no reason"
>*!* Loop 3 times to make sure it's real error not a "wait state" error.
>For m.lni = 1 To 3
>  m.lretval = SetLocalTime(m.lSystemTime)
>  If m.lretval # 0
>    Exit
>  Endif
>Endfor
>
>If m.lretval = 0
>
>  * Assert !File("ASSERT.CHK") Message "SET TIME"
>
>  m.lretval = -1
>
>  *!* lnShow = 0 Silent mode
>  *!* lnShow = 1 Statusbar
>  *!* lnShow = 2 Messagebox
>  *!* lnShow = 3 Staus bar and messagebox
>
>  *!* Following values are Silent mode but if
>  *!* online is changed then it is messaged.
>  *!* lnShow = 10 Silent mode
>  *!* lnShow = 11 Statusbar
>  *!* lnShow = 12 Messagebox
>  *!* lnShow = 13 Staus bar and messagebox
>
>  Thisform.ShowMessage(m.cTimeSetError,64,"IP-Robot",2000,Iif(Thisform.Visible,3,1))
>
>  If Thisform.lSavelog
>    Strtofile(IIF(!m.lchange_12_24,"NIST ","AMPM ")+Ttoc(Datetime())+" ==> ?????????? ??:??:??" + CRLF, ;
>      "IP-Robot.log",1)
>  Endif
>
>
>Else
>  * Send the message that the time has changed.
>  * IF Thisform.lTime_Send_Message
>  *!* Send message to all toplevel windows that system time is changed
>  SendMessage(HWND_BROADCAST, WM_TIMECHANGE, "", "")
>
>  If m.lnShow > 0 And m.lnShow < 4 Or m.lnShow > 10 And m.lnShow < 14
>    Thisform.ShowMessage(m.cTimeUpdMsg,64,"IP-Robot",2000,lnShow)
>  Endif
>
>  If Thisform.lSavelog
>    Strtofile(IIF(!m.lchange_12_24,"NIST ","AMPM ")+Ttoc(m.ltOldTime)+" ==> "+Ttoc(Datetime()) + CRLF, ;
>      "IP-Robot.log",1)
>  Endif
>
>  * Endif
>Endif
>
>* m.lretval = SendMessage(HWND_BROADCAST, WM_TIMECHANGE, "", "")
>
>Return m.lretval
>
>*--------------------
>
>* Set system time stuff
>Function word2str(wordval)
>  * Function word2str.
>  * Parameters: 16-bit value.
>  * Returns: low-high format string for use in structures
>  * requiring a WORD value.
>
>  Local i, m.retstr
>
>  m.retstr = ""
>  For i = 8 To 0 Step -8
>    m.retstr = Chr(Int(m.wordval/(2^i))) + m.retstr
>    m.wordval = Mod(m.wordval, (2^i))
>  Next
>
>  Return m.retstr
>

>
>AT