Script VBS

Recherche :

Dernière réponse
Sujet : Script VBS
moldar	J'avance un peu : Set oRoot = GetObject("LDAP://rootDSE" ) Set oDomain = GetObject("LDAP://" & oRoot.Get("defaultNamingContext" )) Set objNetwork = CreateObject("Wscript.Network" ) Set oOU = GetObject("LDAP://ou=Internet, dc=DOMAINE, dc=local" ) objNetwork = GetObject("LDAP://cn=5499998, ou=Internet, dc=DOMAINE, dc=local" ) If objNetwork="" Then Set oUser = oOU.create("User", "cn=5499998" ) oUser.Put "sAMAccountName", "5499998" oUser.Put "Description", "Utilisateur test2" oUser.SetPassword "nouveau" oUser.AccountDisabled = False oUser.SetInfo Else oUser.SetPassword "nouveau" oUser.Put "Description", "Utilisateur mis à jour" oUser.AccountDisabled = False oUser.SetInfo End IF ... mais mon test ne marche pas (il ne peut pas mettre le résultat de la commande getobject dans une variable si l'objet en question n'existe pas). Donc ma question est la suivante, comment tester l'existance d'un utilisateur ? merci !!

Dernière réponse

Sujet : Script VBS

moldar

J'avance un peu :

Set oRoot = GetObject("LDAP://rootDSE" )
Set oDomain = GetObject("LDAP://" & oRoot.Get("defaultNamingContext" ))
Set objNetwork = CreateObject("Wscript.Network" )

Set oOU = GetObject("LDAP://ou=Internet, dc=DOMAINE, dc=local" )

objNetwork = GetObject("LDAP://cn=5499998, ou=Internet, dc=DOMAINE, dc=local" )
If objNetwork="" Then
Set oUser = oOU.create("User", "cn=5499998" )
oUser.Put "sAMAccountName", "5499998"
oUser.Put "Description", "Utilisateur test2"
oUser.SetPassword "nouveau"
oUser.AccountDisabled = False
oUser.SetInfo
Else
oUser.SetPassword "nouveau"
oUser.Put "Description", "Utilisateur mis à jour"
oUser.AccountDisabled = False
oUser.SetInfo

End IF

... mais mon test ne marche pas (il ne peut pas mettre le résultat de la commande getobject dans une variable si l'objet en question n'existe pas).
Donc ma question est la suivante, comment tester l'existance d'un utilisateur ?

merci !!

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

moldar

Et comment on fait ça ?
Pis je veux pas le supprimer je veux juste modifier son mot de passe...

gatsusat

ben faut verifier si le user existe déjà, dans ce cas tu le supprimer et tu en crée un nouvo

moldar

Bonjour,

J'ai hésité à poster ça dans la section script, pis je me suis dit que ça concernait plus l'administration.
Alors voilà, je dispose d'un fichier txt contenant sur chacune de ses lignes :
- un login
- un mot de passe
- une description

Je souhaite ajouter ces utilisateurs sur mon domaine AD. J'ai fait le script suivant (généré à partir du txt) :
Set oRoot = GetObject("LDAP://rootDSE" )
Set oDomain = GetObject("LDAP://" & oRoot.Get("defaultNamingContext" ))

Set oOU=oDomain.Create("organizationalUnit","ou=Internet" )
oOU.Put "Description", "Utilisateurs internet"
oOU.SetInfo

Set oUser = oOU.Create("User", "cn=5499998" )
oUser.Put "sAMAccountName", "5499998"
oUser.Put "Description", "Utilisateur test"
oUser.SetInfo

oUser.SetPassword "199998"

oUser.AccountDisabled = False
oUser.SetInfo

Set oUser = oOU.Create("User", "cn=54X99999" )
oUser.Put "sAMAccountName", "5499999"
oUser.Put "Description", "Utilisateur test"
oUser.SetInfo

oUser.SetPassword "in45h61fo"

oUser.AccountDisabled = False
oUser.SetInfo

Ca marche sans problème, si ce n'est qu'il est possible qu'un moment ou un autre les utilisateurs changent de mots de passe, à ce moment j'ai un fichier txt mis à jour, mais mon script ne fonctionne plus (normal les users existent déja). Comment mettre à jour les mots de passe sans passer par la création de users ?

Merciiii !!