Qu est ce que page size

Version imprimable

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

Code:

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

11/12/2007, 17h49
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:

1 2 3 4 objCommand.CommandText = _ "SELECT Name FROM 'LDAP://dc=mairie,dc=local' WHERE objectCategory='user' " & _ "AND msNPAllowDialin = TRUE" & _ " AND Name='ciril'"
A++
11/12/2007, 18h48
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+

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

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:

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++

11/12/2007, 20h44
neuneu1

oui j'ai trouve sur doc script,

apres generalement j adapte..
inutile de reinventer la roue:mrgreen:

a+

merci
11/12/2007, 21h35
RadPAT

Citation:

Envoyé par neuneu1

oui j'ai trouve sur doc script,

apres generalement j adapte..
inutile de reinventer la roue:mrgreen:

y a pas mieux pour apprendre !
13/12/2007, 09h51
neuneu1

Salut

il y a une petite erreur dans le code mais je n'arrive pas a la faire disparaite:

une erreur de ()

Au niveau de la ligne27 caractere 58

je cherche mais je vois pas

a+
13/12/2007, 14h50
RadPAT
Salut,

effectivement y a une boulette, tu peux mettre ca à la place de la ligne 28 existante :
Code:

1 2 Set objUser = GetObject ("LDAP://cn=" & ObjRecordSet.Fields("Name").Value & ",dc=mairie,dc=local")
A++
13/12/2007, 15h46
neuneu1

Salut

bon le titre du poste n'as plus rien avoir , mais continuons..
bon ok pour le script ca marche sauf que, je veux pas desactive le compte mais simplement enleve l appel entrant..

merci*
je cherche de mon cote je te rassure..
a+
13/12/2007, 16h38
RadPAT
Ben si je comprends bien, apparemment, pour enlever l'appel entrant il faut passer msNPAllowDialin à false :
Code:

1 2 3 4 Set objUser = GetObject ("LDAP://cn=" & ObjRecordSet.Fields("Name").Value & ",dc=mairie,dc=local") objUser.Put "msNPAllowDialin", False objUser.SetInfo
fais un test et tiens nous au courant.
Une note crosoftienne qui peut faire avancer le smilblick "Cannot Grant Dial-in Access to a User from an ADSI Script" :

http://support.microsoft.com/kb/252398/en-us

Si pour "granter" il y a des soucis, il y a des chances que pour "dégranter" aussi :)

et puis tant qu'on y est, voilà pourquoi je ne retrouvai pas l'onglet dial-in dans la DSA sur mon poste : "The Dial-in tab does not appear when you use Active Directory Users and Computers to view the properties for a domain user on a Windows XP-based computer" :

http://support.microsoft.com/?id=837490

A++
14/12/2007, 11h50
neuneu1

ca ne marche pas mais je pense que c'est ma faute sur le code, le compte se trouvant dans une UO, ca passe pas , je vais faire le test dans une uo test avec un compte test aussi, pour voir, car je ne peux pas me permettre de travailler en direct live;)

merci
a+
14/12/2007, 13h25
ced600

Citation:

Envoyé par neuneu1

ca ne marche pas mais je pense que c'est ma faute sur le code, le compte se trouvant dans une UO, ca passe pas , je vais faire le test dans une uo test avec un compte test aussi, pour voir, car je ne peux pas me permettre de travailler en direct live;)

merci
a+

Comment cela, est ce si grave de perdre une BD de 40 GIGA ? :mouarf:

Plus sérieusement, peux tu reposter le code, parce que je pense que tu l'as mis à jour depuis ton dernier post.
Non que je pense pouvoir t'aider, mais on ne sait jamais.
14/12/2007, 16h07
neuneu1

bon marche pas , je ne met pas le code il est unchange depuis, je suis sous un serveur virtuel...

et pas moyen de telecharge le lien donner par RadPAT , pour adsi25.mspx

donc galere;)
14/12/2007, 18h01
ced600

J'ai fait une recherche sur le site de MS et je n'ai pas trouver d'autre lien pour ADSI il ne le distribue plus.

Par contre ici tu trouve adsiedit, est ce que cela te conviendrais :
http://www.petri.co.il/download_free_reskit_tools.htm

regarde aussi ici :
http://adsi.alienpicks.com/
http://www.sharewareconnection.com/titles/adsi.htm

Bref fait une recherche avec ADSI download sur google :D
15/12/2007, 16h13
neuneu1

J'ai trouve la dll, mais ca change rien l appel entrant reste active, faudrait regarder, je pense du cote de la base de registre..
a+
je cherche
20/12/2007, 17h31
seufer

PAGE SIZE

Citation:

Envoyé par 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.

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

Code:

objCommand.Properties("Page Size") = 2

et j'ai bien tous mes enregistrements 8O
20/12/2007, 18h51
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