Leaked source code of windows server 2003
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
|
<HTML><HEAD><TITLE>Enumerate through properties</TITLE></HEAD><BODY><% 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("<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("Loop through the Properties:<br>" + CHR(13) + CHR(10)) For i = 1 To Properties.Count Response.Write(Properties.Item(i).Id) Response.Write("<br>" + CHR(13) + CHR(10)) Next
Response.Write("<br>" + CHR(13) + CHR(10))
Response.Write("Loop through the Properties (backwards) :<br>" + CHR(13) + CHR(10)) For i = Properties.Count To 1 Step -1 Response.Write(Properties.Item(i).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("Loop through the Properties:<br>" + CHR(13) + CHR(10)) For i = 1 To Properties.Count Response.Write(Properties.Item(i).Id) Response.Write("<br>" + CHR(13) + CHR(10)) Next
Response.Write("<br>" + CHR(13) + CHR(10))
Response.Write("Loop through the Properties (backwards) :<br>" + CHR(13) + CHR(10)) For i = Properties.Count To 1 Step -1 Response.Write(Properties.Item(i).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>
|
