MimeMapAdd()

Sub MimeMapAdd()


Dim strMimeType, strExtension
strMimeType = "application/octet-stream"
strExtension = ".*"
Dim objMimeMap
Dim aryMimeMap
Dim aMimeMap
Dim blnFound
Dim nP


' --- 既存のMimeMapを検索する
blnFound = False
Set objMimeMap = GetObject("IIS://Localhost/MimeMap")
aryMimeMap = objMimeMap.GetEx("MimeMap")
For Each aMimeMap In aryMimeMap
If aMimeMap.MimeType = strMimeType _
And aMimeMap.Extension = strExtension Then
blnFound = True
End If
Next
If blnFound Then
Exit Sub
End If

' --- 登録処理
nP = UBound(aryMimeMap) + 1
ReDim Preserve aryMimeMap(nP)
Set aryMimeMap(nP) = Wscript.CreateObject("MimeMap")
aryMimeMap(nP).MimeType = strMimeType
aryMimeMap(nP).Extension = strExtension
objMimeMap.PutEx 2, "MimeMap", aryMimeMap
objMimeMap.SetInfo

End Sub