Лидеры

Сегодня-завтра будет. Просто пока что для новой версии нет автоматического инструмента и много ручной работы. Так что просьба не плодить заказы. ?

Не вижу, где там показывает сразу у нескольких документов. Попробовал способ через колонку "Число страниц" на MS Office 2019, Windows 10 x64, система корректно показывает кол-во страниц только у документов, созданных этим же Office 2019 (как doc, так и docx), у других doc, например, созданных в Office 2003, показывает всегда число 1. А еще часто бывают rtf, там вообще не отображается. Попробовал способ через vbs, считает долго (т.к. открывает в скрытом виде каждый документ), но посчитало правильно. Для docx тебе ничего исправлять в скрипте не надо, т.к. во первых проверяются только первые 3 буквы после последней точки в имени файла, во-вторых, документ открывается точно также как и doc, не смотря на другую его структуру, ведь скрипт берёт значение от самого Word-а, не анализируя внутренности файла самостоятельно. Сделал обобщённый вариант vbs, с подсчетом раздельно и в сумме DOC*, XLS*, RTF со сканом рекурсивно (с подкаталогами): Dim numXDocs, sumXSheets, sumXPages, numWDocs, sumWPages set oExcel = CreateObject("excel.application") set oWord = CreateObject("word.application") set root = CreateObject("scripting.filesystemobject").getfile(wscript.scriptfullname).parentfolder Analysis(root) oExcel.Quit: oWord.Quit set oExcel = Nothing: set oWord = Nothing: set root = Nothing wscript.echo _ "DOC*, RTF:" & Chr(13) & _ "Всего страниц: " & sumWPages & Chr(13) & "Документов: " & numWDocs & _ Chr(13) & Chr(13) & "XLS*" & Chr(13) & _ "Всего страниц: " & sumXPages & Chr(13) & "Всего листов: " & sumXSheets & Chr(13) & "Документов: " & numXDocs & _ Chr(13) & Chr(13) & "-----------------" & Chr(13) & "Общее:" & Chr(13) & Chr(13) & _ "Страниц: " & sumXPages + sumWPages & Chr(13) & "Документов: " & numXDocs + numWDocs Sub Analysis(root) With oExcel For Each x In root.Files If LCase(Mid(x.Name, InStrRev(x.Name, ".") + 1, 3)) = "xls" Then With .workbooks.open(x.Path, , True) 'ReadOnly numXDocs = numXDocs + 1 sumXSheets = sumXSheets + .sheets.count For Each sheet in .sheets sumXPages = sumXPages + (sheet.HPageBreaks.Count + 1) * (sheet.VPageBreaks.Count + 1) Next .Close False 'don't save changes End With End If Next .Quit End With With oWord For Each x In root.Files ext = LCase(Mid(x.Name, InStrRev(x.Name, ".") + 1, 3)) if ext = "doc" or ext = "rtf" then With .documents.open(x.Path, , True) 'ReadOnly numWDocs = numWDocs + 1 sumWPages = sumWPages + .Content.ComputeStatistics(2) 'wdStatisticPages .Close False 'don't save changes End With end if Next End With For Each x in root.SubFolders: Analysis(x): Next End Sub

Так всё равно надо будет сидеть и потом на калькуляторе плюсовать страницы, так что под условия задачи не подходит. В поиске можно найти это https://www.sql.ru/forum/953973/kak-poschitat-obshhee-kolichestvo-stranic-teksta-v-nabore-faylov-word-a Вроде как раз то что нужно, но там делалось для старого ворда. Так что если для .doс и будет работать (не проверял), то для docx и так ясно, что работать не будет. Ибо это уже по структуре это документ внутри архива. На всякий случай код .vbs скрипта из последнего вложения там With CreateObject("word.application") For Each x In CreateObject("scripting.filesystemobject").getfile(wscript.scriptfullname).parentfolder.Files If LCase(Mid(x.Name, InStrRev(x.Name, ".") + 1, 3)) = "doc" Then With .documents.open(x.Path, , True) 'ReadOnly numDocs = numDocs + 1 sumPages = sumPages + .Content.ComputeStatistics(2) 'wdStatisticPages ' sumPages = sumPages + .BuiltInDocumentProperties(14) 'wdPropertyPages 'считает неправильно! .Close False 'don't save changes End With End If Next .Quit End With wscript.echo "Всего страниц " & sumPages & Chr(13) & "Документов " & numDocs

Поиск подсказал один из способов Как посчитать количество страниц сразу в нескольких документах Word сам не проверял, нет образцов файлов Word

Примите к сведению - после выполнения скрипта все открытые вкладки браузеров будут закрыты, произойдет выход из аккаунтов, временные файлы, куки и кэш будут очищены. Отключите до перезагрузки антивирус. Выделите следующий код: Start:: CreateRestorePoint: HKLM\SOFTWARE\Policies\Microsoft\Windows Defender: Restriction <==== ATTENTION GroupPolicy: Restriction ? <==== ATTENTION GroupPolicy\User: Restriction ? <==== ATTENTION Policies: C:\ProgramData\NTUSER.pol: Restriction <==== ATTENTION Policies: C:\Users\User\NTUSER.pol: Restriction <==== ATTENTION HKLM\SOFTWARE\Policies\Microsoft\Edge: Restriction <==== ATTENTION HKLM\SOFTWARE\Policies\Microsoft\Internet Explorer: Restriction <==== ATTENTION HKU\S-1-5-21-3796559461-2741596016-2131030515-1000\SOFTWARE\Policies\Microsoft\Internet Explorer: Restriction <==== ATTENTION FirewallRules: [{7BEC2707-3CC0-4989-A889-8A2AA7C36313}] => (Allow) D:\C\Programs\Program Files\Epic Games\GTAV\GTA5.exe => No File FirewallRules: [{B5AD1F2F-B878-4FAE-AC99-B694DDF2F84E}] => (Allow) D:\C\Programs\Program Files\Epic Games\GTAV\GTA5.exe => No File FirewallRules: [{36EBD350-1BF1-4B42-8FE2-287FF0434CEB}] => (Allow) LPort=9089 EmptyTemp: Reboot: End:: Скопируйте выделенный текст (правой кнопкой - Копировать). Запустите FRST (FRST64) от имени администратора. Нажмите Fix и подождите. Программа создаст лог-файл (Fixlog.txt). Прикрепите его к своему следующему сообщению. Компьютер будет перезагружен автоматически. Подробнее читайте в этом руководстве.

@Maik, на всякий случай проверьтесь в этом разделе - https://forum.kasperskyclub.ru/forum/26-pomosch-v-udalenii-virusov/

1) У вас есть, что-то похожее? или 2)Уточните пожалуйста, а вы можете на время отключить базы-данных, и убедиться в том, что не он является виновником?

Здравствуйте, В процессах виден SQL сервер, могли бы уточнить пожалуйста для чего используется база данных SQL? Сменили ли вы пароль по умочанию для него? Могли бы пожалуйста просмотреть задачи на SQL сервере и прислать нам экспорт задач? (инструкция - https://docs.microsoft.com/en-us/sql/ssms/agent/view-job-activity?view=sql-server-2017). Спасибо.

В большинстве случаев - да. Дополнительно: Скачайте Farbar Recovery Scan Tool (или с зеркала) и сохраните на Рабочем столе. Примечание: необходимо выбрать версию, совместимую с вашей операционной системой. Если вы не уверены, какая версия подойдет для вашей системы, скачайте обе и попробуйте запустить. Только одна из них запустится на вашей системе. Когда программа запустится, нажмите Yes для соглашения с предупреждением. Нажмите кнопку Scan. После окончания сканирования будут созданы отчеты FRST.txt и Addition.txt в той же папке, откуда была запущена программа. Прикрепите отчеты к своему следующему сообщению. Подробнее читайте в этом руководстве.

Антивирус один, два процесса. Установите рекомендуемые в логе обновления программ, и на этом закончим.

Здравствуйте! "Пофиксите" в HijackThis: O22 - Task: webflex - D:\C\Programs\Program Files\Mozilla Firefox\firefox.exe -p "webflex24.com" Перезагрузите компьютер и соберите новый CollectionLog Автологером.

Добрый день. После перезагрузки, связанной с установкой компонентов винды 2012 r2 (PS5.1), на сервере KSC10 управляемые устройства вывалились из своих групп в просто Управляемые устройства. В истории ревизий групп - пусто, хотя параметры настроены на сохранение. ЧЯДНТ?