none
Script VBS & Active Directory RRS feed

  • 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
    lundi 8 avril 2013 13:10

Toutes les réponses