Dji-Pih | kisscool5 a écrit :
"..Essaie plutôt de faire pointer ton dossier vers \\serveur\partage\dossiertoto..."
Oui, merci, j'aurais du y penser...
C'est fait désormais, mais.. ça ne change rien; le dossier n'est pas créé au moment où je lance la commande dsmod qui modifie le hmdir.
Help please...
|
Salut,
Tu fais un script qui teste l'existence du répertoire et le crée s'il n'existe pas...
Exemple en vbscript :
Code :
- Dim fso, fso_pth, fso_fld, fso_nfld
- Dim fld, pth
- pth = "\\serveur\Partage\"
- fld = "DossierUser"
- Set fso = CreateObject("Scripting.FileSystemObject" )
- If not (fso.FolderExists(pth & fld)) Then
- Set fso_pth = fso.GetFolder(pth)
- Set fso_fld = fso_pth.SubFolders
- Set fso_nfld = fso_fld.Add(fld)
- End If
|
Pour ajouter un utilisateur UserName en vbscript :
Code :
- ' pth & fld étant définis dans le script précédent...
- Dim objOU, objUser
- Dim UserName
- UserName = "toto"
- Set objOU = GetObject("LDAP://OU=NomOU,dc=XXXX,dc=com" )
- Set objUser = objOU.Create("User", "cn=" & UserName)
- objUser.Put "sAMAccountName", UserName
- objUser.SetInfo
- Set objUser = GetObject("LDAP://cn=" & UserName & ",ou=NomOU,dc=XXXX,dc=com" )
- objUser.Put "profilePath", "\\serveur\Profile$\" & UserName
- objUser.Put "homeDirectory", pth & fld
- objUser.Put "homeDrive", "H"
- objUser.SetInfo
|
|