Masternono | Bonsoir,
J'ai actuellement un script qui me permet de migrer des utlisateurs avec leurs propriétés (enfin pas toutes..)
J'aimerais pouvoir migrer l'information "initiales" qui se trouve dans les propriètés de l'utilisateur. (Ou bien de prendre les 2 premières lettres du SamAccountName)
Je cherche également le code qui me permettra de connecter à un lecteur, un chemin unc pour chque user.
Ci-joint mon script
Code :
- Dim rep2
- 'rep2 = MsgBox("Continuer?" , VbOkCancel + vbInformation, "Attention!" )
-
- 'if rep2 = 2 then wscript.echo "Opération annulée" & wscript.quit
- Const ADS_PROPERTY_CLEAR = 1
- Set ObjOU=GetObject ("LDAP://" & LDApath)
- objOU.filter=array("user" )
- For Each ObjUser In ObjOU
- ObjUser.Put "profilePath" , VBpath & ObjUser.sAMAccountName
- if LSPath <> "" then
- ObjUser.LoginScript = LSpath
- else
- objUser.PutEx ADS_PROPERTY_CLEAR, "scriptPath", vbNullString
- end if
- 'ObjUser.Put "homeDirectory" , "\\ad2008\users$\" &_
- 'ObjUser.sAMAccountName
- 'ObjUser.Put "homeDrive" , "W:"
- 'Objuser.homedirectory = "\\ad2008\users$\" & ObjUser.sAMAccountName
- objUser.Put "pwdLastSet", -1
- ObjUser.SetInfo
- Next
- Set objOU = Nothing
- WScript.Echo "Fin de l'application."
|
Ce nest qu'une partie du script, je pense que cela suffit.
Merci pour vos réponses |
