locked
Dépanner un script VBS RRS feed

  • Discussion générale

  • Bonjour,

    J'ai écris un script à l'aide de bouts de code récupérés ça et là sur internet, et je sollicite votre aide pour le débbuger.
    Voici l'erreur qui se produit:

    "Objet Requis: '[string: LDAP://CN=djebraoui Rabba,OU="]' à la ligne 6
    avec le code erreur 800A01A8.

     

    1   Const E_ADS_PROPERTY_NOT_FOUND = &h8000500D
    2   Dim objSysInfo, ObjUser
    3   Dim WshNetwork, arrAttributes, strAttribute
    4   Set WshNetwork = WScript.CreateObject("WScript.Network")
    5   Set objSysInfo = WScript.CreateObject("ADSystemInfo")
    6   Set ObjUser = WScript.GetObject("LDAP://" & objSysInfo.UserName )
    7   arrAttributes = Array("displayName", "samAccountName", "st","scriptPath", "profilePath")
    8   objUser.GetInfoEx arrAttributes, 0
    10                   
    11  For Each Attribute In arrAttributes
    12                           
    13  Trace (vbtab & " ShortDomainName = " & WshNetwork.UserDomain )
    14  strAttribute = objUser.Get("Attribute")
    15  If Err.Number = E_ADS_PROPERTY_NOT_FOUND Then
    16                           
    17  Trace (vbtab & " La requête sur l'attribut AD  " & Attribute & " a échouée.")
    18  Err.Clear
    19                       
    20  Else    
    21  Trace (vbtab & " L'attribut AD " & Attribute & " contient " & strAttribute & " .")
    22                           
    23  End if
    24                           
    25                       
    26  Next

    Je ne comprends pas bien ce que font certaines lignes de code ( la 1 et la 8 ), donc si en plus de m'aider à débugger vous pouviez m'expliquer à quoi elles servent ça serait sympa.

    a votre bon coeur...



    DJ
    jeudi 28 octobre 2010 16:00

Toutes les réponses

  • Bonjour et merci d'utiliser le forum Technet.

    Avant qu'on puisse t'aider, ca serait bien de savoir ce que tu souhaites faire exactement. Il sera ainsi plus facile de te donner un support et même de t'orienter aux bonne places si nécessaire.

    La premiere parti du code est l'attribution des variables.


    Blog Microsoft | Déployer Windows 7 | Améliorer les performances de Windows 7
    jeudi 28 octobre 2010 23:19
  • Bonjour,

     

    En fait je souhaite récupérer les attributs d'un compte utilisateur AD à chaque ouverture de session pour les écrire dans un fichier journal en indiquant dans chacun des cas possibles:

     si la requête réussie et que l'attribut est renseigné wscript.echo & attribut

     si la requête réussie mais que l'attribut n'est pas renseigné/initialisé wscript.echo "attribut non renseigné"

     si la requête échoue (déconnexion du câble, ad indisponible) " echec pour telle ou telle raison "

     

    J'ai vu d'autre manière de requêter l'AD notamment avec l'objet ADODB mais j'aimerai réussir avec ADSystemInfo et la méthode objUser.get()

     

    Merci


    DJ
    vendredi 29 octobre 2010 07:57