Add then delete a key and properties

<% 'Metabase Constants Const METADATA_NO_ATTRIBUTES = &H0 Const METADATA_INHERIT = &H00000001 Const METADATA_PARTIAL_PATH = &H00000002 Const METADATA_SECURE = &H00000004 Const METADATA_REFERENCE = &H00000008 Const METADATA_VOLATILE = &H00000010 Const METADATA_ISINHERITED = &H00000020 Const METADATA_INSERT_PATH = &H00000040 Const IIS_MD_UT_SERVER = 1 Const IIS_MD_UT_FILE = 2 Const IIS_MD_UT_WAM = 100 Const ASP_MD_UT_APP = 101 Const ALL_METADATA = 0 Const DWORD_METADATA = 1 Const STRING_METADATA = 2 Const BINARY_METADATA = 3 Const EXPANDSZ_METADATA = 4 Const MULTISZ_METADATA = 5 'Carrage Return + Line Feed pair Dim CRLF CRLF = CHR(13) + CHR(10) Sub DisplayProperty(ByRef objProperty, ByRef strIndent) Dim strId Dim strAttr Dim intAttr Dim strUserType Dim intUserType Dim strDataType Dim intDataType Dim strData Dim i Dim arData strId = CStr(objProperty.Id) intAttr = objProperty.Attributes strAttr = " " If ((intAttr And METADATA_INHERIT) = METADATA_INHERIT) Then strAttr = strAttr & "inherit " End If If ((intAttr And METADATA_PARTIAL_PATH) = METADATA_PARTIAL_PATH) Then strAttr = strAttr & "partial_path " End If If ((intAttr And METADATA_SECURE) = METADATA_SECURE) Then strAttr = strAttr & "secure " End If If ((intAttr And METADATA_REFERENCE) = METADATA_REFERENCE) Then strAttr = strAttr & "reference " End If If ((intAttr And METADATA_VOLATILE) = METADATA_VOLATILE) Then strAttr = strAttr & "volatile " End If If ((intAttr And METADATA_ISINHERITED) = METADATA_ISINHERITED) Then strAttr = strAttr & "isinherited " End If If ((intAttr And METADATA_INSERT_PATH) = METADATA_INSERT_PATH) Then strAttr = strAttr & "insert_path " End If intUserType = objProperty.UserType If (intUserType = IIS_MD_UT_SERVER) Then strUserType = "server" ElseIf (intUserType = IIS_MD_UT_FILE) Then strUserType = "file" ElseIf (intUserType = IIS_MD_UT_WAM) Then strUserType = "wam" ElseIf (intUserType = ASP_MD_UT_APP) Then strUserType = "asp_app" Else strUserType = "*unknown*" End If intDataType = objProperty.DataType If (intDataType = ALL_METADATA) Then strDataType = "*all*" ElseIf (intDataType = DWORD_METADATA) Then strDataType = "dword" ElseIf (intDataType = STRING_METADATA) Then strDataType = "string" ElseIf (intDataType = BINARY_METADATA) Then strDataType = "binary" ElseIf (intDataType = EXPANDSZ_METADATA) Then strDataType = "expandsz" ElseIf (intDataType = MULTISZ_METADATA) Then strDataType = "multisz" Else strDataType = "*unknown*" End If 'Don't show secure data If ((intAttr And METADATA_SECURE) = METADATA_SECURE) Then strData = "*not displayed*" ElseIf (intDataType = BINARY_METADATA) Then 'Display as a list of bytes strData = "" For i = 1 To LenB(objProperty.Data) strData = strData & CInt(AscB(MidB(objProperty.Data, i, 1))) & " " Next ElseIf (intDataType = MULTISZ_METADATA) Then arData = objProperty.Data 'Display as a an intented list of strings, one on each line strData = "" For i = LBound(arData) To UBound(arData) strData = strData & CRLF & strIndent & " " & arData(i) Next Else strData = CStr(objProperty.Data) End If Response.Write(strIndent & strId & " A:" & strAttr & "UT: " & strUserType & _ " DT: " & strDataType & " D: " & StrData & CRLF) End Sub Dim MetaUtil Dim Keys Dim Key Dim Properties Dim Property 'Create the MetaUtil object Set MetaUtil = Server.CreateObject("MSWC.MetaUtil.1") 'Base Key of "LM/W3SVC" Response.Write("Base key of ""LM/W3SVC/1/ROOT""
" + CHR(13) + CHR(10)) Response.Write("
" + CHR(13) + CHR(10)) Set Keys = MetaUtil.EnumKeys("LM/W3SVC/1/ROOT") 'Enumerate the keys 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)) 'Create "LM/W3SVC/1/ROOT/ADDRMTEST" Response.Write("Create ""LM/W3SVC/1/ROOT/ADDRMTEST""
" + CHR(13) + CHR(10)) MetaUtil.CreateKey("LM/W3SVC/1/ROOT/ADDRMTEST") Response.Write("
" + CHR(13) + CHR(10)) 'Enumerate the keys 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)) Set Properties = MetaUtil.EnumProperties("LM/W3SVC/1/ROOT/ADDRMTEST") 'Enumerate the properties Response.Write("Enumerate the properties under ""LM/W3SVC/1/ROOT/ADDRMTEST"":
" + CHR(13) + CHR(10)) Response.Write("

" + CHR(13) + CHR(10))
   For Each Property In Properties
	DisplayProperty Property, ""
   Next
   Response.Write("

" + CHR(13) + CHR(10)) Response.Write("
" + CHR(13) + CHR(10)) 'Create 6016 (Access Flags) Response.Write("Create 6016 (Access Flags) = 513:
" + CHR(13) + CHR(10)) Set Property = MetaUtil.CreateProperty("LM/W3SVC/1/ROOT/ADDRMTEST", 6016) Property.Attributes = METADATA_INHERIT Property.UserType = IIS_MD_UT_FILE Property.DataType = DWORD_METADATA Property.Data = 513 Property.Write Response.Write("
" + CHR(13) + CHR(10)) 'Create 1099 (Win32 Error) Response.Write("Create 1099 (Win32 Error) = 0:
" + CHR(13) + CHR(10)) Set Property = MetaUtil.CreateProperty("LM/W3SVC/1/ROOT/ADDRMTEST", 1099) Property.Attributes = METADATA_INHERIT Property.UserType = IIS_MD_UT_SERVER Property.DataType = DWORD_METADATA Property.Data = 0 Property.Write Response.Write("
" + CHR(13) + CHR(10)) 'Create 3001 (Path) Response.Write("Create 3001 (Path) = c:\temp:
" + CHR(13) + CHR(10)) Set Property = MetaUtil.CreateProperty("LM/W3SVC/1/ROOT/ADDRMTEST", 3001) Property.Attributes = METADATA_INHERIT Property.UserType = IIS_MD_UT_FILE Property.DataType = STRING_METADATA Property.Data = "c:\temp" Property.Write Response.Write("
" + CHR(13) + CHR(10)) 'Create KeyType (1002) Response.Write("Create KeyType (1002) = IIsWebVirtualDir:
" + CHR(13) + CHR(10)) Set Property = MetaUtil.CreateProperty("LM/W3SVC/1/ROOT/ADDRMTEST", "KeyType") Property.Attributes = METADATA_NO_ATTRIBUTES Property.UserType = IIS_MD_UT_SERVER Property.DataType = STRING_METADATA Property.Data = "IIsWebVirtualDir" Property.Write Response.Write("
" + CHR(13) + CHR(10)) 'Create 13001 (Undefined) Response.Write("Create 13001 (Undefined) = {23 237 64}:
" + CHR(13) + CHR(10)) Set Property = MetaUtil.CreateProperty("LM/W3SVC/1/ROOT/ADDRMTEST", 13001) Property.Attributes = METADATA_NO_ATTRIBUTES Property.UserType = IIS_MD_UT_SERVER Property.DataType = BINARY_METADATA Property.Data = CHRB(23) + CHRB(237) + CHRB(64) Property.Write Response.Write("
" + CHR(13) + CHR(10)) 'Create 13002 (Undefined) Response.Write("Create 13002 (Undefined) = {""Hello"" ""World"" ""!""}:
" + CHR(13) + CHR(10)) Set Property = MetaUtil.CreateProperty("LM/W3SVC/1/ROOT/ADDRMTEST", 13002) Property.Attributes = METADATA_NO_ATTRIBUTES Property.UserType = IIS_MD_UT_SERVER Property.DataType = MULTISZ_METADATA Dim arData(3) arData(0) = "Hello" arData(1) = "World" arData(2) = "!" arData(3) = null Property.Data = arData Property.Write Response.Write("
" + CHR(13) + CHR(10)) 'Enumerate the properties Response.Write("Enumerate the properties under ""LM/W3SVC/1/ROOT/ADDRMTEST"":
" + CHR(13) + CHR(10)) Response.Write("

" + CHR(13) + CHR(10))
   For Each Property In Properties
	DisplayProperty Property, ""
   Next
   Response.Write("

" + CHR(13) + CHR(10)) Response.Write("
" + CHR(13) + CHR(10)) 'Delete ACCESSFLAGS (6016) Response.Write("Delete ACCESSFLAGS (6016):
" + CHR(13) + CHR(10)) MetaUtil.DeleteProperty "LM/W3SVC/1/ROOT/ADDRMTEST", "ACCESSFLAGS" Response.Write("
" + CHR(13) + CHR(10)) 'Delete 1002 Response.Write("Delete 1002 (KeyType):
" + CHR(13) + CHR(10)) MetaUtil.DeleteProperty "LM/W3SVC/1/ROOT/ADDRMTEST", 1002 Response.Write("
" + CHR(13) + CHR(10)) 'Enumerate the properties Response.Write("Enumerate the properties under ""LM/W3SVC/1/ROOT/ADDRMTEST"":
" + CHR(13) + CHR(10)) Response.Write("

" + CHR(13) + CHR(10))
   For Each Property In Properties
	DisplayProperty Property, ""
   Next
   Response.Write("

" + CHR(13) + CHR(10)) Response.Write("
" + CHR(13) + CHR(10)) 'Delete "LM/W3SVC/1/ROOT/ADDRMTEST" Response.Write("Delete ""LM/W3SVC/1/ROOT/ADDRMTEST""
" + CHR(13) + CHR(10)) MetaUtil.DeleteKey("LM/W3SVC/1/ROOT/ADDRMTEST") Response.Write("
" + CHR(13) + CHR(10)) 'Enumerate the keys 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 %>