<%
Dim MetaUtil
Dim Keys
Dim Key
'Create the MetaUtil object
Set MetaUtil = Server.CreateObject("MSWC.MetaUtil.1")
'Count then enumberate with a base Key of ""
Response.Write("Base key of """"
" + CHR(13) + CHR(10))
Response.Write("
" + CHR(13) + CHR(10))
Set Keys = MetaUtil.EnumAllKeys("")
Response.Write("Count the Keys:
" + CHR(13) + CHR(10))
Response.Write(Keys.Count)
Response.Write("
" + CHR(13) + CHR(10))
Response.Write("
" + CHR(13) + CHR(10))
Response.Write("Enumerate the Keys:
" + CHR(13) + CHR(10))
For Each Key In Keys
Response.Write(Key)
Response.Write("
" + CHR(13) + CHR(10))
Next
Response.Write("
" + CHR(13) + CHR(10))
'Count then enumberate with a base Key of "LM/Schema/Classes"
Response.Write("Base key of ""LM/Schema/Classes""
" + CHR(13) + CHR(10))
Response.Write("
" + CHR(13) + CHR(10))
Set Keys = MetaUtil.EnumAllKeys("LM/Schema/Classes")
Response.Write("Count the Keys:
" + CHR(13) + CHR(10))
Response.Write(Keys.Count)
Response.Write("
" + CHR(13) + CHR(10))
Response.Write("
" + CHR(13) + CHR(10))
Response.Write("Enumerate the Keys:
" + CHR(13) + CHR(10))
For Each Key In Keys
Response.Write(Key)
Response.Write("
" + CHR(13) + CHR(10))
Next
Response.Write("
" + CHR(13) + CHR(10))
Response.Write("Done
")
'Clean up the reference to IIS.MetaUtil
Session.Abandon
%>