Here ya go
<%
Function getGUID()
Dim myTypeLib
Set myTypeLib = Server.CreateObject("Scriptlet.Typelib")
getGUID = myTypeLib.guid
End Function
'get GUID
Dim strGUID
strGUID = getGuid()
'strip out {, }, and -
strGUID = Replace(strGUID, "{", "")
strGUID = Replace(strGUID, "}", "")
strGUID = Replace(strGUID, "-", "")
%>