Dans cet article, nous allons expliquer la manière d’utiliser cet outil pour supprimer les vieux emails dans le répertoire d’un utilisateur ou dans toutes les boites aux lettres du serveur.

Le fichier d’aide de l’outil se site dans le répertoire app du dossier Mdaemon. Il se nomme : AccountPrune.txt

Supression des emails des éléments supprimés pour un utilisateur

Voici un exemple d’utilisation de l’outil :

Pour supprimer les mails appartenant aux dossier éléments supprimés vieux de plus de 30 jours dans le répertoire de l’utilisateur test@mail.net :

D:\MDaemon\App\AccountPrune.exe /m /d=30 /p= »&AMk-l&AOk-ments supprim&AOk-s.IMAP » /U=test@mail.net

/d permet de diffinir le nombre de jour

/p permet de spécifier le répertoire à analyser

/m permet la supression des emails

/U permet d’effectuer l’action sur un utilisateur

Tester une commande

Pour tester la commande avant de supprimer définitivement les emails, vous pouvez ajouter l’argument /L. Cet argument va logger dans le fichier “D:\MDaemon\Logs\AccountPrune.log” l’ensemble des actions qui vont être effectuées.

exemple :

D:\MDaemon\App\AccountPrune.exe /m /d=30 /p= »&AMk-l&AOk-ments supprim&AOk-s.IMAP » /U=test@mail.net /L

Supression des emails des éléments supprimés pour tous les utilisateurs

Appliquer cette commande à l’ensemble des utilisitateurs

D:\MDaemon\App\AccountPrune.exe /m /d=30 /p= »&AMk-l&AOk-ments supprim&AOk-s.IMAP »

Autres articles similaires:

1. Supprimer plusieurs lignes sous vi ou vim
2. [Script Nagios] Vérifier la récupération des emails en POP sur Mdaemon en VBS

Il a été intégré à Nagios grâce au code erreur en sortie puis exécuté par le check_nrpe. Ce script est au format wsf.

<package>
<job id="Application Script">

<comment>
          File: Application.wsf
          Description: Ce script permet de savoir si une application récupère bien
          les emails via POP sur Mdaemon
          Réalisé par Olivier Legras

</comment>
<runtime>

<description>
          Il liste les fichiers msg sur le serveur Mdaemon des comptes ActesWeb
</description>

<example>
          CScript ActesWebtest.wsf numero_partenaire //nologo
</example>

</runtime>

<script language="VBScript">
‘Déclaration des variables
‘__________________________________
‘Constantes
Option Explicit
Const TempsMaximum = 60
Const Extension = "msg"
Const intOK = 0
Const intWarning = 1
Const intCritical = 2

‘Variables
Dim Ville
Dim fso, fichier, fileItem
Dim i, imax, z, valeur, cible, liste, i2, strMessage, intExit
Dim DifferenceMinute , PathMDB, Nom_rep

‘Objets
Set fso = CreateObject("Scripting.FileSystemObject")

‘Initialisation
strMessage = ""
imax = 0

‘Test de l’argument Partenaire (1 argument obligatoire)
If WScript.Arguments.Count <> 1 Then
    strMessage = "Critical: Mettre le partenaire en argument"
    intExit = intCritical
    WScript.Echo strMessage
    WScript.Quit(intExit)
End If

‘Récupération de contenu de l’argument
Ville = WScript.Arguments.Item(0)

‘Attribution du répertoire en fonction du partenaire
Select Case Ville
Case "10"
    PathMDB = "D:MDaemonUsersdomaineapplication10"
Case "11"
    PathMDB = "D:MDaemonUsersdomaineapplication11"
Case "12"
    PathMDB = "D:MDaemonUsersdomaineapplication12"
Case "13"
    PathMDB = "D:MDaemonUsersdomaineapplication13"
Case "14"
    PathMDB = "D:MDaemonUsersdomaineapplication14"
Case Else
    strMessage = "Critical: Partenaire Inconnu : "& Ville
    intExit = intCritical
    WScript.Echo strMessage
    WScript.Quit(intExit)
End Select

‘On test que le chemin est valide
If Not (fso.FolderExists(PathMDB)) Then
    strMessage = "Critical: Repertoire inaccessible :"& PathMDB
    intExit = intCritical
    WScript.Echo strMessage
    WScript.Quit(intExit)
End If

‘On récupère la liste des fichiers du répertoire
‘début de l’énumération
For Each fichier In fso.GetFolder(PathMDB).Files
Set fileItem = fso.GetFile(fichier)

imax = imax + 1
ReDim Preserve Tableau(3, imax)
Tableau(1, imax) = Fichier.Name
Tableau(2, imax) = FileItem.DateLastModified
Tableau(3, imax) = fso.GetExtensionName (Fichier.Name)

‘—trier les fichiers par ordre décroissant de création —
Do
Valeur = 0
For i = 0 To imax – 1
If CDate(Tableau(2, i)) < CDate(Tableau(2, i + 1)) Then
For z = 1 To 3
Cible = Tableau(z, i)
Tableau(z, i) = Tableau(z, i + 1)
Tableau(z, i + 1) = Cible
Next
Valeur = 1
End If
Next
Loop While Valeur = 1
Set fileItem = nothing
Next
imax=UBound(Tableau,2)

‘On récupère seulement les fichiers avec l extension de notre choix
i2=1
ReDim Preserve Tableau_final(3,imax)
For i = 1 To imax – 1
If Tableau(3, i)=Extension Then
    ‘For z = 1 To 3
    Tableau_final(1, i2) = Tableau(1, i)
    Tableau_final(3, i2) = Tableau(3, i)
    Tableau_final(2, i2) = CDate(Tableau(2, i))
    i2 = i2 +1
    Valeur = 1
End If
Next

‘Comparer les date de création des fichiers msg
DifferenceMinute = DateDiff("n",Cdate(Tableau_final(2,i2-1)),Now )

‘On vérifie que la date n’est pas nulle
If (Cdate(Tableau_final(2,i2-1)) <> "00:00:00") Then
    ‘On vérifie que le courrier est bien récupérer avant 60 minutes
    If DifferenceMinute > TempsMaximum then
        intExit = intCritical
        strMessage = "Critical: Les mails ne sont pas recuperes depuis le "& Cdate(Tableau_final(2,i2-1))
    End If
Else
    intExit = intOk
    strMessage = "Ok: Fonctionnement Normal"
End If

Set fso = Nothing

WScript.Echo strMessage
WScript.Quit(intExit)

</script>
</job>
</package>

Autres articles similaires:

1. Script de migration IP fixe vers DHCP Windows
2. Comment supprimer les doublons d’une liste ou d’un tableau ?
3. Connaitre la taille d’un tableau :