Bonjour,

J'ai un script fonctionnel permettant de recuperer ds un fichier txt des information sur les boites exchange.
On me demande de le modifier pour y rajouter un champ a la fin : le champs "Matricule" se trouvant ds la champs "Bureau" de l'onglet général d'un user Active Directory.

Voici le script :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
'Tout sélectionner
    Dim SWBemlocator
    Dim objWMIService
    Dim colItems
    Dim objFSO
    Dim objFile
    strTitle="Mailbox Report"
    strComputer = "srv-exch"
    UserName = ""
    Password = ""
    strLog="c:\Temp\Extract\MailboxReport.csv"
    Set objFSO=CreateObject("Scripting.FileSystemObject")
    Set objFile=objFSO.CreateTextFile(strLog,True)
 
    'This query will fail with the Exchange WMI Provider
    strQuery="Select * from Exchange_Mailbox"
    objFile.WriteLine "Serv : Login ; Nom de la boîte ; Taille de la boîte ; Nombre d'emails"
    'WScript.Echo "Examining " & strComputer
    Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
    Set objWMIService = SWBemlocator.ConnectServer(strComputer,"\root\MicrosoftExchangeV2",UserName,Password)
    Set colItems = objWMIService.ExecQuery(strQuery,,48)
 
    For Each objItem in colItems
    objFile.writeline objItem.LegacyDN & "; " & objItem.MailboxDisplayName & "; " & objItem.Size & "; " & objItem.TotalItems & " "
   Next
 
    objFile.close
J'ai trouver que la propriétée que je dois rajouter est : "physicalDeliveryOfficeName" mais je n'arrive pas a l'inserer ds la derniere colonne de mon fichiers texte.

Merci d'avance pour votre aide.

A bientot.