Лидеры

Не вижу, где там показывает сразу у нескольких документов. Попробовал способ через колонку "Число страниц" на 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

Привет , Владимир. Могу поделиться "светленьким" (почти дефолтным) , но ведь ты же , в отличие от меня , любишь чёрные тона ...

В августе файл assm.exe имел другой размер. И его внутреннее имя было WindowsSecurityService.exe. Теперь Windows Update Service.exe. syswin.dll тогда назывался просто sys.dll. На деле эти библиотеки - обычные zip-архивы, из которых извлекаются компоненты майнера. Нужно попробовать в безопасном режиме вручную удалить И проверить, появятся ли они при дальнейшей загрузке в обычном режиме после старта MSSQL.

это к Игорю или к Администраторам

Подойдет. Я забыл про него. Файлы syswin.dll, SystemManagement.exe, config.json есть на компьютере? Предположительно в папках c:\program files\microsoft sql server\mssql12.sql2014\mssql\data\sqlmanagement или c:\windows\system32.

Загрузитесь в безопасном режиме, заархивируйте с паролем virus1234, выложите на файлообменник и пришлите ссылку на скачивание мне в личные сообщения.

В блокноте - Сохранить как - тип файла "Все файлы" и сменить расширение на .vbs Закинуть в нужную папку и запустить.

СТАВКИ ОТКРЫТЫ! Просьба заново подать прогнозы тем, кто это уже сделал

У меня опять-таки не круглое, но красивое число

поделись

Больше на косяк обновления похоже, чем на вирусню.

Слишком подозрительное следующее обновление Windows в каталоге SQL Server: C:\Program Files\Microsoft SQL Server\MSSQL12.SQL2014\MSSQL\DATA\SqlManagement\Windows Update Service.exe пожалуйста самостоятельно ничего не удаляйте. 1) Закройте и сохраните все открытые приложения. 2) Выделите следующий код: Start:: CreateRestorePoint: Folder: C:\Users\Serv\AppData\Roaming\IsolatedStorage File: C:\Windows\system32\IHDS.dll File: C:\Windows\system32\sysmain.dll File: C:\Windows\SysWOW64\TextInputMethodFormatter.dll File: C:\Windows\system32\TextInputMethodFormatter.dll File: C:\Program Files\Microsoft SQL Server\MSSQL12.SQL2014\MSSQL\DATA\SqlManagement\vcpruntime140.dll File: C:\Program Files\Microsoft SQL Server\MSSQL12.SQL2014\MSSQL\Binn\sqlservr.exe Folder: C:\Program Files\Microsoft SQL Server\MSSQL12.SQL2014\MSSQL\DATA\SqlManagement File: C:\Program Files\Microsoft SQL Server\MSSQL12.SQL2014\MSSQL\DATA\SqlManagement\Windows Update Service.exe Zip: C:\Program Files\Microsoft SQL Server\MSSQL12.SQL2014\MSSQL\Binn\sqlservr.exe;C:\Program Files\Microsoft SQL Server\MSSQL12.SQL2014\MSSQL\DATA\SqlManagement\vcpruntime140.dll;C:\Program Files\Microsoft SQL Server\MSSQL12.SQL2014\MSSQL\DATA\SqlManagement\Windows Update Service.exe End:: 3) Скопируйте выделенный текст (правая кнопка мыши – Копировать). 4) Запустите Farbar Recovery Scan Tool. 5) Нажмите один раз на кнопку Fix и подождите. Программа создаст лог-файл (Fixlog.txt). Пожалуйста, прикрепите его в следующем сообщении. Обратите внимание: возможно будет выполнена перезагрузка компьютера.

Похожий на ваш случай - SQL Server, MrbMiner the new malware that infects SQL Server! Проверьте пожалуйста, если в учетных записях имеется имя пользователя: The backdoor account has the username "Default" and a password of "@ fg125kjnhn987". Если он присутствует, вам необходимо его как минимум отключить, так как это может способствовать проникновению в вашу инфраструктуру. Попробуйте также выполнить описанный в статье T-SQL: SELECT [name], [type_desc], is_disabled, create_date, modify_date FROM sys.server_principals ORDER BY modify_date desc и проверить роль пользователя.

Нескольких, но число то выводится для каждого отдельно, а не суммарное в папке. да.

Так всё равно надо будет сидеть и потом на калькуляторе плюсовать страницы, так что под условия задачи не подходит. В поиске можно найти это 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

Рассел заменит Хемилтона Самого Рассела в вильямсе заменит Джек Эйткен Грожана заменит Пьетро Фиттипальди