Exporter dans Excel les paramètres de messagerie de tous les utilisateurs d’un domaine Active Directory

Vous faites parti des nouveaux convertis au vélo pour vous rendre au travail? Félicitation car pour évacuer le stress de la journée le vélo est tout simplement incroyable

Je fais plus de 5000 km par an juste pour le travail et au moins autant pour le loisir. Pour suivre mes progrès, ma forme, explorer des nouveaux parcours, j'utilise un compteur GPS.

Le leader ne cherchez pas c'est Garmin grâce à un écosystème cohérent et complet.

Pour suivre vos activités, disposer de tous les métriques de bases pendant votre sortie et analyser ensuite votre parcours je vous recommande le Garmin Edge 130 Plus.

Mais si vous en voulez plus encore avec des fonctions de navigation avancées, la gestion de vos entraînements et l'analyse de vos performances orientez vous soit sur le Garmin Edge 530, le Garmin Edge 830 son équivalent tactile que j'utilise personnellement, ou le Garmin Edge 1030 Plus avec écran encore plus grand et si vous êtes très riche !

GPS Vélo

Ce script exporte l’ensemble des comptes utilisateurs d’un domaine Active Directory nommé DOMLAB vers un fichier Excel formaté. les attributs Active Directory sélectionnés concernent les informations de base de l’utilisateur ainsi que certaines informations concernant leur messagerie Exchange.

Les attributs Active Directory exportés sont les suivants:

  • displayName
  • givenName
  • mailNickname
  • mail
  • homeMDB
  • msExchHideFromAddressLists

L’attribut Active Directory userAccountControl est utilisé ici afin de filtrer les comptes utilisateurs désactivés.

Voici mon GPS pour faire du vélo ! Le Garmin Edge 830 est une vraie réussite avec une autonomie de plus de 15 heures cartographie activée et un écran tactile désormais absolument parfait qui réagit au doigt et à l'oeil, comme un smartphone.

Créez un itinéraire sur Strava ou sur Garmin Connect et il est aussitôt transmis à vote GPS. Si vous êtes pressé ou dans un lieu inconnu, le générateur de boucle vous guidera tout simplement. Si vous décidez de changer de prendre un autre chemin le recalcul est automatique et un nouvel itinéraire vous sera proposé.

Voir mon classement des meilleurs GPS pour en savoir plus !

GPS Vélo

Dim ObjConnection, ObjCommand, ObjRecordSet
Dim objExcel
Const ADS_UF_ACCOUNTDISABLE = 2
Set ObjConnection = CreateObject("ADODB.Connection")
Set ObjCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
oDomainControler = "SERVER_NAME/ou=OU_NAME,dc=DOMLAB,dc=com"
sProperties="userAccountControl,displayName,givenName,mailNickname,mail,homeMDB,msExchHideFromAddressLists"
objCommand.Properties("Page Size") = 10000
ObjCommand.CommandText = "<LDAP://" & oDomainControler & ">;(&(objectCategory=person)(objectClass=user));" & sProperties & ";subtree"
ObjCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objExcel = WScript.CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
objExcel.ActiveSheet.Name = "Users"
objExcel.ActiveSheet.Range("A1").Activate
objExcel.ActiveCell.Value = "DisplayName"
objExcel.ActiveCell.Offset(0,1).Value = "Login"
objExcel.ActiveCell.Offset(0,2).Value = "Alias de messagerie"
objExcel.ActiveCell.Offset(0,3).Value = "Adresse email principale"
objExcel.ActiveCell.Offset(0,4).Value = "Banque d'information"
objExcel.ActiveCell.Offset(0,5).Value = "Masqué dans le carnet d'adresse"
objExcel.ActiveCell.Offset(1,0).Activate
Set ObjRecordSet = ObjCommand.Execute
Do until objRecordSet.EOF
intUAC=objRecordset.Fields("userAccountControl")
If intUAC AND ADS_UF_ACCOUNTDISABLE Then
objRecordSet.MoveNext
else
objExcel.ActiveCell.Value = objRecordSet.fields("displayName")
objExcel.ActiveCell.Offset(0,1).Value = objRecordSet.fields("givenName")
objExcel.ActiveCell.Offset(0,2).Value = objRecordSet.fields("mailNickname")
objExcel.ActiveCell.Offset(0,3).Value = objRecordSet.fields("mail")
objExcel.ActiveCell.Offset(0,4).Value = objRecordSet.fields("homeMDB")
objExcel.ActiveCell.Offset(0,5).Value = objRecordSet.fields("msExchHideFromAddressLists")
objExcel.ActiveCell.Offset(1,0).Activate
objRecordSet.MoveNext
End If
Loop
ObjConnection.Close
Set ObjConnection = Nothing
Set ObjCommand = Nothing
Set ObjRecordSet = Nothing
objExcel.Range("A1:F1").Select
objExcel.Selection.Interior.ColorIndex = 19
objExcel.Selection.Font.ColorIndex = 9
objExcel.Selection.Font.Bold = True
objExcel.Cells.EntireColumn.AutoFit
wscript.echo "Terminé"
Ce code est correctement formaté.
Vous pouvez directement le COPIER / COLLER dans un fichier VBS.

Laissez un commentaire