Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Développement Développement Scripting Microsoft Homedir

Homedir

1 réponse
Avatar
Pat
Bonjour,



Je travail dans un environnment AD et je cherche un moyen de renseigner le
homedir de plusieur user via script (dans une OU bien précise).

c'est à dire à partir d'un fichier csv :

login;lettre_du_homedir;chemin_d'accès;

pdurand,T:,\\serveur\pdurand$;


Merci d'avance !
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Gilles LAURENT [MVP]
"Pat" a écrit dans le message de
news:
| Bonjour,

Bonjour,

| Je travail dans un environnment AD et je cherche un moyen de
| renseigner le homedir de plusieur user via script (dans une OU bien
| précise).
|
| c'est à dire à partir d'un fichier csv :
|
| login;lettre_du_homedir;chemin_d'accès;
|
| pdurand,T:,serveurpdurand$;

Avec le provider ADSI WinNT

Note : Les champs sont séparés par le caractère point-virgule

--- Coupez ici : CodeSnippet.vbs ---
Const COMPUTER="."

Set oFs=CreateObject("Scripting.FileSystemObject")
Set oFile=oFs.OpenTextFile("Test.csv")
arrLines=Split(oFile.ReadAll,VBCrLf)
For Each strLine In arrLines
arrParams=Split(strLine,";")
If UBound(arrParams) > 0 Then

Set oUser=GetObject( _
"WinNT://" & COMPUTER & "/" & arrParams(0) & ",user")
oUser.HomeDirDrive=arrParams(1)
oUser.HomeDirectory=arrParams(2)
oUser.SetInfo

End If
Next
--- Coupez ici : CodeSnippet.vbs ---

--
Gilles LAURENT
MVP Windows Server - Admin Frameworks
http://glsft.free.fr