MimeMapAdd()

Sub MimeMapAdd()


Dim strMimeType, strExtension
strMimeType = "application/octet-stream"
'strExtension = ".*"
strExtension = "." 'ワイルドカードは「.」または「*」が正しい（22/01/07小野美）
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
	'「.」「*」「.*」の定義が存在しない場合のみ追加する（22/01/07小野美）
	If aMimeMap.Extension = "." Or aMimeMap.Extension = "*" Or aMimeMap.Extension = ".*" 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