[VBS] ProfilPath & LoginScript

ProfilPath & LoginScript [VBS] - VB/VBA/VBS - Programmation

Marsh Posté le 08-02-2010 à 21:58:02    

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 :
  1. Dim rep2
  2. 'rep2 = MsgBox("Continuer?" , VbOkCancel + vbInformation, "Attention!" )
  3.              
  4. 'if rep2 = 2 then wscript.echo "Opération annulée" & wscript.quit
  6. Const ADS_PROPERTY_CLEAR = 1
  8. Set ObjOU=GetObject ("LDAP://" & LDApath)
  9. objOU.filter=array("user" )
  10. For Each ObjUser In ObjOU
  12. ObjUser.Put "profilePath" , VBpath & ObjUser.sAMAccountName
  14. if LSPath <> "" then
  15. ObjUser.LoginScript = LSpath
  16. else
  17. objUser.PutEx ADS_PROPERTY_CLEAR, "scriptPath", vbNullString
  18. end if
  20. 'ObjUser.Put "homeDirectory" , "\\ad2008\users$\" &_
  21. 'ObjUser.sAMAccountName
  23. 'ObjUser.Put "homeDrive" , "W:"
  24. 'Objuser.homedirectory = "\\ad2008\users$\" & ObjUser.sAMAccountName
  26. objUser.Put "pwdLastSet", -1
  27. ObjUser.SetInfo
  28. Next
  29. Set objOU = Nothing
  31. WScript.Echo "Fin de l'application."


 
Ce nest qu'une partie du script, je pense que cela suffit.
 
Merci pour vos réponses

Reply

Marsh Posté le 08-02-2010 à 21:58:02   

Reply

Marsh Posté le 10-02-2010 à 12:50:41    

Problème résolu.
 
message clos

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed