Set objTypeLib = CreateObject("Scriptlet.TypeLib") guidNew = Left(objTypeLib.GUID, 38) Set objTypeLib = Nothing WScript.Echo(guidNew)