You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
45 lines
1.1 KiB
Plaintext
45 lines
1.1 KiB
Plaintext
Dim strExt
|
|
Dim myValue
|
|
Dim strNothing
|
|
Dim strBuild
|
|
Dim i
|
|
Dim iValue
|
|
|
|
Set myValue = GetObject("IIS://LocalHost/W3SVC/1/root")
|
|
|
|
'Returns an array multi valued list
|
|
'Puts the values in a local array variable myArray
|
|
myArray = myValue.Get("ScriptMaps")
|
|
|
|
'Loops through building a string
|
|
'based on myArray list of values
|
|
For i = 0 To UBound(myArray)
|
|
iValue = InStr(myArray(i), ",")
|
|
strExt = Left(myArray(i), iValue - 1)
|
|
|
|
Select Case strExt
|
|
|
|
Case ".idq", ".ida", ".printer", ".htw", ".htr"
|
|
'Builds a bogus string of un-needed mappings
|
|
strNothing = strNothing & myArray(i)
|
|
|
|
Case Else
|
|
'Builds a string of mappings with
|
|
'the # as the delimiter
|
|
strBuild = strBuild & myArray(i) & "#"
|
|
End Select
|
|
Next
|
|
|
|
'Returns a 1-dimensinonal array based
|
|
'on the string i build existing values
|
|
strBuild = Split(strBuild, "#")
|
|
|
|
'Clears current Script Mappings in the metabase
|
|
myValue.Put "ScriptMaps", vbNull
|
|
|
|
'Inserts values without un-needed mappings into metabase
|
|
myValue.Put "ScriptMaps", strBuild
|
|
myValue.SetInfo
|
|
Set myValue = Nothing
|
|
|