' Kod definiuje dla konta uytkownika rne atrybuty powizane z profilem
strUserDN = "<NazwaWyrniajcaUytkownika>"   ' np. cn=jnowak,cn=Users,dc=rallencorp,dc=com
set objUser = GetObject("LDAP://" & strUserDN)
objUser.Put "homeDirectory", "\\fileserver\" & objUser.Get("sAMAccountName")
objUser.Put "homeDrive", "z:"
objUser.Put "profilePath", "\\fileserver\" & _
            objUser.Get("sAMAccountName") & "\profile"
objUser.Put "scriptPath", "login.vbs"
objUser.SetInfo
Wscript.Echo "Uaktualniono informacje o profilu dla " & objUser.Get("sAMAccountName")
