Сообщество программистов Чертенок.ру » Ktf

Меняем программно пароль локального пользователя

Ktf — Mon, 17 May 2010 20:44:11 +0000

В рамках разработки системы программного удалённого администрирования, написал функцию смены пароля локального пользователя Windows, решил выложить, может кому пригодится.

История написания этой функции такова – однажды у админов возникла необходимость сменить пароль локального пользователя Administrator на всех компах. Проблема – обойти все 300 с лишним компов. Тогда и была написана эта функция и к ней агент выполняющий её на конечных компьютерах. Потом были добавлены и другие функции - копирование/удаление файлов, модификация реестра, запуск программ, включение/отключение служб…

unit modChangePass;

interface

uses
  Windows, SysUtils;

function SetUserPassword(UserName, NewPassword: string; var ErrMsg: string;
  var UserNotFound: boolean): boolean;

implementation

const
  NetApi32 = 'netapi32.dll';

  NERR_Success      = 0;
  NERR_BASE         = 2100;
  NERR_UserNotFound = NERR_BASE + 121; // The user name could not be found.

type
  USER_INFO_1 = record
    usri1_name: PWideChar;
    usri1_password: PWideChar;
    usri1_password_age: DWORD;
    usri1_priv: DWORD;
    usri1_home_dir: PWideChar;
    usri1_comment: PWideChar;
    usri1_flags: DWORD;
    usri1_script_path: PWideChar;
  end;
  PUSER_INFO_1 = ^USER_INFO_1;

function NetUserGetInfo(servername, username: PWideChar;
  level: DWORD; var bufptr: PByte): DWORD; stdcall;
external netapi32 name 'NetUserGetInfo';

function NetUserSetInfo(servername, username: PWideChar;
  level: DWORD; buf: PByte; parm_err: PDWORD): DWORD; stdcall;
external netapi32 name 'NetUserSetInfo';

function NetApiBufferFree(Buffer: Pointer): DWORD; stdcall;
external netapi32 name 'NetApiBufferFree';

function Str2Wide(lpStr: String):PWideChar;
var
  dwStrlen : Cardinal;
begin
  dwStrLen := lstrlen(PChar(lpStr));
  GetMem(Result,(dwStrLen+1)*2);
  StringToWideChar(lpStr,Result,dwStrLen+1);
end;

function SetUserPassword(UserName, NewPassword: string; var ErrMsg: string; var UserNotFound: boolean): boolean;
var
  wname: PWideChar;
  parm_err: DWORD;
  ecode: integer;
  buf: PByte;
  u1: USER_INFO_1;
begin
  wname:=Str2Wide(UserName);

  try
    try
      ecode:=NetUserGetInfo(nil, wname, 1, buf);
      try
        result:=(ecode=NERR_SUCCESS);
        UserNotFound:=(ecode=NERR_UserNotFound);
        if not result then begin
          ErrMsg:=SysErrorMessage(ecode);
          exit;
        end;

        u1:=PUSER_INFO_1(buf)^;

        u1.usri1_password:=Str2Wide(NewPassword);
        try
          ecode:=NetUserSetInfo(nil, u1.usri1_name, 1, @u1, @parm_err);
          result:=(ecode=NERR_SUCCESS);
          if not result then
            ErrMsg:=SysErrorMessage(ecode);
        finally
          FreeMem(u1.usri1_password);
          u1.usri1_password:=nil;
        end;

      finally
        NetApiBufferFree(buf);
      end;
    finally
      FreeMem(wname);
    end;
  except
    on E:Exception do begin
      ErrMsg:=E.ClassName+': '+E.Message;
      Result:=false;
    end;
  end;
end;

end.

Note: There is a poll embedded within this post, please visit the site to participate in this post's poll.

Как я отправлял посылку за границу

Ktf — Thu, 18 Feb 2010 03:08:22 +0000

В общем, дело было так. Приходим мы на почту. А там на посылках девка молодая, высокая и тощая сидит вдалеке от окошка и с бумагами копается.
Спрашиваю – вы работаете? Она, не поднимая головы – работаем.
И дальше копается.
Я говорю – а посылку можно отправить? Она, все так же копаясь в бумагах – можно.
Кое-как я добился от нее внимания.
Пришла, спрашивает – куда? Говорю – в Казахстан.
Она – заполните 4 таможенных декларации. И дала стопку штук 50 бланков, формата А5.
Не, даже не А5, а А6. Ну, в 4 раза меньше чем А4.
Дала, и дальше копается. Заполнил как понял. Спрашиваю – так? Она, не поднимая головы – угу.
Минут через 5 оторвалась от бумаг, спрашивает, что отправлять будете?
Показываю диски. Молча подошла, взяла, ушла.
Через 10 минут вернулась с небольшим пакетом, перевязанным веревкой.
Заглянула в декларацию – а где имя-отчество, а где адрес, а где паспортные данные??
А там из полей – вот не поверишь – только поля «фамилия», «город», «улица» и «инн».
И пришлось в маленькую клетку «инн» влепить паспортные данные – номер, кем и когда выдан.
Зато клетка подпись и дата в 4 раза больше поля «инн».
Все, грит, с вас 263,82.
Глянул в квитанцию, а там написано: «Заказной мелкий пакет». Пересылка «Наземная».
Ни тебе вопросов как, ни вопросов насколько срочно.
Вопрос «сколько посылка идти будет» был тупо проигнорирован.
Так что, Gelios, дружище, жди теперь посылку!

Галопом по Европам: Прага

Ktf — Tue, 02 Feb 2010 11:38:46 +0000

Небольшой фотоотчет о посещении мною Праги ровно месяц назад.

Вид на город с высоты Пражского града

Не обращайте особого внимания на некоторую серость фотографий. Город очень гостеприимный и теплый в любое время года.

Тучи над Прагой

И хотя новый год буквально только что наступил, новогодних украшений (в традиционном русском понимании этого выражения) совсем мало. Оно и понятно – главным зимним праздником в Европе было и остается конечно же Рождество. И те елки, которые в большом количестве встречаются в городе то там, то тут – они рождественские.

Староместская площадь

Практически все уличные елки украшены гирляндами, особо везучим елкам достаются елочные шары и… охранник в придачу (чтоб русские туристы эти самые шары не сперли). Шутка.

Охраняемая елка

Если вы меня начнете расспрашивать, в каком районе Праги больше всего достопримечательностей, я вас тут же отправлю ну скажем в википедию. Потому что того времени, что я провел в Праге, недостаточно для посещения даже малой их части.
К примеру, Градчаны. Красивейший район на подступах к пражскому граду, мимо которого гид нас просто провел мимо со словами «а вон, посмотрите, Градчаны». Кстати говоря, гид был местный. В Чехии не разрешают кому попало вести экскурсии.

Градчаны

Заметки из поезда №13

Ktf — Thu, 14 Jan 2010 21:04:13 +0000

Погода на день отъезда стояла чудесная, морозы отступили, но было пасмурно.
Тринадцатый поезд подобрал нас в еще не до конца проснувшемся городе Омске, откуда до Питера было 52 часа ходу.

Нам достались места в купе с надписью «для отдыха работников вагона-ресторана».

Сосед по купе ехал из Новосибирска, позже мы узнали, что он железнодорожник с сорокалетним стажем и зовут его Александр. Большую часть пути он занимался своим хобби – вязал сачки. Получалось это у него довольно ловко, многие проходя мимо нашего купе, любопытствовали и заходили посмотреть. Хвалили. Сосед же наш ничуть не смущался и большую часть времени развлекал нас рассказами о своей жизни.

К слову сказать, поезд шел довольно неспешно по маршруту Новокузнецк – Санкт-Петербург. Новокузнецк – это написанный на географической карте средним таким шрифтом город, расположенный неподалеку от Кемерово.

Останавливались мы не часто, но надолго. Сначала были долгие остановки в Исилькуле и Петропавловске. Все пассажиры сидели по своим «норкам» и не высовывались. Заграница, типа. Наблюдали из окон. По перрону мимо здания вокзала с русскими надписями сновали туда сюда казахи в униформах и делали вид, что просто прогуливаются. Петропавловск практически не отличим от любого сибирского города, к примеру от того же Кургана, где у нас была следующая долгая остановка.
В Кургане можно было спокойно выйти на свежий воздух и сделать пару нормальных снимков.

На каждой такой стоянке проводницы встречали новых пассажиров, а потом доставали ломы и отдалбливали под туалетами намерзший лед или что там еще было.

Потом мы проспали Свердловск.
Зато утром прогулялись под снегом в Перми.
Пермский вокзал снаружи ничем не отличался от какого-нибудь дома культуры, построенного в советское время в каком-нибудь мелком городишке. Хотя перрон там чистили исправно. Каким-то чудом мужики в лопатами в кадр не попали.

Балезино мы увидели уже по светлу. На выходе из вагона пришлось преодолеть осаду торговцев, которые настойчиво предлагали купить не то мягкие игрушки и шали, не то пиво с пирожками. Вокруг тусовались сытые собаки – по крайней мере, от хот-догов они отказывались. Снег тут убирали тракторами.

В Кирове наш поезд встретился со своим двойником – поездом Санкт-Петербург – Новокузнецк. Если кто-то что-то забыл дома, это был последний шанс вернуться обратно. Шутка.
На фото: справа – поезд №13, слева – поезд №14. Братья-близнецы, вместе прибыли, вместе отправились.

Кстати, это была вторая встреча. Первая длилась минуту-две, на станции Петухово, примерно через час после Петропавловска.
Продавцы метались между поездами, желая сбагрить хоть что-нибудь. Но нашего брата-сибиряка голыми руками не возьмешь! Парни в шортах выскакивали из вагонов на перрон и ухмылялись: «Китайское? Хе, у нас все то же самое, но в разы дешевле!» Но один фиг тарились – и жратвой и гигантскими плюшевыми тиграми.

Перед сном полюбуемся заснеженным Буем, с вокзалом в стиле драмтеатра и дохлым mts-овским gprs-ом.

Под утро добрались до Бабаево. Сугробы просто неимоверные.

Последняя «большая» остановка перед пунктом прибытия – Волховстрой. Солнечно и морозно. И пожалуй единственная станция, где действительно есть на что посмотреть. Прямо на перроне волховского вокзала стоит легендарный Паровоз Эу 708-64, тот самый, который первым после прорыва блокады привёз продовольствие и боеприпасы в Ленинград.

Питер встречает дикими сугробами и кашей на пешеходных переходах.

Устраиваемся в предварительно забронированном отеле и выходим полюбоваться на предновогодний Петербург.
На дворцовой площади возвышается суперская елка, вид портит разве что строительный кран за триумфальной аркой.

Однако елка на стрелке Васильевского острова, где до самой темноты ребятня рубилась в снежки – тоже не промах!

Недолго побродив по городу, возвращаемся в отель – завтра рано утром на автобус, на котором нам предстоит исколесить полевропы.

Галопом по Европам: Берлин

Ktf — Tue, 12 Jan 2010 08:02:36 +0000

Что можно успеть увидеть в Берлине за 3 часа?

Берлинский кафедральный собор

Побывать на площади перед изысканным дворцом Шарлоттенбург в стиле барокко, с позолоченными шпилями на воротах.

Дворец Шарлоттенбург

Поглазеть из окна автобуса парк Тиргартен и 67-ми метровую Колонну Победы в самом его центре.

Колонна Победы

Прогуляться по Трептов-парку и своими глазами увидеть памятник Воину-освободителю, тому самому, который спас немецкую девочку во время штурма Берлина в 1945-м году. Говорят, вокруг памятника посажены сплошь русские березы.

Монумент Воину-освободителю

По пути к берлинской стене увидеть в реке Шпрее две гигантские алюминиевые фигуры, как бы борющиеся и в то же время уравновешивающие друг друга – символ единства восточного и западного Берлина.

Символ единства

Проехаться вдоль берлинской стены, точнее, того, что от нее осталось.

Берлинская стена

Обнаружить самую обыкновенную новогоднюю елку рядом с Рейхстагом.

Рейхстаг

Пофоткаться сбоку, спереди и сзади Бранденбургских ворот.

Бранденбургские ворота

Дойти до музейного острова по липовой аллее Унтер-ден-линден, простоять минут 15 в очереди в Пергамский музей, понять, что это дело безнадежное и вернуться на аллею, зайти в кафе, съесть здоровенный кусок стейка, а потом забежать в один из многочисленных сувенирных магазинчиков и купить какую-нибудь маленькую штучку на память.

Унтер-ден-линден

А вот взглянуть хоть одним глазком на берлинский зоопарк – увы, никак не успеть…

Ссылочная: Гигапиксельные панорамы

Ktf — Tue, 22 Dec 2009 04:56:20 +0000

В продолжение темы о мега фотках.

18-гигапиксельная сферическая панорама Праги, вид с телебашни.
Фотография смонтирована из 600 снимков, совокупность которых дает изображение 192 000 x 96 000 точек.
Жмем в левом верхнем углу ссылку Full Screen, и рассматриваем фото во всех подробностях.

26-гигапиксельная фотография Дрездена
Для съемки использовался фотоаппарат Canon EOS 5D Mark II с 400 мм объективом, управляемый роботом; потребовалось сделать 1665 снимков, и ушло на это 172 минуты. Верстка изображения проводилась с помощью компьютера с 48 ГБ оперативной памяти и 16 процессорами на борту: за 94 часа он обработал 102 гигабайта RAW-данных. В результате получилась картинка размером 297 500 x 87 500 точек.

источник

Обновление updates 4, 5, and Boost Library for Delphi and C++Builder 2010

13-ый — Tue, 15 Dec 2009 05:11:37 +0000

Вот и вышло обновление 4 5 вместо отмененного обновления 2 3.

Важные замечание о перевыпуске Обновлений 2, 3, и Boost Library

Обновления update 4, 5, и Boost Library являются перевыпуском предыдущих обновлений (Обновления 2, 3, и Boost Library). Этот перевыпуск предназначен, чтобы устранить регистрационные проблемы, о которых сообщили пользователи установившие Updates 2, 3, and Boost Library. Так же были внесены новые исправления, и таким образом число обновлений было увеличено.

* Вы можете установить новые обновления на версии без обновлений или на любое более раннее обновление (update 1, 2, или 3).
* Если Вы не установили оригинальные обновления (Обновления 2, 3), то не нужно устанавливать их.
* Если Вы устанавливали оригинальные обновления (Обновления 2, 3), то не нужно их удалять.

Требования и примечания для обновления 4:

Delphi и C ++ Builder 2010 update 4 сделан на основе MSI. Обновление 4 может быть применено по любому из следующих продуктов:
o Delphi 2010 RTM, Обновление 1, Обновление 2, или Обновление 3
o C ++ Builder 2010 RTM, Обновление 1, Обновление 2, или Обновление 3
o RAD Studio 2010 RTM, Обновление 1, Обновление 2, или Обновление 3

Полный список проблем, установленных в Обновлениях 4 и 5, см. следующие статьи:
o Список исправленных ошибок в 2010 Delphi
o Список исправленных ошибок в C ++ Builder 2010

Вы не должны останавливать установку обновления, если она уже началась. Обновление 4 может занять 20 минут или больше.

Требования и примечания для обновления 5 (Пакет Базы данных):

Только исправления связанные с базой данных включены в Обновление 5 (Пакет Базы данных). Обновление 4 должно быть установлено для этого обновления.

Обновление 5 (Пакет Базы данных) удалит предыдущий Пакет Базы данных, который был установлен и устанавит эту более новую версию. Версия файлов базы данных после обновления будут 3611.

Update 5 (Dababase Pack) может быть применен к любому из следующих продуктов:
o Delphi 2010 или 2010 Delphi update 4
o C ++ Builder 2010 или C ++ Builder 2010 update 4
o RAD Studio 2010 update 4

Обновите 5 (Пакет Базы данных) требует для корректной работы установки обновления 4. Если обновление 4 не установлено, пожалуйста не устанавливайте обновление 5. Вместо этого установите обновление 4 и затем установите обновление 5.

Обновление 5 может занять десять минут или больше.

Оригинальный текст

само обновление

зы: на момент написания, после установки этого обновления перестают работать все пиратские таблетки DelphiDistiller 1.85.

© 13-ый Нет комментариев |
Post tags: Boost library, C++ Builder 2010, delphi, delphi 2010, RAD Studio 2010, radstudio2010UpdatePack_Dec09, radstudio2010UpdatePack_Dec09.zip, update, Updates 4 5, скачать

Мышка забилась в угол

Ktf — Tue, 27 Oct 2009 19:13:39 +0000

Глипу 3 месяца.
Питается исключительно мясными пюре Агуша и ходит в Катсан.
Невероятно кусучий, любопытный и заводной.
На кис-кис не отзывается, сигналом к приему пищи признает лишь звуки постукивания по миске.
Если еда не нравится, закапывает миску чем найдется.
Всячески препятствует уборке своего лотка во время своего бодрствования.
Ободрал обои на всех углах.
По ночам скачет по квартире, расшторивает окна, грызет обувь.
Не любит закрытых дверей. Не реагирует на свое отражение в зеркале.
Любит грызть мои очки и уши.
Смотрит телевизор и аквариум. Читает книги зубами.
Любит лежать прямо на клавиатуре. Ловит лапами курсор.
Помогал мне писать эту запись.

Note: There is a poll embedded within this post, please visit the site to participate in this post's poll.

Случай на трассе

Ktf — Sun, 18 Oct 2009 18:52:30 +0000

Еду сегодня по трассе. Дорога – 2 полосы, моя и встречная. Еду 120 км/ч.
Оп, и обходит меня волга. Отрывается метров на 300, не больше. Минуты 2 так и едем. Потом смотрю – начинает сбрасывать. 100, 80. Ну я думаю – наверное впереди плохой участок, сбрасываю тоже. Но нифига подобного – дорога такая же. Хм, ладно. Пристраиваюсь за ним.
Дальше начинает происходить нечто странное. Этот гад выходит на середину дороги и сбрасывает до 60. Я тоже сбрасываю, и на всякий случай увеличиваю дистанцию. Встречки нет, впереди на сколько видно тоже никого нет, дорога прямая и ровная. А волга вытворяет очередной маневр – выходит на встречку, едет метров 100 и возвращается на середину. И так раз 5. Потом, видимо увидев, что я не пытаюсь его обогнать, перестраивается на правую сторону, набирает скорость и уходит вперед.
Может кто-нибудь объяснить мне его поведение, а то я до сих пор теряюсь в догадках…

Так вот ты какой, северный олень…

Ktf — Wed, 14 Oct 2009 10:00:54 +0000

Когда я вырасту, у меня будет много вот таких вот коробочек:
А пока – коробочка только одна.
Кто-нибудь представляет насколько это приятно держать в руках такую коробочку?

Еще вчера ты был «как все», юзал кряки, обсуждал способы лечения на руборде и вдруг – бац! стал не как все.
Многие могут сказать – фи, ну и чем будет отличаться продукт, установленный из твоей коробочки, от продукта, скачанного с торрента и вылеченного чьей-то хитроумной таблеточкой?
Хм. Да ну и что, что ничем! Да всем. Тем, что он лицензионный хотя бы. А значит все глюки – это фичи, а не побочные эффекты от приема лекарств.
И вообще – это подарок, а дареному коню в зубы не смотрят. Вот.