Давно я не разговаривал с умным человеком

- самим собой.

Вот, работаюший скриптик по изменению домашней папки юзера.

В моей ситуации папка юзера скрыто расшарена  на серваке  т.e. %USERNAME%$


On Error Resume Next

Set objUser = GetObject("LDAP://CN=ЮЗЕР,OU=ЕГО ОУ,DC=ТУТА ИМЯ ДОМЕНА" )

    strUser = objUser.sAMAccountName
    strHomeDirectory = "\\ ТУТА ПИШЕМ ИМЯ СЕРВАКА\" & strUser &"$"
    objUser.homeDirectory = strHomeDirectory
    objUser.homeDrive = "Z:"
    objUser.SetInfo

wscript.Echo "Done for" & " " & strUser & " !"

Оригинал умной мысли тута:


http://blogs.technet.com/b/heyscriptingguy/archive/2006/02/06/how-can-i-assign-a-new-home-drive-to-a-user-who-doesn-t-have-one.aspx