CreateGuid()

Function createGuid()

Set TypeLib = wscript.CreateObject("Scriptlet.TypeLib")
tg = TypeLib.Guid
createGuid = left(tg, len(tg)-2)

Set TypeLib = Nothing
End Function

wscript.echo CreateGuid