IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

Qu est ce que page size


Sujet :

VBScript

  1. #1
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Par défaut Qu est ce que page size
    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

  2. #2
    Membre chevronné
    Inscrit en
    Août 2007
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Août 2007
    Messages : 302
    Par défaut
    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++

  3. #3
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Par défaut
    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+

  4. #4
    Membre chevronné
    Inscrit en
    Août 2007
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Août 2007
    Messages : 302
    Par défaut
    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++

  5. #5
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Par défaut
    oui j'ai trouve sur doc script,

    apres generalement j adapte..
    inutile de reinventer la roue

    a+

    merci

  6. #6
    Membre chevronné
    Inscrit en
    Août 2007
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Août 2007
    Messages : 302
    Par défaut
    Citation Envoyé par neuneu1 Voir le message
    oui j'ai trouve sur doc script,

    apres generalement j adapte..
    inutile de reinventer la roue
    y a pas mieux pour apprendre !

  7. #7
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Par défaut
    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+

  8. #8
    Membre chevronné
    Inscrit en
    Août 2007
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Août 2007
    Messages : 302
    Par défaut
    Salut,

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

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Set objUser = GetObject ("LDAP://cn=" & ObjRecordSet.Fields("Name").Value & ",dc=mairie,dc=local")
    A++

  9. #9
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Par défaut
    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+

  10. #10
    Membre chevronné
    Inscrit en
    Août 2007
    Messages
    302
    Détails du profil
    Informations personnelles :
    Âge : 58

    Informations forums :
    Inscription : Août 2007
    Messages : 302
    Par défaut
    Ben si je comprends bien, apparemment, pour enlever l'appel entrant il faut passer msNPAllowDialin à false :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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++

  11. #11
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Par défaut
    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+

  12. #12
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Citation Envoyé par neuneu1 Voir le message
    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 ?

    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.

  13. #13
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Par défaut
    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. #14
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    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

  15. #15
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Par défaut
    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

  16. #16
    Membre averti
    Inscrit en
    Mai 2004
    Messages
    15
    Détails du profil
    Informations forums :
    Inscription : Mai 2004
    Messages : 15
    Par défaut PAGE SIZE
    Citation Envoyé par RadPAT Voir le message
    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

  17. #17
    Membre éprouvé
    Avatar de neuneu1
    Profil pro
    Administrateur systèmes et réseaux
    Inscrit en
    Avril 2007
    Messages
    1 874
    Détails du profil
    Informations personnelles :
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Activité : Administrateur systèmes et réseaux

    Informations forums :
    Inscription : Avril 2007
    Messages : 1 874
    Par défaut
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Est-ce que le certificat de la page courante est valide ?
    Par Mr N. dans le forum Général JavaScript
    Réponses: 3
    Dernier message: 19/08/2008, 12h09
  2. Qu'est ce que c'est : Le GateA20 ?
    Par le mage tophinus dans le forum x86 16-bits
    Réponses: 5
    Dernier message: 24/02/2003, 15h09
  3. Qu'est ce que le cache ?
    Par irrou dans le forum Assembleur
    Réponses: 4
    Dernier message: 24/11/2002, 23h28
  4. Qu'est-ce que c'est que Nessus, ça fait quoi exactement ?
    Par PeterT dans le forum Développement
    Réponses: 3
    Dernier message: 24/07/2002, 11h23
  5. Réponses: 3
    Dernier message: 19/07/2002, 15h01

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo