Répertorie les paramètres de carte par défaut IIS MIME à l'aide de WSH

Traductions disponibles Traductions disponibles
Numéro d'article: 246068 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Résumé

Cet article explique comment créer un script Windows Script Host (WSH) pour répertorier les paramètres de mappage MIME (Multipurpose Internet Mail Extensions) par défaut pour un serveur exécutant Internet Information Services (IIS).

Plus d'informations

MIME (polyvalent Internet Mail Extensions) est un moyen de configurer des navigateurs ou des clients de messagerie pour afficher les fichiers qui se trouvent dans plusieurs formats basés sur un type MIME. Mappage MIME est un processus par lequel IIS mappe les fichiers par les extensions à un type MIME spécifique. Par exemple, un fichier portant une extension .htm possède un type MIME de « Text/HTML », tandis que celle un fichier portant une extension .gif en contient un type MIME de « image/GIF ».

Lorsqu'une demande est effectuée par un client d'un fichier particulier, IIS utilise la table MIME pour déterminer le type MIME correct le client recevoir. Services Internet (IIS) contient une liste grande de types de MIME par défaut à utiliser et renvoie un MIME type de « application/octet - flux de données » pour n'importe quel extension de fichier n'est pas explicitement mappée.

Lorsque les administrateurs Web créez ou stocker les nouveaux formats portant les extensions qui peuvent être non définies, le code suivant WSH peut aider à déterminer le contenu de la liste de types MIME par défaut en affichant une liste triée de toutes les définitions de type MIME en cours.

Liste de la table MIME par défaut

Copiez le code suivant WSH et enregistrez-le sous Mimemaps.vbs :
Option Explicit

Dim objMimeMap
Dim varMimeMap
Dim intMimeMap
Dim objDictionary
Dim intCount
Const dictKey  = 1
Const dictItem = 2

Set objDictionary = CreateObject("Scripting.Dictionary")
Set objMimeMap = GetObject("IIS://localhost/mimemap")
varMimeMap = objMimeMap.Get("MimeMap")

If IsArray(varMimeMap) Then
  For intCount = LBound(varMimeMap) To UBound(varMimeMap)
    objDictionary.Add varMimeMap(intCount).Extension, varMimeMap(intCount).MimeType
  Next
  SortDictionary objDictionary,dictKey
  intMimeMap = objDictionary.Count
  WScript.Echo "Total MIME Map Entries: " & intMimeMap & vbCrLf
  WScript.Echo "Extension" & vbTab & "MIME Type"
  For Each varMimeMap in objDictionary
    WScript.Echo varMimeMap & vbTab & objDictionary(varMimeMap)
  Next
End If

Function SortDictionary(objDict,intSort)
  Dim strDict()
  Dim objKey
  Dim strKey,strItem
  Dim X,Y,Z
  Z = objDict.Count
  If Z > 1 Then
    ReDim strDict(Z,2)
    X = 0
    For Each objKey In objDict
        strDict(X,dictKey)  = CStr(objKey)
        strDict(X,dictItem) = CStr(objDict(objKey))
        X = X + 1
    Next
    For X = 0 to (Z - 2)
      For Y = X to (Z - 1)
        If StrComp(strDict(X,intSort),strDict(Y,intSort),vbTextCompare) > 0 Then
            strKey  = strDict(X,dictKey)
            strItem = strDict(X,dictItem)
            strDict(X,dictKey)  = strDict(Y,dictKey)
            strDict(X,dictItem) = strDict(Y,dictItem)
            strDict(Y,dictKey)  = strKey
            strDict(Y,dictItem) = strItem
        End If
      Next
    Next
    objDict.RemoveAll
    For X = 0 to (Z - 1)
      objDict.Add strDict(X,dictKey), strDict(X,dictItem)
    Next
  End If
End Function
				

Exécutez le script WSH à partir d'une invite de commande à l'aide de la syntaxe suivante :
CSCRIPT.EXE C:\MIMEMAPS.VBS | PLUS
Le résultat doit être semblable au suivant :
Microsoft (R) Windows Script Host Version 5.1 for Windows
Copyright (C) Microsoft Corporation 1996-1999. All rights reserved.

Total MIME Map Entries: 189

Extension       MIME Type
.*      application/octet-stream
.323    text/h323
.acx    application/internet-property-stream
.ai     application/postscript
.aif    audio/x-aiff
.aifc   audio/aiff
.aiff   audio/aiff
.asf    video/x-ms-asf
.asr    video/x-ms-asf
.asx    video/x-ms-asf
.au     audio/basic
-- More  --
				

Microsoft fournit des exemples de programmation pour illustration uniquement, sans garantie explicite ou implicite. Cela inclut, mais n'est pas limité aux garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté et les outils qui sont utilisés pour créer et déboguer des procédures. Les techniciens du support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne sont pas modifier les exemples en vue de fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques.
https://partner.microsoft.com/global/30000104
Pour plus d'informations sur les options de support technique disponibles et sur la façon de contacter Microsoft, reportez-vous au site de Web Microsoft suivant :
http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Références

Pour plus d'informations sur les technologies scripts de Microsoft, consultez le site web Microsoft Developer Network à L'ADRESSE suivante :
http://msdn2.microsoft.com/en-us/library/ms950396.aspx

Propriétés

Numéro d'article: 246068 - Dernière mise à jour: mercredi 8 août 2007 - Version: 3.3
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Internet Information Services 5.0
Mots-clés : 
kbmt kbinfo KB246068 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 246068
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.
Exclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par conséquent fourni « en l'état » et ne sera plus mis à jour.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com