57 lines
1.6 KiB
Plaintext
57 lines
1.6 KiB
Plaintext
|
<HTML>
|
||
|
|
<HEAD>
|
||
|
|
<TITLE>Enumerate through properties</TITLE>
|
||
|
|
</HEAD>
|
||
|
|
<BODY>
|
||
|
|
<%
|
||
|
|
Dim MetaUtil
|
||
|
|
Dim Properties
|
||
|
|
Dim Property
|
||
|
|
|
||
|
|
'Create the MetaUtil object
|
||
|
|
Set MetaUtil = Server.CreateObject("MSWC.MetaUtil.1")
|
||
|
|
|
||
|
|
'Count then enumberate with a base Key of ""
|
||
|
|
Response.Write("<FONT SIZE=+1>Base key of """" </FONT><br>" + CHR(13) + CHR(10))
|
||
|
|
Response.Write("<br>" + CHR(13) + CHR(10))
|
||
|
|
|
||
|
|
Set Properties = MetaUtil.EnumProperties("")
|
||
|
|
|
||
|
|
Response.Write("Count the Properties:<br>" + CHR(13) + CHR(10))
|
||
|
|
Response.Write(Properties.Count)
|
||
|
|
Response.Write("<br>" + CHR(13) + CHR(10))
|
||
|
|
|
||
|
|
Response.Write("Enumerate the Properties:<br>" + CHR(13) + CHR(10))
|
||
|
|
For Each Property In Properties
|
||
|
|
Response.Write(Property.Id)
|
||
|
|
Response.Write("<br>" + CHR(13) + CHR(10))
|
||
|
|
Next
|
||
|
|
|
||
|
|
Response.Write("<br>" + CHR(13) + CHR(10))
|
||
|
|
|
||
|
|
'Count then enumberate with a base Key of "LM/W3SVC"
|
||
|
|
Response.Write("<FONT SIZE=+1>Base key of ""LM/W3SVC"" </FONT><br>" + CHR(13) + CHR(10))
|
||
|
|
Response.Write("<br>" + CHR(13) + CHR(10))
|
||
|
|
|
||
|
|
Set Properties = MetaUtil.EnumProperties("LM/W3SVC")
|
||
|
|
|
||
|
|
Response.Write("Count the Properties:<br>" + CHR(13) + CHR(10))
|
||
|
|
Response.Write(Properties.Count)
|
||
|
|
Response.Write("<br>" + CHR(13) + CHR(10))
|
||
|
|
|
||
|
|
Response.Write("Enumerate the Properties:<br>" + CHR(13) + CHR(10))
|
||
|
|
For Each Property In Properties
|
||
|
|
Response.Write(Property.Id)
|
||
|
|
Response.Write("<br>" + CHR(13) + CHR(10))
|
||
|
|
Next
|
||
|
|
|
||
|
|
Response.Write("<br>" + CHR(13) + CHR(10))
|
||
|
|
|
||
|
|
Response.Write("Done<br>")
|
||
|
|
|
||
|
|
'Clean up the reference to IIS.MetaUtil
|
||
|
|
Session.Abandon
|
||
|
|
|
||
|
|
%>
|
||
|
|
</BODY>
|
||
|
|
</HTML>
|