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
Sylvain
C'est regler !
Le script est correct c'est un param de AD qui etait mal configurer !
Merci
-----Message d'origine----- j'ai un script (voir ci bas) qui me liste les compte de notre domaine. le HIC est qu'il me donne seulement 1000 object ! (il y en a beaucoup plus)
Quelqu'un sait pourquoi ? et surtout une solution !!
Merci
script:
Dim objUser, objRecordset ressource = "User" domaine = "dc=mondomaine,dc=com" Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "ProvidersDSOObject;" Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection objCommand.CommandText = "<GC://" & domaine & ">; (objectCategory=" & ressource & ");distinguishedName;subtree" Set objRecordSet = objCommand.Execute
cmpt = 0 objRecordSet.MoveFirst While Not objRecordset.EOF cmpt = cmpt + 1 Dname = objRecordset.Fields("distinguishedName") WScript.Echo(cmpt & " " & Dname) objRecordset.MoveNext Wend objConnection.Close WScript.Echo("Fin du script") .
C'est regler !
Le script est correct c'est un param de AD qui etait mal
configurer !
Merci
-----Message d'origine-----
j'ai un script (voir ci bas) qui me liste les compte de
notre domaine. le HIC est qu'il me donne seulement 1000
object ! (il y en a beaucoup plus)
Quelqu'un sait pourquoi ? et surtout une solution !!
Merci
script:
Dim objUser, objRecordset
ressource = "User"
domaine = "dc=mondomaine,dc=com"
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "ProvidersDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = "<GC://" & domaine & ">;
(objectCategory=" & ressource
& ");distinguishedName;subtree"
Set objRecordSet = objCommand.Execute
cmpt = 0
objRecordSet.MoveFirst
While Not objRecordset.EOF
cmpt = cmpt + 1
Dname = objRecordset.Fields("distinguishedName")
WScript.Echo(cmpt & " " & Dname)
objRecordset.MoveNext
Wend
objConnection.Close
WScript.Echo("Fin du script")
.
Le script est correct c'est un param de AD qui etait mal configurer !
Merci
-----Message d'origine----- j'ai un script (voir ci bas) qui me liste les compte de notre domaine. le HIC est qu'il me donne seulement 1000 object ! (il y en a beaucoup plus)
Quelqu'un sait pourquoi ? et surtout une solution !!
Merci
script:
Dim objUser, objRecordset ressource = "User" domaine = "dc=mondomaine,dc=com" Set objConnection = CreateObject("ADODB.Connection") objConnection.Open "ProvidersDSOObject;" Set objCommand = CreateObject("ADODB.Command") objCommand.ActiveConnection = objConnection objCommand.CommandText = "<GC://" & domaine & ">; (objectCategory=" & ressource & ");distinguishedName;subtree" Set objRecordSet = objCommand.Execute
cmpt = 0 objRecordSet.MoveFirst While Not objRecordset.EOF cmpt = cmpt + 1 Dname = objRecordset.Fields("distinguishedName") WScript.Echo(cmpt & " " & Dname) objRecordset.MoveNext Wend objConnection.Close WScript.Echo("Fin du script") .