none
Нужен хитрый скрипт. RRS feed

  • Общие обсуждения

  • Задача следующая:

    Есть терминал , на терминале порядка 30-40 пользователей.
    У них настроена Windows Outlook Express почта.

    За размером папок никто не следит , требуется найти папки в

    которых почтовые базы превышают 2 Gb.

    22 августа 2008 г. 15:01

Все ответы

  • PowerShell

    Первое что пришло на ум. Можно искать по расширению dbx файлы определённого размера, в данном случае больше 76 килобайт.

     

    Code Snippet

    Get-ChildItem 'C:\Documents and Settings' *.dbx -recurse -force | where-object {$_.length -ge 76000} | fl fullname


    FullName : C:\Documents and Settings\jinn\Local Settings\Application Data\Identities\{03AB599C-397C-41A7-AD38-3CACD7479DC5}\Microsoft\Outlook Express\Входящие.dbx

    FullName : C:\Documents and Settings\stas\Local Settings\Application Data\Identities\{3FE2149A-D097-481B-816D-23F69049480D}\Microsoft\Outlook Express\Входящие.dbx

    FullName : C:\Documents and Settings\zorion\Local Settings\Application Data\Identities\{54CD1413-7165-4B08-B8BE-2A68AABBC503}\Microsoft\Outlook Express\Входящие.dbx

    FullName : C:\Documents and Settings\zorion\Local Settings\Application Data\Identities\{54CD1413-7165-4B08-B8BE-2A68AABBC503}\Microsoft\Outlook Express\Исходящие.dbx

    FullName : C:\Documents and Settings\zorion\Local Settings\Application Data\Identities\{54CD1413-7165-4B08-B8BE-2A68AABBC503}\Microsoft\Outlook Express\Отправленные.dbx

    FullName : C:\Documents and Settings\zorion\Local Settings\Application Data\Identities\{54CD1413-7165-4B08-B8BE-2A68AABBC503}\Microsoft\Outlook Express\Удаленные.dbx

    FullName : C:\Documents and Settings\zorion\Local Settings\Application Data\Identities\{54CD1413-7165-4B08-B8BE-2A68AABBC503}\Microsoft\Outlook Express\Черновики.dbx

     

     

     

    25 августа 2008 г. 0:02
  • Родил всё-таки :-)

     

    Code Snippet

    $childitem = get-childitem 'c:\Documents and Settings' *.dbx -Force -Recurse | Group-Object directory

    $childitem = $childitem | ForEach-Object{Get-ChildItem $_.name -force | Measure-Object length -Sum |

    add-member noteproperty -Name "Name" -Value $_.name -PassThru}

    $childitem | where-object {$_.sum -ge 2gb} | Sort-Object sum -Descending | ft name, sum -Wrap

     

    25 августа 2008 г. 4:22
  • А на VB можно ?

    25 августа 2008 г. 7:23
  • Nu chto-to takoe poluchilosj

     

     

    Dim System
    Dim Drive
    ReDim Location(0)
    Dim FileName
    DIM LogFile

    FileName = LCase(Trim(InputBox("Enter the name of the" &_
                      " file that you wish to search for.")))
    If Len(FileName) = 0 Then Wscript.Quit
    Set System = CreateObject("Scripting.FileSystemObject")

    Set LogFile = system.CreateTextFile("c:\log1.txt", True)
    Call FindFile("C:\Documents and Settings")
    LogFile.Close
    msgbox "DONE"


    Sub FindFile(ThisFolder)
        Dim File
        Dim Folder
        dim S
        For Each Folder In System.GetFolder(ThisFolder).SubFolders
           For Each File In Folder.Files
              If LCase(File.Name) = FileName Then
                 if folder.size > 2048000 then
                   s = Folder.Name
                   LogFile.write("Path ->")
                   LogFile.Writeline(Folder.Path)
                   LogFile.write("Size ->")
                   LogFile.writeline (folder.size)
                   LogFile.Writeline
                 end If
              end if 
           Next 'File
           Call FindFile(Folder)
        Next 'Folder
    END SUB

    25 августа 2008 г. 12:56
  •  dexs написано:

    Задача следующая:

    Есть терминал , на терминале порядка 30-40 пользователей.
    У них настроена Windows Outlook Express почта.

    За размером папок никто не следит , требуется найти папки в

    которых почтовые базы превышают 2 Gb.

     

    А если нажать Start, а потом Search, задать папку и критерии поиска?   - стандартный поиск Windows шустренько найдет вам все, что нужно!

    26 августа 2008 г. 4:44
    Модератор
  •  

    Но к сожалению регулярно это делать не будет ;-) 

     

    26 августа 2008 г. 5:15
  •  

    Так существует механизм квот для папок в Windows Server 2003 R2 с рассылкой уведомлений 
    26 августа 2008 г. 7:43
    Модератор
  • Мы не ищем лёгких путей

    26 августа 2008 г. 22:30