/
githubmirror
/
metasploit-framework
Обзор
Документация
Войти
/
githubmirror
/
metasploit-framework
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
data/post/powershell/outlook.ps1
47 строк
1 KB
Christian Mehlmauer
outlook post module fixes
06 дек 2014, 02:28
Не верифицирован
06 дек 2014, 02:28
9187a40
Код
Авторство
О чём код?
function GetSubfolders($root) { $folders = @() $folders += $root foreach ($folder in $root.Folders) { $folders += GetSubfolders($folder) } return $folders } function List-Folder { Clear-host Add-Type -Assembly "Microsoft.Office.Interop.Outlook" $Outlook = New-Object -ComObject Outlook.Application $Namespace = $Outlook.GetNameSpace("MAPI") $account = $NameSpace.Folders $folders = @() foreach ($acc in $account) { foreach ($folder in $acc.Folders) { $folders += GetSubfolders($folder) } } $folders | FT FolderPath } function Get-Emails { param ([String]$searchTerm,[String]$Folder) Add-Type -Assembly "Microsoft.Office.Interop.Outlook" $Outlook = New-Object -ComObject Outlook.Application $Namespace = $Outlook.GetNameSpace("MAPI") $account = $NameSpace.Folders $found = $false foreach ($acc in $account) { try { $Email = $acc.Folders.Item($Folder).Items $result = $Email | Where-Object {$_.HTMLBody -like '*' + $searchTerm + '*' -or $_.TaskSubject -like '*' + $searchTerm + '*'} if($result) { $found = $true $result | Format-List To, SenderEmailAddress, CreationTime, TaskSubject, HTMLBody } } catch { Write-Host "Folder" $Folder "not found in mailbox" $acc.Name } } if(-Not $found) { Write-Host "Searchterm" $searchTerm "not found" } }