Is it possible to update a PCs Date and Time settings,
using WinAPI, with the Date and Time from a Windows NT
server.

I currently access the Date and Time of the NT server
using the getdate() function in SQL Server which is
running on that server. I would be altering the Date/Time
settings using this Pass-Through query via a WinAPI
command (if there is one).

Or if there is a better solution then what I am planning
then so much the better.

Thanks

NJ Smith AMIAP

Yes, you can. I don't have an API book here to tell you how.

Something else that works though if the server is set to the same time zone
and time as the workstation is the Shell command.

Ex.
Dim RetVal as Variant
RetVal=Shell("command.com /c net time \\server /set /yes", vbHide)

Go to a command prompt and type Net Time /? and see if there are other
switches that you may need for your situation.

Wayne Morgan

how.

Thanks. Found the answer:

<--- CODE --->
Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type

Private Declare Function SetSystemTime Lib "kernel32" _
  (lpSystemTime As SYSTEMTIME) As Long
'

Public Sub SetDate()
  Dim lpSystemTime      As SYSTEMTIME
  Dim datDate           As Date

  datDate = #1/19/2001 11:59:59 PM#     'Alter to a
Dlookup Statement

  lpSystemTime.wYear = Format(datDate, "yyyy")
  lpSystemTime.wMonth = Format(datDate, "mm")
  lpSystemTime.wDay = Format(datDate, "dd")
  lpSystemTime.wHour = Format(datDate, "hh")
  lpSystemTime.wMinute = Format(datDate, "nn")
  lpSystemTime.wSecond = Format(datDate, "ss")
  lpSystemTime.wMilliseconds = 0

  'set the new time
  SetSystemTime lpSystemTime
End Sub
<--- END CODE --->

Also have a look at Gary Gibson's site www.grc.com where he has a very neat
solution for synchronising the server and network clients to atomic clocks.
Cheers
Terry