Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.08.2020, 11:44   #1
xwicked
Участник клуба
 
Аватар для xwicked
 
Регистрация: 21.03.2010
Сообщений: 1,508
По умолчанию Административные действия в Delphi используя CMD и PowerShell

Привет, народ!

Возникла необходимость автоматизировать часть своих действий по проверке компов и установке программ. Хочу прибегнуть к Delphi и PowerShell. Кроссплатформенности не нужно. Целевые системы 7,8.1 и 10.
Ищу книгу серии "Наиболее полное руководство" или руководство на русском, со всеми командами. Мне нужно просмотреть все возможности, чтобы я знал, смогу ли я все свои задачи сделать с помощью PowerShell или нужно будет прибегать к WinApi-кодингу. Поиск по форуму и инету дал информацию клочками, а мне нужно целиком в одном месте. На сайте Microsoft какая-то обрывистая фигня вперемешку с допутилитами.

Заранее благодарю!
Google - лучший помощник программиста.
---
моя лаборатория | мой FaceBook

Последний раз редактировалось xwicked; 05.08.2020 в 11:46. Причина: дополнение заголовка темы
xwicked вне форума Ответить с цитированием
Старый 13.08.2020, 07:06   #2
Ecosasha
Форумчанин
 
Регистрация: 22.05.2009
Сообщений: 248
По умолчанию

Может, можно попробовать посмотреть вручную по встроенной справке в Windows PowerShell ISE все разделы? Например:
get-help *
get-help about*
get-help New-Module -examples

Просто первое, что пришло в голову.
Ecosasha вне форума Ответить с цитированием
Старый 13.08.2020, 11:35   #3
xwicked
Участник клуба
 
Аватар для xwicked
 
Регистрация: 21.03.2010
Сообщений: 1,508
По умолчанию

Цитата:
Сообщение от Ecosasha Посмотреть сообщение
Может, можно попробовать посмотреть вручную по встроенной справке в Windows PowerShell ISE все разделы? Например:
get-help *
get-help about*
get-help New-Module -examples

Просто первое, что пришло в голову.
Цитата:
руководство на русском
Тогда уж:
Код:
get-help * >> E:\ShellHelp.txt
Но и смотри что получилось:
Цитата:
Clear-EventLog Cmdlet Удаляет все записи из заданных ж...
Write-EventLog Cmdlet Записывает событие в журнал собы...
Limit-EventLog Cmdlet Задает свойства журнала событий,...
Show-EventLog Cmdlet Отображает журналы событий локал...
New-EventLog Cmdlet Создает новый журнал событий и н...
Remove-EventLog Cmdlet Удаляет журнал событий или отмен...
Get-ChildItem Cmdlet Извлекает элементы и их потомки ...
Get-Content Cmdlet Извлекает содержимое элемента, н...
Get-ItemProperty Cmdlet Получает свойства заданного элем...
Ты может быть и линуксоид, чтобы соснольку читать, а я вантузятник. Мне нужен полный русский связный текст.
Я в принципе уже кое-что нашёл, но несколько моментов осталось, поэтому выложу позже всё сюда с переименованием темы, так как пойдут технические вопросы.
[UPD:]

Прошу модеров,если остались такие, переименовть тему на "Административные действия в Delphi используя CMD и PowerShell" и перенести в раздел с Delphi.

Задача автоматизировать профилактические действия эникейщика или админа. Проверка ФС диска c дефрагментацией, очистка временных папок, отключение лишних служб и переустановка определённого принтера с перезагрузкой.
Вот что у меня получилось:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0,'open','cmd.exe','/k chkdsk /f d:','C:\Windows\system32\',SW_HIDE);
ShellExecute(0,'open','cmd.exe','/k "echo Y | chkdsk c: /F"','C:\Windows\system32\',SW_HIDE);
ShellExecute(0,'open','cmd.exe','/k sfc /scannow','C:\Windows\system32\',SW_SHOW);
ShellExecute(0,'open','cmd.exe','/k del /s /f /q %temp%\*.*','C:\Windows\system32\',SW_HIDE);
ShellExecute(0,'open','cmd.exe','/k del /s /f /q %systemroot%\temp\*.*','C:\Windows\system32\',SW_HIDE);
ShellExecute(0,'open','cmd.exe','/k defrag /c /h /u','C:\Windows\system32\',SW_SHOW);
ShellExecute(0,'open','powershell.exe','stop-service -DisplayName NVIDIA*','C:\Windows\system32\',SW_SHOW);
ShellExecute(0,'open','powershell.exe','stop-service -DisplayName INTEL*','C:\Windows\system32\',SW_SHOW);
ShellExecute(0,'open','powershell.exe','stop-service -DisplayName AMD*','C:\Windows\system32\',SW_SHOW);
ShellExecute(0,'open','powershell.exe','stop-service -DisplayName Superfetch*','C:\Windows\system32\',SW_SHOW);
ShellExecute(0,'open','powershell.exe','stop-service -Name MpsSvc*','C:\Windows\system32\',SW_SHOW);
ShellExecute(0,'open','powershell.exe','stop-service -Name WinDefend*','C:\Windows\system32\',SW_SHOW);
ShellExecute(0,'open','powershell.exe','stop-service -Name wscsvc*','C:\Windows\system32\',SW_SHOW);
ShellExecute(0,'open','powershell.exe','stop-service -Name wuauserv*','C:\Windows\system32\',SW_SHOW);
ShellExecute(0,'open','powershell.exe','stop-service -Name WSearch*','C:\Windows\system32\',SW_SHOW);
end;
Перезагрузку найти не проблема. Не могу найти рабочую информацию по переустановке принтера. Кто что может подсказать? Можно средствами Delphi, не CMD.
Google - лучший помощник программиста.
---
моя лаборатория | мой FaceBook

Последний раз редактировалось xwicked; 13.08.2020 в 12:44.
xwicked вне форума Ответить с цитированием
Старый 16.08.2020, 15:27   #4
Alar
Александр
Администратор
 
Аватар для Alar
 
Регистрация: 28.10.2006
Сообщений: 17,758
По умолчанию

Цитата:
Сообщение от xwicked Посмотреть сообщение
Прошу модеров
Сделано, но нужно было кликнуть на кнопку жалоба, тогда вероятность заметить просьбу была бы 100%.
А так могли и не заметить.
Alar вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Действия с массива(StringGrid) в Delphi 7 ShaoKhan Помощь студентам 5 06.02.2013 22:17
действия над матрицами (Delphi) STALKER1993 Помощь студентам 1 26.06.2012 12:42
Действия в WMQueryEndSession (Delphi) Shouldercannon Win Api 1 17.02.2012 16:41
Используя компоненту Edit выполнить следующие действия. Аделинка Помощь студентам 2 31.03.2011 14:42
Действия над матрицами. (Delphi) ekzobyte Помощь студентам 1 20.05.2009 20:52