Script VBS & Active Directory

Question

Bonjour,

Je ne suis pas sur d'être dans la bonne section, mais je pose quand meme ma question. Mon script doit modifier des propriétés de l'utilisateur courant dans l'AD, mais rien ne se passe.... Une idée ?

Set objSysInfo = CreateObject("ADSystemInfo")
Set objUserCG = GetObject("LDAP://" & objSysInfo.UserName)
'WScript.Echo objUserCG.FullName

Dim UserName 
UserName = objUserCG.FullName

dim objRootDSE, objContainer, objUser
set objRootDSE = GetObject("LDAP://rootDSE")
set objContainer = GetObject ("LDAP://" & objRootDSE.Get("defaultNamingContext"))
set objUser = objContainer.Create("user", "cn=" & UserName)

objUser.put "ProfilePath", "\\test123\profile"
objUser.put "HomeDirectory", "\\test123\homed"
objUser.put "HomeDrive", "Z"

objUser.SetInfo

WScript.Echo "Profile Path:"	& objUser.ProfilePath  
WScript.Echo "Home Directory:	" & objUser.HomeDirectory 
WScript.Echo "Home Drive:	" & objUser.HomeDrive 

Merci d'avance !

---

-- Cédric GEORGEOT [MVP] Virtual Machine http://www.e-novatic.fr -- Auteur du livre "Bonnes pratiques, planification et dimensionnement des infrastructures de stockage et de serveur en environnement virtuel" -- N'oubliez pas de marquer comme réponse ;-)

Answer 1

Bonjour,

J'ai deja fait des scripts vbs avec l'AD mais de tete je m'en souviens pas trop, je regarderais demain au boulot (mais je n'ai pas d'acces au forum du boulot)

Il ne manque pas un commit ?

---

Cordialement,

Answer 2

Bonjour

Ajoutez un 

On Error GoTo [label] 

pour voir les possibles erreurs.
Inspectez les valeurs des objets pour voir s'ils ne sont pas nuls.

Cordialement,

---

Aurel BERA, Microsoft
Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

Answer 3

Bonjour

Avez-vous des nouvelles pour nous?

Cordialement,

---

Aurel BERA, Microsoft
Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

Answer 4

Bonjour. Avez-vous essayé de modifier tout simplement objUserCG ? Vous récupérez l'utilisateur mais ensuite vous utilisez une autre variable objUser avec du code qui me semble plutôt être destiné à créer un nouvel utilisateur ?!

Effectivement ce forum est consacré à Visual Basic sous .NET et non pas à VBScript.

---

Please always mark whatever response solved your issue so that the thread is properly marked as "Answered".

Answer 5

Bonjour,

Est-ce que vous avez testé les solutions proposées ? Merci de partager avec nous les résultats, afin que d'autres personnes avec le même problème puissent profiter de cette solution.

Cordialement,

---

Aurel BERA, Microsoft
Microsoft propose ce service gratuitement, dans le but d'aider les utilisateurs et d'élargir les connaissances générales liées aux produits et technologies Microsoft. Ce contenu est fourni "tel quel" et il n'implique aucune responsabilité de la part de Microsoft.

Answer 6

Bonjour,

Voici le bon script

Set objSysInfo = CreateObject("ADSystemInfo")

strUserName = objSysInfo.UserName
 
wscript.echo "Utilisateur: " & strUserName

Set objUser = GetObject("LDAP://" & strUserName)

objUser.Put "mail", "[e-mail]"

objUser.SetInfo

---

-- Cédric GEORGEOT [MVP] Virtual Machine http://www.e-novatic.fr -- Auteur du livre "Bonnes pratiques, planification et dimensionnement des infrastructures de stockage et de serveur en environnement virtuel" -- N'oubliez pas de marquer comme réponse ;-)