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 ' --- “o˜^ˆ— 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