Updating Mime Types with ADSUTIL.vbs Results in Corrupted Mime Type Metabase Entries (248364)

SYMPTOMS

When you are creating or updating Mime Types with the Visual Basic Script ADSUTIL.vbs that ships with Microsoft Internet Information Server (IIS) 4.0 and above, the script can lead to a corrupted Mime Type Metabase entry.

CAUSE

There is an error in function MimeMapSet of the ADSUTIL.vbs script:

Function MimeMapSet(ObjectPath, ObjectParameter, MachineName)
       .
       .   (some lines removed)
       .

        ' Fill the list with mime entries
        For MimeEntryIndex = 0 To UBound(MimeMapList)

                MimeStr = Args(2 + MimeEntryIndex)
                MimeOutPutStr = MimeOutPutStr & """" & MimeStr & """ "

                Set MimeEntry = CreateObject("MimeMap")

ERROR -->       MimeEntry.MimeType = Right(MimeStr, InStr(MimeStr, ",") - 1)
                MimeEntry.Extension = Left(MimeStr, InStr(MimeStr, ",") - 1)

                Set MimeMapList(MimeEntryIndex) = MimeEntry
        Next

       .
       .   (some lines removed)
       .
End Function

The script line with the ERROR contains a wrong string calculation

RESOLUTION

Replace the line starting with "ERROR" in the "Cause" section with the following code:

                MimeEntry.MimeType = Right(MimeStr, len(MimeStr) - InStr (MimeStr, ","))

Now you can use the ADSUTIL.vbs script to update your Mime types. The following example shows how to replace the MimeMap of the Default Web Site with a new one that lists two Mime types:

cscript adsutil set w3svc/1/root/MimeMap ".hmtlx,text/html" ".htmla,text/html"

REFERENCES

More information on the ADSUTIL.vbs script can be found in: