Discussion :

[neuneu1]

Bonjour,
j'ai trouve un script pour verifier les user dont les appels entrant sont ok

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
 
On Error Resume Next
 
Const ADS_SCOPE_SUBTREE = 2
 
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
 
objCommand.CommandText = _
    "SELECT Name FROM 'LDAP://dc=mairie,dc=local' WHERE objectCategory='user' " & _
        "AND msNPAllowDialin = TRUE"
Set objRecordSet = objCommand.Execute
objRecordSet.first
Do Until objRecordSet.EOF
   Wscript.Echo objRecordSet.Fields("Name").Value
      if    objRecordSet.Fields("Name").Value = "ciril" then      Wscript.Echo("tutu")
 
  objRecordSet.MoveNext
 
 
Loop

je saisi quelque truc mais pas page sizes

merci

[RadPAT]

Salut,

le page size c'est quantité maxi d'enregistrements dans ton extraction.
Ici, tu ne vas pouvoir extraire que 1000 enregs, si ta base comporte 1200 users, 200 ne seront pas traités.
D'autre part tu balaies toute ta base pour ne rechercher que le nom ciril, tu devrais essayer d'inclure ce paramètre dans ton Select et faire un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
objCommand.CommandText = _
    "SELECT Name FROM 'LDAP://dc=mairie,dc=local' WHERE objectCategory='user' " & _
        "AND msNPAllowDialin = TRUE" & _
            " AND Name='ciril'"

A++

[neuneu1]

merci pour l infos

je savais pour la recherche,(pas le code mais le principe) mais le but est de desactive ce compte ciril(l appel entrant), et ca je vois pas ou c'est , base de registre peut etre

en gros if objectCategory.value ='ciril' then desactive appel entrant

merci
a+

[RadPAT]

Pour desactiver un compte, lis cet article sur le script center de crosoft (au vu de ton code, tu dois déjà connaitre ..) :

http://http://www.microsoft.com/tech....mspx?mfr=true


Adapté à ton cas, on remplace Ken par cirill, de mémoire, ca donnerait quelque chose comme ca :

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
28
29
30
31
32
33
34
35
36
37
 
On Error Resume Next
 
Const ADS_SCOPE_SUBTREE = 2
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
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
 
objCommand.CommandText = "SELECT Name FROM 'LDAP://dc=mairie,dc=local' WHERE objectCategory='user' AND msNPAllowDialin = TRUE"
 
Set objRecordSet = objCommand.Execute
 
objRecordSet.first
'on lis tous les comptes Users de ton OU qui sont en msNPAllowDialin = TRUE
Do Until objRecordSet.EOF 
   Wscript.Echo objRecordSet.Fields("Name").Value
      ' Si dans les comptes qui sont en msNPAllowDialin = TRUE
      ' on trouve ciril alors
      if    objRecordSet.Fields("Name").Value = "ciril" then      
      ' on lui disable son compte
      Set objUser = GetObject ("LDAP://cn=objRecordSet.Fields("Name").Value")
      intUAC = objUser.Get("userAccountControl")
 
      objUser.Put "userAccountControl", intUAC OR ADS_UF_ACCOUNTDISABLE
      objUser.SetInfo
 
 
      End If 
  objRecordSet.MoveNext 
Loop

A++

[neuneu1]

oui j'ai trouve sur doc script,

apres generalement j adapte..
inutile de reinventer la roue

a+

merci

[RadPAT]

oui j'ai trouve sur doc script,

apres generalement j adapte..
inutile de reinventer la roue

y a pas mieux pour apprendre !

[seufer]

Salut,

le page size c'est quantité maxi d'enregistrements dans ton extraction.
Ici, tu ne vas pouvoir extraire que 1000 enregs, si ta base comporte 1200 users, 200 ne seront pas traités.

J'ai l'impression que ca marche pas le PAGE SIZE, j'ai fais un test en mettant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objCommand.Properties("Page Size") = 2

et j'ai bien tous mes enregistrements

[neuneu1]

j'ai fait le meme test et pareil mais il a raison quand meme, sertaine subtilite nous echape parfois, en tout cas a moi..

desole tout le monde j'ai eu bcp de maille, et n'est pas travailler plus sur le code..

je cloture et reposterai a l occassion , bonnes fetes a tous et toutes