[Quote]

    dimo70
  • 17296
  • Longevity: 2 years 9 months
  • Posts: 1509
  • REPUTATION:19

    [+] [-]
  • Location: BG
ClDefrag v.8
Версия программы: 8
Язык интерфейса: Английский.
Лечение: пролечено.
Системные требования: Windows 10 / 8 / 7 ...
Описание: ClDefrag полезность, для вполне автономной проверки и исправления ошибок файловой системы, с последующей очистки, дефрагментации и оптимизации системы Windows. Работает как с SSD так и с HDD. Сделана на основе Auslogics Disk Defrag Ultimate.
"Что делает ClDefrag?
В самом начале chkdsk проверяет диск на ошибки.
Если нашел ошибки, планируется исправление после загрузки и автоматически перезагружает компьютер. (можно пропустить)
Если ошибки не обнаружены, скрипт проверяет наличие SSD в системы. Если найдет, делается только очистка и оптимизация SSD.
Если не найдет SSD, начинается очистка, дефрагментация и оптимизация диска/дисков.
1: Очистка при помощи CCleaner и Wise Disk Cleaner и Dism (по желанию) автоматом из командной строки.
2: Дефрагментация и оптимизация диск C:, или всех дисков по выбору, при помощи cdefrag.exe компании Auslogics из командной строки.
Делаю для себя. Удобно запускать в конце каждой установки, после завершения работы для автоматической очистки и оптимизации рабочей системы, а так же и для профилактики.
Изменения: Версия 8 - утилита переделана на основе новой версии Auslogics Disk Defrag Ultimate.
Пользует последние альгорифмы для оптимизации SSD и HDD. Модули обновлены.
Ссылка на ЯД ClDefrag_v.8
FastClean: - быстрая очистка.
Ссылка на FastClean
FastDefrag: - быстрая дефрагментация и оптимизация. На основе последней версии Auslogics Disk Defrag Ultimate 4.11.0.7
Поддерживаются SSD и HDD.
Ссылка на FastDefrag v.6Screenshots:


Last edited by dimo70 on 2020-09-05 21:01; edited 34 times in total

[Quote]

    dimo70
  • 17296
  • Longevity: 2 years 9 months
  • Posts: 1509
  • REPUTATION:19

    [+] [-]
  • Location: BG
Обновление до версии 2.
Добавлена возможность выбора проверки дисков в самом начале. (Случается с второго раза находит ошибки на C: хотя их нет). Можно пропустить.
Мелкие исправления в скрипте.

[Quote]

    WindR
  • 327
  • Longevity: 5 years 7 months
  • Posts: 13
  • REPUTATION:0

    [+] [-]
Auslogics Disk Defrag Free даёт результат хуже стандартного дефрагментатора Windows 7

[Quote]

    dimo70
  • 17296
  • Longevity: 2 years 9 months
  • Posts: 1509
  • REPUTATION:19

    [+] [-]
  • Location: BG
WindR, cdefrag.exe есть только в платного Auslogics Disk Defrag Pro. Какая альтернатива предлагаете, стандартный подключить на месте него? В принципе возможно.
Как то не вериться, что IOBit Smart Defrag лучше всех по тех результатов. Но обещаю подумать, что можно изменить.
КМК Auslogics Disk Defrag лучше. После него система становиться быстрее, а и быстро проходит.
Если сдесь глянуть, картина совсем другая.

[Quote]

    WindR
  • 327
  • Longevity: 5 years 7 months
  • Posts: 13
  • REPUTATION:0

    [+] [-]
Я использую MyDefrag со скриптами от Jaspion

[Quote]

    dimo70
  • 17296
  • Longevity: 2 years 9 months
  • Posts: 1509
  • REPUTATION:19

    [+] [-]
  • Location: BG
WindR, читал хорошие вещи про MyDefrag. Скрипты не знаю, но рискну подключить тоже. Идея понравилась. Нужно протестировать aa
Тут еще один очень сериозный вопрос стоит. Нужно перед запуска дефрагментации проверить что за диск.
Если SSD, то запустить скрипт для SSD, если HDD, запустить например automaticMonthly.MyD.
Вот тут я не знаю как сделать, а ето очень существенно, так как сейчас уже половина дисков SSD, а они никак не любят дефрагментацию.
Если кто подскажет буду весьма благодарен. aa

[Quote]

    WindR
  • 327
  • Longevity: 5 years 7 months
  • Posts: 13
  • REPUTATION:0

    [+] [-]
Вот выдержка из Set-Drives-Icons.ps1
# Перепроверяем более точно все диски, определённые ранее как HDD, с помощью утилиты Smartctl.exe
        # Диски могут не определиться как SSD, так как с помощью PS это сделать гарантированно не возможно.
        $TableDrives.Values.Where({
            if ( $_.MediaType -like '*HDD*' )
            {
                # Для всех возможных типов подключения.
                foreach ( $Type in 'sat,auto','sat','auto','ata','scsi','nvme' )
                {
                    # Если диск определился как SSD.
                    if (( & $Smartctl -d $Type -i $_.DriveLetter ) -like '*Solid State Device*' )
                    {
                        # Переименовываем его МедиаТип HDD в МедиаТип SSD, и прерываем дальнейшее определение этого диска.
                        if ( $_.MediaType -eq 'VirtualHDD' ) { $_.MediaType = 'VirtualSSD' }
                        else                                 { $_.MediaType = 'SSD'        }
                        break
                    }
                }
            }
        })
от уважаемого westlife с определением SSD.
запустить например automaticMonthly.MyD
рекомендую System Disk Level V.MyD для разовой дефрагментации.

[Quote]

    dimo70
  • 17296
  • Longevity: 2 years 9 months
  • Posts: 1509
  • REPUTATION:19

    [+] [-]
  • Location: BG
WindR, спасибо, проверю.
Если все нормально будет подключу и обновлю. aa

[Quote]

    WindR
  • 327
  • Longevity: 5 years 7 months
  • Posts: 13
  • REPUTATION:0

    [+] [-]
Вот тоже самое из более старого _1__settings.bat:
:: Сценарий получения информации по жестким дискам в системе, и определения SSD дисков
:DiskInfo
set "DiskLOG=%temp%\Diskpart.log"
set "DiskLOG2=%temp%\Diskpart2.log"
set "WmicLog=%temp%\Wmic.log"
set "HDDLog=%temp%\TempHDD.log"
set "SSDLog=%temp%\TempSSD.log"
del "%WmicLog%" 2>nul & del "%HDDLog%" 2>nul & del "%SSDLog%" 2>nul & del "%DiskLOG2%" 2>nul
echo. list volume | diskpart | findstr /i " Partition Simple " | findstr /i " GB MB " >%DiskLOG%
chcp 866 >nul
for /f "tokens=1*" %%I in (' type "%DiskLOG%" ') do (
set "LogLine=%%I %%J"
set "LogLine=!LogLine:* NTFS =!" & set "LogLine=!LogLine:* FAT32 =!" & set "LogLine=!LogLine:* Simple =!" & set "LogLine=!LogLine:* Partition =!"
for /f "tokens=1,2" %%K in ('echo.!LogLine!^| findstr /i " MB GB "') do (
  set "SizeMB=1"
  if "%%L"=="MB" ( set "SizeMB=%%K" & set "SizeMB=!SizeMB:~3!" )
  set "ExcludeLine=~~~~~~~"
  if "!SizeMB!"=="" set "ExcludeLine=%%K %%L"
  for /f "tokens=3*" %%O in (' echo.%%I %%J ^| find /i /v " !ExcludeLine! " ^| find /i /v " Hidden " ') do (
   echo.%%O %%P>>"%DiskLOG2%"
  )
)
)
for /f "tokens=1,2*" %%I in (' type "%DiskLOG2%" ') do (
set "DiskLetter=%%I"
set "GBDisk=%%J %%K"
set "GBDisk=!GBDisk:* Simple =!" & set "GBDisk=!GBDisk:* Partition =!"
set "DiskType=" & set "DiskType2="
2>nul wmic logicaldisk !DiskLetter!: get FileSystem,Name,VolumeName | find /i "!DiskLetter!:">>%WmicLog%
type %WmicLog% | find /i "!DiskLetter!:" >nul && ( set "DiskType={0e}HDD{#}"& set "DiskType2=HDD" )
for %%A in (sat2,sat,auto,ata,scsi,nvme) do (
  set "D=%%A"
  if "%%A"=="sat2" set "D=sat,auto"
  %Smartctl% -d !D! -i !DiskLetter!: |>nul find /i "Solid State Device" && (set "DiskType={0a}SSD{#}"& set "DiskType2=SSD")
)
if "!DiskType2!"=="SSD" (<nul set /p Drives=!DiskLetter!: >>%SSDLog%)
if "!DiskType2!"=="HDD" (<nul set /p Drives=!DiskLetter!: >>%HDDLog%)
for /f "tokens=1,3*" %%I in (' type "%WmicLog%" ^| find /i "!DiskLetter!:" ') do (
  set "DiskName=%%J %%K"
  set "DiskFS=%%I"
  for /f "tokens=1,2" %%L in ('echo.!GBDisk!') do (
   set "Tab=    "
   if %%L GTR 9 set "Tab=   " & if %%L GTR 99 set "Tab=  " & if %%L GTR 999 set "Tab= "
   set "DiskSize=%%L %%M!Tab!"
   if "!DiskFS!"=="NTFS" set "DiskFS=NTFS "
   %ch%                  !DiskType! {08}Disk ^> {0f}!DiskLetter!: {08}^|{#} !DiskSize! {08}^|{#} !DiskFS! {08}^|{#} !DiskName! {\n #}
  )
)
)
chcp 65001 >nul
for /f "tokens=*" %%I in (' 2^>nul type %SSDLog% ') do set "SSDdisk=%%I"
for /f "tokens=*" %%I in (' 2^>nul type %HDDLog% ') do set "HDDdisk=%%I"
if "%SSDdisk%"=="" ( set "TrimDisks=У вас нет {0a}SSD{#} дисков"
) else ( set "TrimDisks={0d}Выполнить{#} TRIM для {0a}SSD{#} дисков: {0a}%SSDdisk%{#}" )
if "%HDDdisk%"=="" ( set "DfrgDisks=У вас нет {0e}HDD{#} дисков"
) else ( set "DfrgDisks={0d}Выполнить{#} дефрагментацию {0e}HDD{#} дисков: {0e}%HDDdisk%{#}" )
del "%DiskLOG%" 2>nul & del "%DiskLOG2%" 2>nul & del "%WmicLog%" 2>nul & del "%HDDLog%" 2>nul & del "%SSDLog%" 2>nul
exit /b

[Quote]

    dimo70
  • 17296
  • Longevity: 2 years 9 months
  • Posts: 1509
  • REPUTATION:19

    [+] [-]
  • Location: BG
WindR, если ето работает, лучше как вариант. Проверю.
WindR, ставь код в спойлер на сайт! Будут замечания.

[Quote]

    dimo70
  • 17296
  • Longevity: 2 years 9 months
  • Posts: 1509
  • REPUTATION:19

    [+] [-]
  • Location: BG
Обновление до версии 3.
Изменения:
Добавлена автоматическая проверка наличия SSD. Если есть дефрагментация и оптимизация диска пропускается.
Добавлена очистка с Dism
Мелкие исправления скрипта.

[Quote]

    qwea2005
  • 1759
  • Longevity: 4 years 11 months
  • Posts: 45
  • REPUTATION:0

    [+] [-]
73267автоматическая проверка наличия SSD
dimo70, если правильно увидел Вы проверку на принадлежность к SSD выполняете через PowerShell? Значит ли это что "ClDefrag полезность" будет использоваться только в "живой операционной системе" или предполагается использование и в WinPe? Если и в последнем, то не увидел как Вы добиваетесь гарантированного выполнения запроса?
73180Вот выдержка из Set-Drives-Icons.ps1
WindR, а прямую ссылку на скрипт можно или только через профиль уважаемого westlife?
dimo70, случайно, но почитывая в свободные минуты о SSD тоже обратил внимание на
73180с помощью утилиты Smartctl.exe
присмотритесь к ней, посмотрите что выдает консольная утилитка в ком строке smartctl -i sdX для различных SSD и особенно для гибридных НDD (для них может быть ошибка в определении) Вы, по видимому, часто пользуетесь этим железом, обратите внимание на выхлоп "smartctl -i sdа" значение "Rotation Rate" и возможно и "Device Model" . Может выхлоп "smartctl -i sdа" будет правильнее использовать и на усмотрение пользователя уже принимать решение о продолжении действий. Сильно не искал, взял консольку smartctl из HDD Guardian.

[Quote]

    dimo70
  • 17296
  • Longevity: 2 years 9 months
  • Posts: 1509
  • REPUTATION:19

    [+] [-]
  • Location: BG
qwea2005, делал для себя, только для живой системе.
По второму вопросу, присмотрюсь, но я не совсем уж разбираюсь еще во всем. ab
Идея сделать так чтоб работало и в PE нравиться, но не знаю справлюсь ли я.
Тут нужны сериозные знания и опыта в PE, которые увы у меня пока нет. ac Но постараться обещаю. ab

[Quote]

    WindR
  • 327
  • Longevity: 5 years 7 months
  • Posts: 13
  • REPUTATION:0

    [+] [-]
73180Вот выдержка из Set-Drives-Icons.ps1
WindR, а прямую ссылку на скрипт можно или только через профиль уважаемого westlife?
https://yadi.sk/d/CMqvcp1F3QiaWL

[Quote]

    qwea2005
  • 1759
  • Longevity: 4 years 11 months
  • Posts: 45
  • REPUTATION:0

    [+] [-]
WindR, aa

Page 1 of 3


Display posts:    

Current time is: 20-Sep 22:40

All times are UTC + 3


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You cannot attach files in this forum
You can download files in this forum