Tema: Re: AD userio vardo pavardes EV vietoje %username%
Autorius: Aleksandr Reznik
Data: 2010-01-27 19:31:38
reikia programuoti:

pvz is http://forums.techarena.in/active-directory/548004.htm .  Kuri galima 
prerrasyti

Set ObjOU=GetObject ("LDAP://OU=" + InputBox("Enter OU of Dept") +
",OU=DEPARTMENTS,DC=aintree,DC=nhs,DC=uk")
objOU.filter=array("user")
For Each ObjUser In ObjOU

'ObjUser.Put "profilePath" , "\\ahtfilevs03\profiles$\" +
ObjUser.sAMAccountName
'ObjUser.Put "homeDirectory" , "\\ahtfilevs01\users$\" +
ObjUser.sAMAccountName
'ObjUser.Put "homeDrive" , "W:"
'ObjUser.LoginScript = "kix32.exe main.kix"

Objuser.homedirectory = "\\ahtfilevs01\users$\" + ObjUser.sAMAccountName


ObjUser.SetInfo
Next
Set objOU = Nothing


BR
Aleksandr Reznik
IT Consultant , MCT, MCSE, MCDBA, CISSP
UAB "Alpha consulting"
+37064752717
www.alphaconsulting.lt


"niim" <email@domain.com> wrote in message 
news:kpbml518tgfbdosfvj33fk4iidap9lbqfl@4ax.com...
>
> Sveiki,
>
> yra noras kad roaming profiliu direktorijos butu kuriamos ne is
> logino, naudojant %username%, o vartotojo vardo ir pavardes, ar yra
> toks kintamasis? o gal kaip kitaip tai imanoma padaryti, bet
> automatiskai, nes varotoju labai daug.
>
>
> --