(VBScript) Get Current Date/Time as Timestamp (YYYY-MM-DDThh:mm:ssTZD)

Demonstrates how to get the current system date/time in YYYY-MM-DDThh:mm:ssTZD format.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CkDateTime")
set dt = CreateObject("Chilkat.CkDateTime")

success = dt.SetFromCurrentSystemTime()

' Get a UTC time.
bLocal = 0
timestamp = dt.GetAsTimestamp(bLocal)
outFile.WriteLine("Current UTC Time: " & timestamp)

' Get a local time.
bLocal = 1
timestamp = dt.GetAsTimestamp(bLocal)
outFile.WriteLine("Current Local Time: " & timestamp)

' Sample output:
' 
' Current UTC Time: 2022-03-01T00:48:58Z
' Current Local Time: 2022-02-28T18:48:58-06:00

outFile.Close