Je souhaite récupérer le nombre de boîtes ax lettres Exchange via une
requête LDAP dans un AD sous W2K.
Si quelqu'un connait la manip., je suis preneur.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Thierry DEMAN [MVP]
Bonsoir,
voici un petit exemple de Vbscript (à définir en .VBS):
' Auteur: Thierry DEMAN (BY THE WAY) ' ------------------------------------------------------------------------------------------------------------- ' Fonctionnement: Comptage des Utilisateurs possédant une boîte dans le domaine courant! ' ------------------------------------------------------------------------------------------------------------- '************************** VARIABLES SYSTEMES ************************** Dim user, computer Dim u Dim oRootDSE,strDomainNC Dim oConnection,oRecordset ' ------------------------------------- DEBUT DE PROGRAMME -------------------------------------------
' Recherche du domaine Active Directory courant, on peut aussi forcer la valeur ! Set oRootDSE = GetObject("LDAP://RootDSE") strDomainNC = oRootDSE.Get("defaultNamingContext")
' Affichage facultative du domaine déterminé 'msgbox(StrDomainNC) u=0
' Connexion de type base de donnée à Active Directory Set oConnection = CreateObject("ADODB.Connection") oConnection.Provider = "ADsDSOObject" oConnection.Open "ADs Provider"
' Définition de la recherche principale ' Tous les utilisateurs et tous les contacts, dans tous les niveaux de l’arborescence. Set oRecordset = oConnection.Execute("<GC://"+StrDomainNC+">;(objectCategory=user);name,HomeMdb;subtree")
' Boucle sur les enregistrements. If Not oRecordset.EOF Then While Not oRecordset.EOF
' Attention les champs vides (Null) ne peuvent pas être concaténés en chaine de caractères ' Il faut donc les vérifier Name=VerifyNull(oRecordset.Fields("Name")) HomeMdb=VerifyNull(oRecordset.Fields("HomeMdb")) If Len(HomeMdb)>0 Then u=u+1 ' Wscript.echo Name+","+HomeMdb End if
oRecordset.movenext Wend End If
wscript.echo "Nombre de boîtes :" +Cstr(u)
wscript.quit
' ********* FIN DE PROGRAMME ***********
' Fonctions...
Function VerifyNull(field) IF not (isnull(Field)) Then VerifyNull=Field Else VerifyNull="" End IF End Function '------------------------------------------------------------------------------------------------------
Je souhaite récupérer le nombre de boîtes ax lettres Exchange via une requête LDAP dans un AD sous W2K. Si quelqu'un connait la manip., je suis preneur.
Merci d'avance.
Bonsoir,
voici un petit exemple de Vbscript (à définir en .VBS):
' Auteur: Thierry DEMAN (BY THE WAY)
' -------------------------------------------------------------------------------------------------------------
' Fonctionnement: Comptage des Utilisateurs possédant une boîte dans le
domaine courant!
' -------------------------------------------------------------------------------------------------------------
'************************** VARIABLES SYSTEMES **************************
Dim user, computer
Dim u
Dim oRootDSE,strDomainNC
Dim oConnection,oRecordset
' ------------------------------------- DEBUT DE
PROGRAMME -------------------------------------------
' Recherche du domaine Active Directory courant, on peut aussi forcer la
valeur !
Set oRootDSE = GetObject("LDAP://RootDSE")
strDomainNC = oRootDSE.Get("defaultNamingContext")
' Affichage facultative du domaine déterminé
'msgbox(StrDomainNC)
u=0
' Connexion de type base de donnée à Active Directory
Set oConnection = CreateObject("ADODB.Connection")
oConnection.Provider = "ADsDSOObject"
oConnection.Open "ADs Provider"
' Définition de la recherche principale
' Tous les utilisateurs et tous les contacts, dans tous les niveaux de l’arborescence.
Set oRecordset =
oConnection.Execute("<GC://"+StrDomainNC+">;(objectCategory=user);name,HomeMdb;subtree")
' Boucle sur les enregistrements.
If Not oRecordset.EOF Then
While Not oRecordset.EOF
' Attention les champs vides (Null) ne peuvent pas être concaténés en chaine
de caractères
' Il faut donc les vérifier
Name=VerifyNull(oRecordset.Fields("Name"))
HomeMdb=VerifyNull(oRecordset.Fields("HomeMdb"))
If Len(HomeMdb)>0 Then
u=u+1
' Wscript.echo Name+","+HomeMdb
End if
oRecordset.movenext
Wend
End If
wscript.echo "Nombre de boîtes :" +Cstr(u)
wscript.quit
' ********* FIN DE PROGRAMME ***********
' Fonctions...
Function VerifyNull(field)
IF not (isnull(Field)) Then
VerifyNull=Field
Else
VerifyNull=""
End IF
End Function
'------------------------------------------------------------------------------------------------------
"Grincheux" <Grincheux@discussions.microsoft.com> a écrit dans le message de
news:E2A0703F-B20F-41E7-A932-FBA1F724A00D@microsoft.com...
Bonjour,
Je souhaite récupérer le nombre de boîtes ax lettres Exchange via une
requête LDAP dans un AD sous W2K.
Si quelqu'un connait la manip., je suis preneur.
voici un petit exemple de Vbscript (à définir en .VBS):
' Auteur: Thierry DEMAN (BY THE WAY) ' ------------------------------------------------------------------------------------------------------------- ' Fonctionnement: Comptage des Utilisateurs possédant une boîte dans le domaine courant! ' ------------------------------------------------------------------------------------------------------------- '************************** VARIABLES SYSTEMES ************************** Dim user, computer Dim u Dim oRootDSE,strDomainNC Dim oConnection,oRecordset ' ------------------------------------- DEBUT DE PROGRAMME -------------------------------------------
' Recherche du domaine Active Directory courant, on peut aussi forcer la valeur ! Set oRootDSE = GetObject("LDAP://RootDSE") strDomainNC = oRootDSE.Get("defaultNamingContext")
' Affichage facultative du domaine déterminé 'msgbox(StrDomainNC) u=0
' Connexion de type base de donnée à Active Directory Set oConnection = CreateObject("ADODB.Connection") oConnection.Provider = "ADsDSOObject" oConnection.Open "ADs Provider"
' Définition de la recherche principale ' Tous les utilisateurs et tous les contacts, dans tous les niveaux de l’arborescence. Set oRecordset = oConnection.Execute("<GC://"+StrDomainNC+">;(objectCategory=user);name,HomeMdb;subtree")
' Boucle sur les enregistrements. If Not oRecordset.EOF Then While Not oRecordset.EOF
' Attention les champs vides (Null) ne peuvent pas être concaténés en chaine de caractères ' Il faut donc les vérifier Name=VerifyNull(oRecordset.Fields("Name")) HomeMdb=VerifyNull(oRecordset.Fields("HomeMdb")) If Len(HomeMdb)>0 Then u=u+1 ' Wscript.echo Name+","+HomeMdb End if
oRecordset.movenext Wend End If
wscript.echo "Nombre de boîtes :" +Cstr(u)
wscript.quit
' ********* FIN DE PROGRAMME ***********
' Fonctions...
Function VerifyNull(field) IF not (isnull(Field)) Then VerifyNull=Field Else VerifyNull="" End IF End Function '------------------------------------------------------------------------------------------------------
Je souhaite récupérer le nombre de boîtes ax lettres Exchange via une requête LDAP dans un AD sous W2K. Si quelqu'un connait la manip., je suis preneur.
Merci d'avance.
Grincheux
Bonjour,
Merci à toi. C'est nickel et cela répond complètement à mes attentes.
Arno.
Bonsoir,
voici un petit exemple de Vbscript (à définir en .VBS):
' Auteur: Thierry DEMAN (BY THE WAY) ' ------------------------------------------------------------------------------------------------------------- ' Fonctionnement: Comptage des Utilisateurs possédant une boîte dans le domaine courant! ' ------------------------------------------------------------------------------------------------------------- '************************** VARIABLES SYSTEMES ************************** Dim user, computer Dim u Dim oRootDSE,strDomainNC Dim oConnection,oRecordset ' ------------------------------------- DEBUT DE PROGRAMME -------------------------------------------
' Recherche du domaine Active Directory courant, on peut aussi forcer la valeur ! Set oRootDSE = GetObject("LDAP://RootDSE") strDomainNC = oRootDSE.Get("defaultNamingContext")
' Affichage facultative du domaine déterminé 'msgbox(StrDomainNC) u=0
' Connexion de type base de donnée à Active Directory Set oConnection = CreateObject("ADODB.Connection") oConnection.Provider = "ADsDSOObject" oConnection.Open "ADs Provider"
' Définition de la recherche principale ' Tous les utilisateurs et tous les contacts, dans tous les niveaux de l’arborescence. Set oRecordset = oConnection.Execute("<GC://"+StrDomainNC+">;(objectCategory=user);name,HomeMdb;subtree")
' Boucle sur les enregistrements. If Not oRecordset.EOF Then While Not oRecordset.EOF
' Attention les champs vides (Null) ne peuvent pas être concaténés en chaine de caractères ' Il faut donc les vérifier Name=VerifyNull(oRecordset.Fields("Name")) HomeMdb=VerifyNull(oRecordset.Fields("HomeMdb")) If Len(HomeMdb)>0 Then u=u+1 ' Wscript.echo Name+","+HomeMdb End if
oRecordset.movenext Wend End If
wscript.echo "Nombre de boîtes :" +Cstr(u)
wscript.quit
' ********* FIN DE PROGRAMME ***********
' Fonctions...
Function VerifyNull(field) IF not (isnull(Field)) Then VerifyNull=Field Else VerifyNull="" End IF End Function '------------------------------------------------------------------------------------------------------
Je souhaite récupérer le nombre de boîtes ax lettres Exchange via une requête LDAP dans un AD sous W2K. Si quelqu'un connait la manip., je suis preneur.
Merci d'avance.
Bonjour,
Merci à toi. C'est nickel et cela répond complètement à mes attentes.
Arno.
Bonsoir,
voici un petit exemple de Vbscript (à définir en .VBS):
' Auteur: Thierry DEMAN (BY THE WAY)
' -------------------------------------------------------------------------------------------------------------
' Fonctionnement: Comptage des Utilisateurs possédant une boîte dans le
domaine courant!
' -------------------------------------------------------------------------------------------------------------
'************************** VARIABLES SYSTEMES **************************
Dim user, computer
Dim u
Dim oRootDSE,strDomainNC
Dim oConnection,oRecordset
' ------------------------------------- DEBUT DE
PROGRAMME -------------------------------------------
' Recherche du domaine Active Directory courant, on peut aussi forcer la
valeur !
Set oRootDSE = GetObject("LDAP://RootDSE")
strDomainNC = oRootDSE.Get("defaultNamingContext")
' Affichage facultative du domaine déterminé
'msgbox(StrDomainNC)
u=0
' Connexion de type base de donnée à Active Directory
Set oConnection = CreateObject("ADODB.Connection")
oConnection.Provider = "ADsDSOObject"
oConnection.Open "ADs Provider"
' Définition de la recherche principale
' Tous les utilisateurs et tous les contacts, dans tous les niveaux de l’arborescence.
Set oRecordset =
oConnection.Execute("<GC://"+StrDomainNC+">;(objectCategory=user);name,HomeMdb;subtree")
' Boucle sur les enregistrements.
If Not oRecordset.EOF Then
While Not oRecordset.EOF
' Attention les champs vides (Null) ne peuvent pas être concaténés en chaine
de caractères
' Il faut donc les vérifier
Name=VerifyNull(oRecordset.Fields("Name"))
HomeMdb=VerifyNull(oRecordset.Fields("HomeMdb"))
If Len(HomeMdb)>0 Then
u=u+1
' Wscript.echo Name+","+HomeMdb
End if
oRecordset.movenext
Wend
End If
wscript.echo "Nombre de boîtes :" +Cstr(u)
wscript.quit
' ********* FIN DE PROGRAMME ***********
' Fonctions...
Function VerifyNull(field)
IF not (isnull(Field)) Then
VerifyNull=Field
Else
VerifyNull=""
End IF
End Function
'------------------------------------------------------------------------------------------------------
"Grincheux" <Grincheux@discussions.microsoft.com> a écrit dans le message de
news:E2A0703F-B20F-41E7-A932-FBA1F724A00D@microsoft.com...
Bonjour,
Je souhaite récupérer le nombre de boîtes ax lettres Exchange via une
requête LDAP dans un AD sous W2K.
Si quelqu'un connait la manip., je suis preneur.
Merci à toi. C'est nickel et cela répond complètement à mes attentes.
Arno.
Bonsoir,
voici un petit exemple de Vbscript (à définir en .VBS):
' Auteur: Thierry DEMAN (BY THE WAY) ' ------------------------------------------------------------------------------------------------------------- ' Fonctionnement: Comptage des Utilisateurs possédant une boîte dans le domaine courant! ' ------------------------------------------------------------------------------------------------------------- '************************** VARIABLES SYSTEMES ************************** Dim user, computer Dim u Dim oRootDSE,strDomainNC Dim oConnection,oRecordset ' ------------------------------------- DEBUT DE PROGRAMME -------------------------------------------
' Recherche du domaine Active Directory courant, on peut aussi forcer la valeur ! Set oRootDSE = GetObject("LDAP://RootDSE") strDomainNC = oRootDSE.Get("defaultNamingContext")
' Affichage facultative du domaine déterminé 'msgbox(StrDomainNC) u=0
' Connexion de type base de donnée à Active Directory Set oConnection = CreateObject("ADODB.Connection") oConnection.Provider = "ADsDSOObject" oConnection.Open "ADs Provider"
' Définition de la recherche principale ' Tous les utilisateurs et tous les contacts, dans tous les niveaux de l’arborescence. Set oRecordset = oConnection.Execute("<GC://"+StrDomainNC+">;(objectCategory=user);name,HomeMdb;subtree")
' Boucle sur les enregistrements. If Not oRecordset.EOF Then While Not oRecordset.EOF
' Attention les champs vides (Null) ne peuvent pas être concaténés en chaine de caractères ' Il faut donc les vérifier Name=VerifyNull(oRecordset.Fields("Name")) HomeMdb=VerifyNull(oRecordset.Fields("HomeMdb")) If Len(HomeMdb)>0 Then u=u+1 ' Wscript.echo Name+","+HomeMdb End if
oRecordset.movenext Wend End If
wscript.echo "Nombre de boîtes :" +Cstr(u)
wscript.quit
' ********* FIN DE PROGRAMME ***********
' Fonctions...
Function VerifyNull(field) IF not (isnull(Field)) Then VerifyNull=Field Else VerifyNull="" End IF End Function '------------------------------------------------------------------------------------------------------
Je souhaite récupérer le nombre de boîtes ax lettres Exchange via une requête LDAP dans un AD sous W2K. Si quelqu'un connait la manip., je suis preneur.