Sample code for 30+ languages & platforms
VBScript

Generate UUID

See more ULID/UUID Examples

Generates a version 4 UUID, using either uppercase or lowercase hex.

Chilkat VBScript Downloads

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)

set sb = CreateObject("Chilkat.StringBuilder")

' Generate a lowercase UUID.
lowercase = 1
success = sb.AppendUuid(lowercase)
outFile.WriteLine(sb.GetAsString())

' example: edb1bb24-e9be-4ada-98bd-c2d893f29f55

lowercase = 0
sb.Clear 
success = sb.AppendUuid(lowercase)
outFile.WriteLine(sb.GetAsString())

' example: 338EAF28-631E-4303-BE27-A8D80E9191CB

outFile.Close