Microsoft KB Archive/248364

From BetaArchive Wiki
Knowledge Base

Article ID: 248364

Article Last Modified on 6/30/2004


  • Microsoft Internet Information Server 4.0
  • Microsoft Internet Information Services 5.0

This article was previously published under Q248364


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.


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

       .   (some lines removed)
End Function

The script line with the ERROR contains a wrong string calculation


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"



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

240225 Description of Adsutil and MetaEdit Used to Modify the Metabase

Keywords: kbprb KB248364