# Kod definiuje dla konta uytkownika rne atrybuty powizane z profilem

use Win32::OLE;
$Win32::OLE::Warn = 3;
my $strUserDN = "<NazwaWyrniajcaUytkownika>";   # np. cn=jnowak,cn=Users,dc=rallencorp,dc=com
my $objUser = Win32::OLE->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;
print "Uaktualniono informacje o profilu dla ", $objUser->Get("sAMAccountName")\n";
