(VBScript) Generate ULID

See more ULID/UUID Examples

Generate a ULID using a specified timestamp or the current system date timestamp.

Important: Chilkat's ULID functionality was introduced in v9.5.0.94.

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")

' Set dt to the current system date/time.
success = dt.SetFromCurrentSystemTime()

' Generate a ULID for the current UTC date/time.
' (i.e. the current UTC UNIX-time)
utc = 1
ulid = dt.UlidGenerate(utc)
outFile.WriteLine(ulid)

' example result: 01GRGCH4J88RECEN4D4VK4F629

' Generate a ULID using the local timezone's current time.
utc = 0
ulid = dt.UlidGenerate(utc)
outFile.WriteLine(ulid)

' example result: 01GRH14AA82EY9A7S99YYF2QDY

' -----------------------------------------------
' To generate a ULID using a specific UNIX timestamp

' For example, the Unix timestamp for Sun, 05 Feb 2023 14:57:46 GMT
' is 1675609066

' For more information about the Epoch Unix Timestamp, see Epoch Unix Timestamp

' To generate a ULID from a specified date/time, set the CkDateTime and then generate the ULID.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CkDateTime")
set dt2 = CreateObject("Chilkat.CkDateTime")
utc = 1
success = dt2.SetFromUnixTime(utc,1675609066)
ulid = dt2.UlidGenerate(utc)
outFile.WriteLine(ulid)

' example result: 01GRH1AJGG3P5K04DJHN3QJCX3

outFile.Close