(VBScript) Validate a ULID

See more ULID/UUID Examples

Checks to see if a ULID is valid.

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

' A ULID must be exactly 26 chars in length,
' and is composed of the following chars: 0123456789ABCDEFGHJKMNPQRSTVWXYZ
' Note: The ULID alphabet excludes the letters I, L, O, and U

' Here's a valid ULID
ulid = "01GRGCH4J88RECEN4D4VK4F629"
valid = dt.UlidValidate(ulid)
outFile.WriteLine("valid: " & valid)

' Here's an invalid ULID
ulid = "71GRGxx4Jr8RECEN4D4VK4F62!"
valid = dt.UlidValidate(ulid)
outFile.WriteLine("valid: " & valid)

outFile.Close