VBScript

Query NTP Server for Current Date/Time

Demonstrates how to query an NTP server to get the current date/time.

Note: This feature was added in Chilkat v9.5.0.96.

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

success = 0

' Specify the NTP server domain.
' Information is passed in a JSON object to allow for any unanticipated future optional information that might need to be provided.
set json = CreateObject("Chilkat.JsonObject")
success = json.UpdateString("ntp_server","pool.ntp.org")

' Query the NTP server for the current date/time.
set dt = CreateObject("Chilkat.CkDateTime")
success = dt.SetFromNtpServer(json.Emit())
If (success = 0) Then
    outFile.WriteLine(dt.LastErrorText)
    WScript.Quit
End If

' Show the date/time in various formats..
bLocalTime = 1
outFile.WriteLine(dt.GetAsTimestamp(bLocalTime))
outFile.WriteLine(dt.GetAsRfc822(bLocalTime))
outFile.WriteLine(dt.GetAsUnixTime(bLocalTime))

' Sample output:

' 2023-10-31T09:43:27-05:00
' Tue, 31 Oct 2023 09:43:27 -0500
' 1698745407

outFile.Close