Voici le code qui permet de mettre les valeurs dans active directory
objUSER.put "homedrive", strhomedrive
objUSER.put "homedirectory", strhomedirectory
Voici le bout de code qui permet de crée de crée les dossiers
' pour donner les droits sur le dossier de l'utilisateur
set wshshell = CreateObject("Wscript.Shell" )
set e = wshshell
set f = wshshell
'pour ouverture du dossier partager
Set fso = CreateObject("Scripting.FileSystemObject" )
If Not fso.FolderExists(strhomedirectory) Then
Set fldUserHomedir = fso.CreateFolder(strhomedirectory)
End If
Wscript.echo("strhomedirectory = "&strhomedirectory)
'attribution des droits au dossier partager
cmd = "cacls " & strhomedirectory & " /T /E /G " & Login & ":C"
e.Run cmd, 1 , true
cmd1 = "cacls " & strhomedirectory & " /T /E /G administrateur:F"
f.Run cmd1, 1, True
objUSER.SetInfo
set objUSER = Nothing
mais le repertoire est bon et bien crée.
j'espere que ça suffit sinon merci de me le dire