Folgendes Script erstellt eine GUID
Set oTL = CreateObject("Scriptlet.TypeLib")
newGuid = Left(oTL.Guid,38)
Das Abschneiden der ersten 38 Zeichen ist notwendig, da die Guid Funktion am Ende noch irgendwas dranhängt. Bei jedem erneuten Aufruf der Guid Funktion wird eine neue GUID erstellt.