iis添加 mime 映射_以编程方式将Mime类型添加到IIS

iis添加 mime 映射

Can you add Mime Types to IIS programmatically? KBs say no: http://support.microsoft.com/kb/q142558/

您可以通过编程将Mime类型添加到IIS吗？ KB拒绝： http ： //support.microsoft.com/kb/q142558/

This VBS will though: (Update: This guy did essentially the same thing!)

但是，该VBS会：(更新：这个家伙做的基本上是一样的！)

Dim LocalMimeMap, MimeMap
Dim ExtensionToAdd, MimeTypeToAdd
Dim i
Const ADS_PROPERTY_UPDATE = 2
Set LocalMimeMap = GetObject("IIS://localhost/MimeMap")
MimeMap = LocalMimeMap.GetEx("MimeMap")
ExtensionToAdd = InputBox("Extension:","IIS") 'TODO Take this from the Command Line
MimeTypeToAdd = InputBox("MIME Type:","IIS") 'TODO Take this from the Command Line
i = UBound(MimeMap)+1
Redim Preserve MimeMap(i) 'Make it bigger and maintain its contents
Set MimeMap(i) = CreateObject("MimeMap") 'Add onto the end
MimeMap(i).Extension = ExtensionToAdd
MimeMap(i).MimeType = MimeTypeToAdd
LocalMimeMap.PutEx ADS_PROPERTY_UPDATE,"MimeMap",MimeMap 'Poke it back in
LocalMimeMap.SetInfo

Dim LocalMimeMap，MimeMap Dim ExtensionToAdd，MimeTypeToAdd 昏暗的我常量ADS_PROPERTY_UPDATE = 2 设置LocalMimeMap = GetObject(“ IIS：// localhost / MimeMap”) MimeMap = LocalMimeMap.GetEx(“ MimeMap”) ExtensionToAdd = InputBox(“ Extension：”，“ IIS”)'TODO从命令行获取MimeTypeToAdd = InputBox(“ MIME Type：”，“ IIS”)'TODO从命令行获取我= UBound(MimeMap)+1 Redim Preserve MimeMap(i)'将其放大并维护其内容设置MimeMap(i)= CreateObject(“ MimeMap”)'添加到最后MimeMap(i).Extension = ExtensionToAdd MimeMap(i).MimeType = MimeTypeToAdd LocalMimeMap.PutEx ADS_PROPERTY_UPDATE，“ MimeMap”，MimeMap'将其重新插入LocalMimeMap.SetInfo

翻译自: https://www.hanselman.com/blog/programmatically-adding-mime-types-to-iis

iis添加 mime 映射