<%
Dim MetaUtil
Dim Properties
Dim i
'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 Properties = MetaUtil.EnumProperties("")
Response.Write("Count the Properties:
" + CHR(13) + CHR(10))
Response.Write(Properties.Count)
Response.Write("
" + CHR(13) + CHR(10))
Response.Write("Loop through the Properties:
" + CHR(13) + CHR(10))
For i = 1 To Properties.Count
Response.Write(Properties.Item(i).Id)
Response.Write("
" + CHR(13) + CHR(10))
Next
Response.Write("
" + CHR(13) + CHR(10))
Response.Write("Loop through the Properties (backwards) :
" + CHR(13) + CHR(10))
For i = Properties.Count To 1 Step -1
Response.Write(Properties.Item(i).Id)
Response.Write("
" + CHR(13) + CHR(10))
Next
Response.Write("
" + CHR(13) + CHR(10))
'Count then enumberate with a base Key of "LM/W3SVC"
Response.Write("Base key of ""LM/W3SVC""
" + CHR(13) + CHR(10))
Response.Write("
" + CHR(13) + CHR(10))
Set Properties = MetaUtil.EnumProperties("LM/W3SVC")
Response.Write("Count the Properties:
" + CHR(13) + CHR(10))
Response.Write(Properties.Count)
Response.Write("
" + CHR(13) + CHR(10))
Response.Write("Loop through the Properties:
" + CHR(13) + CHR(10))
For i = 1 To Properties.Count
Response.Write(Properties.Item(i).Id)
Response.Write("
" + CHR(13) + CHR(10))
Next
Response.Write("
" + CHR(13) + CHR(10))
Response.Write("Loop through the Properties (backwards) :
" + CHR(13) + CHR(10))
For i = Properties.Count To 1 Step -1
Response.Write(Properties.Item(i).Id)
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
%>