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 :

Erreur inconnu : valeur retournée null !


Sujet :

VBScript

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé Avatar de sofien
    Inscrit en
    Février 2005
    Messages
    325
    Détails du profil
    Informations personnelles :
    Âge : 44

    Informations forums :
    Inscription : Février 2005
    Messages : 325
    Par défaut Erreur inconnu : valeur retournée null !
    Bonjour les amis, ce code me permet d'insérer des utilisateurs dans Active Directory depuis un fichier Excel...

    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
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
     
        '========================================================================
        ' Script de création de comptes utilisateurs dans le conteneur "Users" a partir d'un fichier Excel
        '========================================================================
     
        '========================================================================
        ' Déclaration des variables
        '========================================================================
     
        Dim oexapp, oexwk, oexws, owshshell, ocellule, i
        dim nom, prenom, loggin, mdp, bureau, messagerie, ville, liste
        liste = ""
     
        '========================================================================
        ' Accès au fichier Excel contenant les données des utilisateurs a créer
        '========================================================================
     
        set oexapp = wscript.createobject("Excel.Application")
        set owshshell = wscript.createobject("wscript.shell")
        oexapp.visible = false
        set oexwk = oexapp.workbooks.open(owshshell.currentdirectory & "\comptes_vacataires_1.xls")
        set oexws = oexwk.activesheet
     
        '========================================================================
        ' Boucle d'extraction des données Excel ligne par ligne [~détail~]
        '========================================================================
     
        i = 1
        Do until oexapp.cells(i,1).value = ""
     
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        ' Assignation de chaque colonne Excel dans une variable
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     
        nom = oexapp.cells(i,1).value
        prenom = oexapp.cells(i,2).value
        dname = oexapp.cells(i,3).value
        login = oexapp.cells(i,4).value
        mdp = oexapp.cells(i,5).value
     
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        ' Choix du domaine et du conteneur d'Active Directory
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     
        Set objDomain = GetObject("LDAP://DC=ult,DC=lan")
        Set objCN = GetObject("LDAP://CN=Users,DC=ult,DC=lan")
     
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        ' Création de l'utilisateur "# i" et assignation des valeurs: loggin, nom, prénom, bureau _
        ' messagerie, ville et password
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     
        Set objUser = objCN.Create("User", "cn= " & nom & "")
        objUser.Put "sAMAccountName", login
        objUser.Put "sn", nom
        objUser.Put "givenName", prenom
        objUser.Put "distinguishedName", dname
        objUser.SetInfo
     
        Set objUser = GetObject("LDAP://cn=" & nom & ",CN=Users,DC=ult,DC=lan")
        objUser.SetPassword mdp
     
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        ' Placement de l'utilisateur dans le groupe "Utilisa. du domaine"
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     
        Set objCN = GetObject("LDAP://CN=Users, DC=ult,DC=lan")
        Set objGroup = GetObject("LDAP://CN=Utilisa. du domaine, CN=Users, DC=ult,DC=lan")
        objGroup.Put "sAMAccountName", "Utilisa. du domaine"
     
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        ' Activation du compte
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     
        Set objUser = GetObject("LDAP://cn=" & nom & ", CN=Users, DC=ult,DC=lan")
        objUser.AccountDisabled = FALSE
        objUser.SetInfo
     
        liste = liste + nom & ", "
        i = i+1
        Loop
     
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
        ' Récapitulatif des utilisateurs crées via la variable "liste"
        ' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
     
        MsgBox "Les utilisateurs " & liste & " ont été créés et activés."
    Ceci est le code et l'erreur s'affiche pour la ligne
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    objUser.Put "sAMAccountName", login
    Je ne sais pas l'origine de l'erreur surtout que je suis débutant dans ce domaine de script VBS. Merci!

  2. #2
    Membre éclairé Avatar de sofien
    Inscrit en
    Février 2005
    Messages
    325
    Détails du profil
    Informations personnelles :
    Âge : 44

    Informations forums :
    Inscription : Février 2005
    Messages : 325
    Par défaut
    Voici une capture d'écran jointe avec cet réponse. merci
    Images attachées Images attachées  

Discussions similaires

  1. Réponses: 0
    Dernier message: 12/04/2014, 14h54
  2. Problem valeur retourne = NULL
    Par chlebta*tsotsi dans le forum PL/SQL
    Réponses: 2
    Dernier message: 14/05/2011, 18h04
  3. requete select ne retournant que les valeurs nom null
    Par monpseudonom dans le forum Sql Developer
    Réponses: 0
    Dernier message: 20/02/2009, 16h25
  4. Message d'erreur sur valeur "Null"
    Par minooo dans le forum Servlets/JSP
    Réponses: 6
    Dernier message: 02/11/2008, 15h52
  5. [DOM] Erreur JS (valeur null ou n'est pas un objet)
    Par jibeji dans le forum Général JavaScript
    Réponses: 13
    Dernier message: 10/02/2008, 15h42

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