Auteur de questions
Script VBS & Active Directory

Discussion générale
-
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 ;-)
- Type modifié Aurel Bera lundi 15 avril 2013 06:19 Discussion
- Type modifié Aurel Bera lundi 15 avril 2013 06:19 Discussion
Toutes les réponses
-
-
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,
-
Bonjour
Avez-vous des nouvelles pour nous?
Cordialement,
-
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".
-
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,
-
Bonjour,
Voici le bon script
Set objSysInfo = CreateObject("ADSystemInfo") strUserName = objSysInfo.UserName wscript.echo "Utilisateur: " & strUserName Set objUser = GetObject("LDAP://" & strUserName) objUser.Put "mail", "mail@domaine.com" 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 ;-)