VBScript function to create a guid

The function below can be used to create a GUID in VBSCRIPT:

Function CreateGuid
	Set TypeLib = CreateObject("Scriptlet.TypeLib")
	CreateGuid = TypeLib.Guid
	Set TypeLib = Nothing
End Function