Partager via


Paramètres d’isolation d’utilisateur FTP par défaut <userIsolation>

Vue d’ensemble

L’élément <userIsolation> est utilisé pour démarrer ou restreindre les clients FTP dans des sections spécifiques d’un site FTP. En fonction des options spécifiées dans l’élément <userIsolation>, les administrateurs de serveur peuvent empêcher l’accès non autorisé entre les utilisateurs dans un environnement de serveur partagé où un seul site FTP est partagé entre les comptes d’utilisateur multiple.

L’isolation des utilisateurs FTP a été introduite dans IIS 6.0, mais a été considérablement mise à jour dans FTP 7.0 et FTP 7.5. Toutes les fonctionnalités d’isolation utilisateur FTP précédentes restent disponibles pour la compatibilité descendante, mais les options suivantes sont désormais possibles pour le mode d’isolation utilisateur :

Mode Description
None La spécification de ce mode dans FTP 7.0 et FTP 7.5 configure l’isolation utilisateur pour toujours démarrer des clients FTP à la racine du site FTP. (Cela n’était pas possible dans IIS 6.0.) Remarque : s’ils disposent d’autorisations suffisantes, tout utilisateur FTP peut potentiellement accéder au contenu d’un autre utilisateur FTP au sein de ce site FTP.
StartInUsersDirectory Dans IIS 6.0, si un répertoire existe avec le même nom qu’un compte d’utilisateur et qu’une isolation utilisateur a été désactivé, les clients FTP démarrent dans l’annuaire pour le nom d’utilisateur. Cela est toujours possible dans FTP 7.0 et FTP 7.5 en spécifiant StartInUsersDirectory pour le mode. Remarque : s’ils disposent d’autorisations suffisantes, tout utilisateur FTP peut potentiellement accéder au contenu d’un autre utilisateur FTP au sein de ce site FTP.
IsolateRootDirectoryOnly Dans IIS 6.0, il était possible d’utiliser des répertoires virtuels globaux si vous avez activé l’isolation des utilisateurs et créé des répertoires physiques pour que les utilisateurs démarrent lorsqu’ils se connectent au serveur pour la première fois. Si vous souhaitez partager du contenu entre un certain nombre d’utilisateurs FTP, vous pouvez créer des répertoires virtuels globaux. Cette option est toujours disponible dans FTP 7.0 et FTP 7.5 en spécifiant IsolateRootDirectoryOnly pour le mode.
IsolateAllDirectories Lorsque vous spécifiez ce mode dans FTP 7.0 et FTP 7.5, les clients FTP démarrent dans un répertoire qui correspond au nom de leur compte d’utilisateur lorsqu’ils se connectent pour la première fois au serveur. En utilisant ce mode, vous pouvez utiliser des répertoires virtuels pour chacun de ces comptes. Vous n’êtes plus obligé de créer un répertoire physique. (Cela n’était pas possible dans IIS 6.0.) Toutefois, si vous utilisez cette option, vous ne pouvez plus utiliser de répertoires virtuels globaux. Pour partager un dossier entre plusieurs utilisateurs FTP, vous devez créer un répertoire virtuel sur le chemin global de chaque utilisateur.
ActiveDirectory Lorsque vous spécifiez ce mode dans FTP 7.0 et FTP 7.5, le service FTP récupère les paramètres d’isolation utilisateur à partir du compte de chaque utilisateur dans ses paramètres Active Directory. Ce mode fonctionne de la même façon que IIS 6.0.
Personnalisée Avec FTP 7.5, vous pouvez désormais spécifier Personnalisé pour le mode d’isolation utilisateur. Ce mode vous permet d’utiliser l’extensibilité FTP pour fournir une isolation utilisateur personnalisée en créant un fournisseur FTP personnalisé.

Lorsque vous utilisez les modes IsolateRootDirectoryOnly ou IsolateAllDirectories pour l’isolation de l’utilisateur, les chemins d’accès au répertoire physique ou virtuel doivent utiliser la hiérarchie suivante :

Types de comptes d’utilisateur Syntaxe du répertoire d’accueil
Utilisateurs anonymes %FtpRoot%\LocalUser\Public
Comptes d’utilisateur Windows locaux (nécessite l’authentification de base) %FtpRoot%\LocalUser\%UserName%
Comptes de domaine Windows (nécessite l’authentification de base) %FtpRoot%\%UserDomain%\%UserName%
Comptes d’utilisateur d’authentification personnalisés du Gestionnaire IIS ou d’ASP.NET %FtpRoot%\LocalUser\%UserName%

Compatibilité

Version Notes
IIS 10.0 L’élément <userIsolation> n’a pas été modifié dans IIS 10.0.
IIS 8.5 L’élément <userIsolation> n’a pas été modifié dans IIS 8.5.
IIS 8.0 L’élément <userIsolation> n’a pas été modifié dans IIS 8.0.
IIS 7.5 L’élément <userIsolation> de l’élément <ftpServer> est fourni en tant que fonctionnalité d’IIS 7.5.
IIS 7.0 L’élément <userIsolation> de l’élément <ftpServer> a été introduit dans FTP 7.0, qui était un téléchargement distinct pour IIS 7.0.
IIS 6.0 N/A

Remarque

Les services FTP 7.0 et FTP 7.5 ont été expédiés hors bande pour IIS 7.0, ce qui nécessite le téléchargement et l’installation des modules à partir de l’URL suivante :

https://www.iis.net/expand/FTP

Avec Windows 7 et Windows Server 2008 R2, le service FTP 7.5 est fourni en tant que fonctionnalité pour IIS 7.5. Le téléchargement du service FTP n’est donc plus nécessaire.

Programme d’installation

Pour prendre en charge la publication FTP pour votre serveur web, vous devez installer le service FTP. Pour cela, procédez comme suit.

Windows Server 2012 ou Windows Server 2012 R2

  1. Dans la barre des tâches, cliquez sur Gestionnaire de serveur.

  2. Dans Gestionnaire de serveur, cliquez sur le menu Gérer, puis sur Ajouter des rôles et des fonctionnalités.

  3. Dans l’Assistant Ajout de rôles et de fonctionnalités, cliquez sur Suivant. Sélectionnez le type d’installation, puis cliquez sur Suivant. Sélectionnez le serveur de destination, puis cliquez sur Suivant.

  4. Dans la page Rôles serveur, développez Serveur web (IIS),puis sélectionnez Serveur FTP.

    Remarque

    Pour prendre en charge l’authentification ASP.Membership ou l’authentification du Gestionnaire IIS pour le service FTP, vous devez sélectionner Extensibilité FTP en plus de Service FTP.
    Screenshot of the Windows server 2012 or 2012 R2 Roles list. .

  5. Cliquez sur Suivant, puis, dans la page Sélectionner des fonctionnalités, cliquez à nouveau sur Suivant.

  6. Dans la page Confirmer les sélections d’installation, cliquez sur Installer.

  7. Dans la page Résultats , cliquez sur Fermer.

Windows 8 ou Windows 8.1

  1. Dans l’écran d’accueil, déplacez le pointeur jusqu’au coin inférieur gauche, cliquez avec le bouton droit sur le bouton Démarrer, puis cliquez sur Panneau de configuration.

  2. Dans Panneau de configuration, cliquez sur Programmes et fonctionnalités, puis sur Activer ou désactiver des fonctionnalités Windows.

  3. Développez Internet Information Services, puis sélectionnez Serveur FTP.

    Remarque

    Pour prendre en charge l’authentification ASP.Membership ou l’authentification du Gestionnaire IIS pour le service FTP, vous devez également sélectionner Extensibilité FTP.
    Screenshot of the Windows 8 or 8.1 Windows Features dialog.

  4. Cliquez sur OK.

  5. Cliquez sur Fermer.

Windows Server 2008 R2

  1. Dans la barre des tâches, cliquez sur Démarrer, pointez sur Outils d’administration, puis cliquez sur Gestionnaire de serveur.

  2. Dans le volet hiérarchie du Gestionnaire de serveur, développez Rôles, puis cliquez sur Serveur web (IIS).

  3. Dans le volet Serveur web (IIS), faites défiler jusqu’à la section Services de rôle, puis cliquez sur Ajouter des services de rôle.

  4. Dans la page Sélectionner des services de rôle de l’Assistant Ajouter des services de rôle, développez le Serveur FTP.

  5. Sélectionnez Service FTP.

    Remarque

    Pour prendre en charge l’authentification ASP.Membership ou l’authentification du Gestionnaire IIS pour le service FTP, vous devez également sélectionner Extensibilité FTP.
    Screenshot of the Windows Server 2008 R2 Add Role Services window.

  6. Sélectionnez Suivant.

  7. Dans la page Confirmer les sélections pour l'installation, cliquez sur Installer.

  8. Dans la page Résultats , cliquez sur Fermer.

Windows 7

  1. Dans la barre des tâches, cliquez sur Démarrer, puis sur Panneau de configuration.

  2. Dans Panneau de configuration, cliquez sur Programmes et fonctionnalités, puis sur Activer ou désactiver des fonctionnalités Windows.

  3. Développez Internet Information Services, puis Serveur FTP.

  4. Sélectionnez Service FTP.

    Remarque

    Pour prendre en charge l’authentification ASP.Membership ou l’authentification du Gestionnaire IIS pour le service FTP, vous devez également sélectionner Extensibilité FTP.
    Screenshot of the Windows 7 Features dialog box.

  5. Cliquez sur OK.

Windows Server 2008 ou Windows Vista

  1. Téléchargez le package d’installation à partir de l’URL suivante :

  2. Suivez les instructions de la procédure pas à pas suivante pour installer le service FTP :

Procédure

Comment isoler les utilisateurs dans des répertoires virtuels

  1. Ouvrez le Gestionnaire des services Internet (IIS) :

    • Si vous utilisez Windows Server 2012 ou Windows Server 2012 R2 :

      • Dans la barre des tâches, cliquez sur Gestionnaire de serveur, cliquez sur Outils, puis sur Gestionnaire Internet Information Services (IIS).
    • Si vous utilisez Windows 8 ou Windows 8.1 :

      • Maintenez la touche Windows enfoncée, appuyez sur la lettre X, puis cliquez sur Panneau de configuration.
      • Cliquez sur Outils d’administration, puis double-cliquez sur Gestionnaire Internet Information Services (IIS).
    • Si vous utilisez Windows Server 2008 ou Windows Server 2008 R2 :

      • Cliquez sur Démarrer, placez le curseur sur Outils d’administration, puis cliquez sur Gestionnaire Internet Information Services (IIS).
    • Si vous utilisez Windows Vista ou Windows 7 :

      • Dans la barre des tâches, cliquez sur Démarrer, puis sur Panneau de configuration.
      • Double-cliquez sur Outils d’administration, puis double-cliquez sur Gestionnaire Internet Information Services (IIS).
  2. Dans le volet Connexions, développez le nom du serveur, développez le nœud Sites puis cliquez sur le nom du site.

  3. Dans le volet Accueil du site, double-cliquez sur Isolation des utilisateurs FTP.
    Screenshot of the I I S Manager window showing the website home. The F T P User Isolation icon is selected.

  4. Sur la page isolation des utilisateurs FTP, sous Isoler les utilisateurs. Restreindre les utilisateurs au répertoire suivant :, sélectionnez Répertoire de nom d’utilisateur (désactiver les répertoires virtuels globaux).
    Screenshot of the I I S Manager window showing the F T P User Isolation window.

  5. Dans le volet Actions, cliquez sur Appliquer.


Comment isoler les utilisateurs à l’aide d’Active Directory

  1. Ouvrez le Gestionnaire des services Internet (IIS) :

    • Si vous utilisez Windows Server 2012 ou Windows Server 2012 R2 :

      • Dans la barre des tâches, cliquez sur Gestionnaire de serveur, cliquez sur Outils, puis sur Gestionnaire Internet Information Services (IIS).
    • Si vous utilisez Windows 8 ou Windows 8.1 :

      • Maintenez la touche Windows enfoncée, appuyez sur la lettre X, puis cliquez sur Panneau de configuration.
      • Cliquez sur Outils d’administration, puis double-cliquez sur Gestionnaire Internet Information Services (IIS).
    • Si vous utilisez Windows Server 2008 ou Windows Server 2008 R2 :

      • Cliquez sur Démarrer, placez le curseur sur Outils d’administration, puis cliquez sur Gestionnaire Internet Information Services (IIS).
    • Si vous utilisez Windows Vista ou Windows 7 :

      • Dans la barre des tâches, cliquez sur Démarrer, puis sur Panneau de configuration.
      • Double-cliquez sur Outils d’administration, puis double-cliquez sur Gestionnaire Internet Information Services (IIS).
  2. Dans le volet Connexions, développez le nom du serveur, développez le nœud Sites puis cliquez sur le nom du site.

  3. Dans le volet Accueil du site, double-cliquez sur Isolation des utilisateurs FTP.
    Screenshot of the I I S Manager window showing the website Home in the main pane. The F T P user isolation icon is selected.

  4. Sur la page isolation des utilisateurs FTP, sous Isoler les utilisateurs. Limiter les utilisateurs au répertoire suivant :, sélectionnez Répertoire de base FTP configuré dans Active Directory, puis cliquez sur Définir.
    Screenshot of the I I S Manager window showing F T P user isolation in the main pane.

  5. Dans la boîte de dialogue Définir les informations d’identification, entrez un nom d’utilisateur et un mot de passe dans les zones Nom d’utilisateur et Mot de passe. Entrez à nouveau le mot de passe dans la zone Confirmer le mot de passe puis cliquez sur OK.

  6. Dans le volet Actions, cliquez sur Appliquer.

Pour plus d’informations sur la configuration d’Active Directory, consultez la section « Isoler les utilisateurs à l’aide du mode Active Directory » dans la rubrique Hébergement de plusieurs sites FTP avec isolation utilisateur FTP (IIS 6.0).

Configuration

Attributs

Attribut Description
mode Attribut enum facultatif.

Spécifie le mode d’isolation utilisateur.
Nom Description
StartInUsersDirectory Spécifie que l’isolation de l’utilisateur ne doit pas être utilisée mais qu’il faut démarré une session dans le répertoire de l’utilisateur s’il existe.

La valeur numérique est 0.
IsolateRootDirectoryOnly

Spécifie que l’isolation de l’utilisateur doit isoler uniquement le répertoire racine. Les répertoires de base des utilisateurs doivent être des répertoires physiques et les répertoires virtuels globaux peuvent toujours être utilisés.

La valeur numérique est 1.

ActiveDirectory Isole les utilisateurs en fonction des paramètres Active Directory.

La valeur numérique est 2.
IsolateAllDirectories

Spécifie que l’isolation de l’utilisateur doit isoler tous les répertoires. Les répertoires de base de l’utilisateur peuvent être des répertoires physiques ou des répertoires virtuels, mais les répertoires virtuels globaux sont ignorés. Tous les répertoires virtuels doivent être créés explicitement sous le chemin d’accueil de chaque utilisateur.

La valeur numérique est 3.

None Spécifie qu’aucune isolation utilisateur ne doit être utilisée.

La valeur numérique est 4.
Custom Spécifie qu’un fournisseur FTP personnalisé implémente l’isolation utilisateur.

La valeur numérique est 5.
La valeur par défaut est None.

Éléments enfants

Élément Description
activeDirectory Élément facultatif.

Spécifie les informations d’identification de connexion et le délai d’attente pour communiquer avec un serveur Active Directory.

Exemple Configuration

L’exemple suivant affiche un <userIsolation> élément pour un site FTP qui configure le service FTP afin d’utiliser Active Directory pour l’isolation utilisateur de ce site et configure les informations d’identification pour la connexion au serveur Active Directory.

<site name="ftp.example.com" id="5">
  <application path="/">
    <virtualDirectory path="/" physicalPath="c:\inetpub\www.example.com" />
  </application>
  <bindings>
    <binding protocol="ftp" bindingInformation="*:21:" />
  </bindings>
  <ftpServer>
    <userIsolation mode="ActiveDirectory">
      <activeDirectory adUserName="MyUser"
        adPassword="[enc:RsaProtectedConfigurationProvider:57686f6120447564652c2049495320526f636b73:enc]"
        adCacheRefresh="00:02:00" />
    </userIsolation>
    <security>
      <authentication>
        <basicAuthentication enabled="true" />
        <anonymousAuthentication enabled="false" />
      </authentication>
    </security>
  </ftpServer>
</site>

Exemple de code

Les exemples suivants configurent l’isolation des utilisateurs Active Directory pour un site FTP.

AppCmd.exe

appcmd.exe set config  -section:system.applicationHost/sites /[name='ftp.example.com'].ftpServer.userIsolation.mode:"ActiveDirectory" /commit:apphost
appcmd.exe set config  -section:system.applicationHost/sites /[name='ftp.example.com'].ftpServer.userIsolation.activeDirectory.adUserName:"MyUser" /[name='ftp.example.com'].ftpServer.userIsolation.activeDirectory.adPassword:"MyPassword" /[name='ftp.example.com'].ftpServer.userIsolation.activeDirectory.adCacheRefresh:"00:02:00" /commit:apphost

Remarque

Vous devez veiller à définir le paramètre commit sur apphost quand vous utilisez AppCmd.exe pour configurer ces paramètres. Cela valide les paramètres de configuration dans la section d’emplacement appropriée dans le fichier ApplicationHost.config.

C#

using System;
using System.Text;
using Microsoft.Web.Administration;

internal static class Sample {

    private static void Main() {
        
        using(ServerManager serverManager = new ServerManager()) { 
            Configuration config = serverManager.GetApplicationHostConfiguration();
            
            ConfigurationSection sitesSection = config.GetSection("system.applicationHost/sites");
            
            ConfigurationElementCollection sitesCollection = sitesSection.GetCollection();
            
            ConfigurationElement siteElement = FindElement(sitesCollection, "site", "name", @"ftp.example.com");
            if (siteElement == null) throw new InvalidOperationException("Element not found!");

            ConfigurationElement ftpServerElement = siteElement.GetChildElement("ftpServer");
            
            ConfigurationElement userIsolationElement = ftpServerElement.GetChildElement("userIsolation");
            userIsolationElement["mode"] = @"ActiveDirectory";
            
            ConfigurationElement activeDirectoryElement = userIsolationElement.GetChildElement("activeDirectory");
            activeDirectoryElement["adUserName"] = @"MyUser";
            activeDirectoryElement["adPassword"] = @"MyPassword";
            activeDirectoryElement["adCacheRefresh"] = TimeSpan.Parse("00:02:00");
            
            serverManager.CommitChanges();
        }
    }
    
       private static ConfigurationElement FindElement(ConfigurationElementCollection collection, string elementTagName, params string[] keyValues)
   {
      foreach (ConfigurationElement element in collection)
      {
         if (String.Equals(element.ElementTagName, elementTagName, StringComparison.OrdinalIgnoreCase))
         {
            bool matches = true;
            for (int i = 0; i < keyValues.Length; i += 2)
            {
               object o = element.GetAttributeValue(keyValues[i]);
               string value = null;
               if (o != null)
               {
                  value = o.ToString();
               }
               if (!String.Equals(value, keyValues[i + 1], StringComparison.OrdinalIgnoreCase))
               {
                  matches = false;
                  break;
               }
            }
            if (matches)
            {
               return element;
            }
         }
      }
      return null;
   }
}

VB.NET

Imports System
Imports System.Text
Imports Microsoft.Web.Administration

Module Sample
   Sub Main()
      Dim serverManager As ServerManager = New ServerManager
      Dim config As Configuration = serverManager.GetApplicationHostConfiguration
      Dim sitesSection As ConfigurationSection = config.GetSection("system.applicationHost/sites")
      Dim sitesCollection As ConfigurationElementCollection = sitesSection.GetCollection

      Dim siteElement As ConfigurationElement = FindElement(sitesCollection, "site", "name", "ftp.example.com")
      If (siteElement Is Nothing) Then
         Throw New InvalidOperationException("Element not found!")
      End If

      Dim ftpServerElement As ConfigurationElement = siteElement.GetChildElement("ftpServer")

      Dim userIsolationElement As ConfigurationElement = ftpServerElement.GetChildElement("userIsolation")
      userIsolationElement("mode") = "ActiveDirectory"

      Dim activeDirectoryElement As ConfigurationElement = userIsolationElement.GetChildElement("activeDirectory")
      activeDirectoryElement("adUserName") = "MyUser"
      activeDirectoryElement("adPassword") = "MyPassword"
      activeDirectoryElement("adCacheRefresh") = TimeSpan.Parse("00:02:00")

      serverManager.CommitChanges()
   End Sub

   Private Function FindElement(ByVal collection As ConfigurationElementCollection, ByVal elementTagName As String, ByVal ParamArray keyValues() As String) As ConfigurationElement
      For Each element As ConfigurationElement In collection
         If String.Equals(element.ElementTagName, elementTagName, StringComparison.OrdinalIgnoreCase) Then
            Dim matches As Boolean = True
            Dim i As Integer
            For i = 0 To keyValues.Length - 1 Step 2
               Dim o As Object = element.GetAttributeValue(keyValues(i))
               Dim value As String = Nothing
               If (Not (o) Is Nothing) Then
                  value = o.ToString
               End If
               If Not String.Equals(value, keyValues((i + 1)), StringComparison.OrdinalIgnoreCase) Then
                  matches = False
                  Exit For
               End If
            Next
            If matches Then
               Return element
            End If
         End If
      Next
      Return Nothing
   End Function


End Module

JavaScript

var adminManager = new ActiveXObject('Microsoft.ApplicationHost.WritableAdminManager');
adminManager.CommitPath = "MACHINE/WEBROOT/APPHOST";

var sitesSection = adminManager.GetAdminSection("system.applicationHost/sites", "MACHINE/WEBROOT/APPHOST");
var sitesCollection = sitesSection.Collection;
var siteElementPos = FindElement(sitesCollection, "site", ["name", "ftp.example.com"]);
if (siteElementPos == -1) throw "Element not found!";

var siteElement = sitesCollection.Item[siteElementPos]);
var ftpServerElement = siteElement.ChildElements.Item("ftpServer");
var userIsolationElement = ftpServerElement.ChildElements.Item("userIsolation");
userIsolationElement.Properties.Item("mode").Value = "ActiveDirectory";
var activeDirectoryElement = userIsolationElement.ChildElements.Item("activeDirectory");

activeDirectoryElement.Properties.Item("adUserName").Value = "MyUser";
activeDirectoryElement.Properties.Item("adPassword").Value = "MyPassword";
activeDirectoryElement.Properties.Item("adCacheRefresh").Value = "00:02:00";
adminManager.CommitChanges();

function FindElement(collection, elementTagName, valuesToMatch) {
   for (var i = 0; i < collection.Count; i++) {
      var element = collection.Item(i);
      if (element.Name == elementTagName) {
         var matches = true;
         for (var iVal = 0; iVal < valuesToMatch.length; iVal += 2) {
            var property = element.GetPropertyByName(valuesToMatch[iVal]);
            var value = property.Value;
            if (value != null) {
               value = value.toString();
            }
            if (value != valuesToMatch[iVal + 1]) {
               matches = false;
               break;
            }
         }
         if (matches) {
            return i;
         }
      }
   }
   return -1;
}

VBScript

Set adminManager = createObject("Microsoft.ApplicationHost.WritableAdminManager")
adminManager.CommitPath = "MACHINE/WEBROOT/APPHOST"
Set sitesSection = adminManager.GetAdminSection("system.applicationHost/sites", "MACHINE/WEBROOT/APPHOST")
Set sitesCollection = sitesSection.Collection

siteElementPos = FindElement(sitesCollection, "site", Array("name", "ftp.example.com"))
If siteElementPos = -1 Then
   WScript.Echo "Element not found!"
   WScript.Quit
End If

Set siteElement = sitesCollection.Item(siteElementPos)
Set ftpServerElement = siteElement.ChildElements.Item("ftpServer")
Set userIsolationElement = ftpServerElement.ChildElements.Item("userIsolation")
userIsolationElement.Properties.Item("mode").Value = "ActiveDirectory"
Set activeDirectoryElement = userIsolationElement.ChildElements.Item("activeDirectory")

activeDirectoryElement.Properties.Item("adUserName").Value = "MyUser"
activeDirectoryElement.Properties.Item("adPassword").Value = "MyPassword"
activeDirectoryElement.Properties.Item("adCacheRefresh").Value = "00:02:00"

adminManager.CommitChanges()

Function FindElement(collection, elementTagName, valuesToMatch)
   For i = 0 To CInt(collection.Count) - 1
      Set element = collection.Item(i)
      If element.Name = elementTagName Then
         matches = True
         For iVal = 0 To UBound(valuesToMatch) Step 2
            Set property = element.GetPropertyByName(valuesToMatch(iVal))
            value = property.Value
            If Not IsNull(value) Then
               value = CStr(value)
            End If
            If Not value = CStr(valuesToMatch(iVal + 1)) Then
               matches = False
               Exit For
            End If
         Next
         If matches Then
            Exit For
         End If
      End If
   Next
   If matches Then
      FindElement = i
   Else
      FindElement = -1
   End If
End Function