>Requires WSH 5.6, but of course you already have that installed.
>

>oGUID = CreateObject("scriptlet.typelib")
>cGUID = Strtran(Strtran(Left(oGUID.GUID,38),"}",""),"{","")
>

This is smaller still *s*

oGUID = CreateObject("scriptlet.typelib")
cGUID = substr( oGUID.GUID, 2, 36 )