Скрипт статистики пользователей Exchange

Анализирует Exchange 2007 / 2010 журналы отслеживания сообщений и производит выгрузку в . CSV-файл статистику каждого пользователя. Он находит все транспортные серверы.

Всего сообщений и Bytes Sent

Уникальные Сообщения и Bytes Sent

Всего сообщений и Получено байт

и прочее…..

#mjolinor 
#02/24/2011 

#requires -version 2.0 

$today = get-date 
$rundate = $($today.adddays(-1)).toshortdatestring() 

$outfile_date = ([datetime]$rundate).tostring("yyyy_MM_dd") 
$outfile = "email_stats_" + $outfile_date + ".csv" 

$dl_stat_file = "DL_stats.csv" 

$accepted_domains = Get-AcceptedDomain |% {$_.domainname.domain} 
[regex]$dom_rgx = "`(?i)(?:" + (($accepted_domains |% {"@" + [regex]::escape($_)}) -join "|") + ")$" 

$mbx_servers = Get-ExchangeServer |? {$_.serverrole -match "Mailbox"}|% {$_.fqdn} 
[regex]$mbx_rgx = "`(?i)(?:" + (($mbx_servers |% {"@" + [regex]::escape($_)}) -join "|") + ")\&gt;$" 

$msgid_rgx = "^\$" 

$hts = get-exchangeserver |? {$_.serverrole -match "hubtransport"} |% {$_.name} 

$exch_addrs = @{} 

$msgrec = @{} 
$bytesrec = @{} 

$msgrec_exch = @{} 
$bytesrec_exch = @{} 

$msgrec_smtpext = @{} 
$bytesrec_smtpext = @{} 

$total_msgsent = @{} 
$total_bytessent = @{} 
$unique_msgsent = @{} 
$unique_bytessent = @{} 

$total_msgsent_exch = @{} 
$total_bytessent_exch = @{} 
$unique_msgsent_exch = @{} 
$unique_bytessent_exch = @{} 

$total_msgsent_smtpext = @{} 
$total_bytessent_smtpext = @{} 
$unique_msgsent_smtpext=@{} 
$unique_bytessent_smtpext = @{} 

$dl = @{} 

$obj_table = { 
@" 
Date = $rundate 
User = $($address.split("@")[0]) 
Domain = $($address.split("@")[1]) 
Sent Total = $(0 + $total_msgsent[$address]) 
Sent MB Total = $("{0:F2}" -f $($total_bytessent[$address]/1mb)) 
Received Total = $(0 + $msgrec[$address]) 
Received MB Total = $("{0:F2}" -f $($bytesrec[$address]/1mb)) 
Sent Internal = $(0 + $total_msgsent_exch[$address]) 
Sent Internal MB = $("{0:F2}" -f $($total_bytessent_exch[$address]/1mb)) 
Sent External = $(0 + $total_msgsent_smtpext[$address]) 
Sent External MB = $("{0:F2}" -f $($total_bytessent_smtpext[$address]/1mb)) 
Received Internal = $(0 + $msgrec_exch[$address]) 
Received Internal MB = $("{0:F2}" -f $($bytesrec_exch[$address]/1mb)) 
Received External = $(0 + $msgrec_smtpext[$address]) 
Received External MB = $("{0:F2}" -f $($bytesrec_smtpext[$address]/1mb)) 
Sent Unique Total = $(0 + $unique_msgsent[$address]) 
Sent Unique MB Total = $("{0:F2}" -f $($unique_bytessent[$address]/1mb)) 
Sent Internal Unique  = $(0 + $unique_msgsent_exch[$address])  
Sent Internal Unique MB = $("{0:F2}" -f $($unique_bytessent_exch[$address]/1mb)) 
Sent External  Unique = $(0 + $unique_msgsent_smtpext[$address]) 
Sent External Unique MB = $("{0:F2}" -f $($unique_bytessent_smtpext[$address]/1mb)) 
"@ 
} 

$props = $obj_table.ToString().Split("`n")|% {if ($_ -match "(.+)="){$matches[1].trim()}} 

$stat_recs = @() 

function time_pipeline { 
param ($increment  = 1000) 
begin{$i=0;$timer = [diagnostics.stopwatch]::startnew()} 
process { 
    $i++ 
    if (!($i % $increment)){Write-host “`rProcessed $i in $($timer.elapsed.totalseconds) seconds” -nonewline} 
    $_ 
    } 
end { 
    write-host “`rProcessed $i log records in $($timer.elapsed.totalseconds) seconds” 
    Write-Host "   Average rate: $([int]($i/$timer.elapsed.totalseconds)) log recs/sec." 
    } 
} 

foreach ($ht in $hts){ 

    Write-Host "`nStarted processing $ht" 

    get-messagetrackinglog -Server $ht -Start "$rundate" -End "$rundate 11:59:59 PM" -resultsize unlimited | 
    time_pipeline |%{ 

    if ($_.eventid -eq "DELIVER" -and $_.source -eq "STOREDRIVER"){ 

        if ($_.messageid -match $mbx_rgx -and $_.sender -match $dom_rgx) { 

            $total_msgsent[$_.sender] += $_.recipientcount 
            $total_bytessent[$_.sender] += ($_.recipientcount * $_.totalbytes) 
            $total_msgsent_exch[$_.sender] += $_.recipientcount 
            $total_bytessent_exch[$_.sender] += ($_.totalbytes * $_.recipientcount) 

            foreach ($rcpt in $_.recipients){ 
            $exch_addrs[$rcpt] ++ 
            $msgrec[$rcpt] ++ 
            $bytesrec[$rcpt] += $_.totalbytes 
            $msgrec_exch[$rcpt] ++ 
            $bytesrec_exch[$rcpt] += $_.totalbytes 
            } 

        } 

        else { 
            if ($_messageid -match $messageid_rgx){ 
                    foreach ($rcpt in $_.recipients){ 
                        $msgrec[$rcpt] ++ 
                        $bytesrec[$rcpt] += $_.totalbytes 
                        $msgrec_smtpext[$rcpt] ++ 
                        $bytesrec_smtpext[$rcpt] += $_.totalbytes 
                    } 
                } 

            } 

    } 

    if ($_.eventid -eq "RECEIVE" -and $_.source -eq "STOREDRIVER"){ 
        $exch_addrs[$_.sender] ++ 
        $unique_msgsent[$_.sender] ++ 
        $unique_bytessent[$_.sender] += $_.totalbytes 

            if ($_.recipients -match $dom_rgx){ 
                $unique_msgsent_exch[$_.sender] ++ 
                $unique_bytessent_exch[$_.sender] += $_.totalbytes 
                } 

            if ($_.recipients -notmatch $dom_rgx){ 
                $ext_count = ($_.recipients -notmatch $dom_rgx).count 
                $unique_msgsent_smtpext[$_.sender] ++ 
                $unique_bytessent_smtpext[$_.sender] += $_.totalbytes 
                $total_msgsent[$_.sender] += $ext_count 
                $total_bytessent[$_.sender] += ($ext_count * $_.totalbytes) 
                $total_msgsent_smtpext[$_.sender] += $ext_count 
                 $total_bytessent_smtpext[$_.sender] += ($ext_count * $_.totalbytes) 
                } 

        } 

    if ($_.eventid -eq "expand"){ 
        $dl[$_.relatedrecipientaddress] ++ 
        } 
    }      

} 

foreach ($address in $exch_addrs.keys){ 

$stat_rec = (new-object psobject -property (ConvertFrom-StringData (&amp;$obj_table))) 
$stat_recs += $stat_rec | select $props 
} 

$stat_recs | export-csv $outfile -notype  

if (Test-Path $dl_stat_file){ 
    $DL_stats = Import-Csv $dl_stat_file 
    $dl_list = $dl_stats |% {$_.address} 
    } 

else { 
    $dl_list = @() 
    $DL_stats = @() 
    } 

$DL_stats |% { 
    if ($dl[$_.address]){ 
        if ([datetime]$_.lastused -le [datetime]$rundate){  
            $_.used = [int]$_.used + [int]$dl[$_.address] 
            $_.lastused = $rundate 
            } 
        } 
} 

$dl.keys |% { 
    if ($dl_list -notcontains $_){ 
        $new_rec = "" | select Address,Used,Since,LastUsed 
        $new_rec.address = $_ 
        $new_rec.used = $dl[$_] 
        $new_rec.Since = $rundate 
        $new_rec.lastused = $rundate 
        $dl_stats += @($new_rec) 
    } 
} 

$dl_stats | Export-Csv $dl_stat_file -NoTypeInformation -force 

Write-Host "`nRun time was $(((get-date) - $today).totalseconds) seconds." 
Write-Host "Email stats file is $outfile" 
Write-Host "DL usage stats file is $dl_stat_file" 

#Contact information 
#[string](0..33|%{[char][int](46+("686552495351636652556262185355647068516270555358646562655775 0645570").substring(($_*2),2))})-replace " "

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

155

156

157

158

159

160

161

162

163

164

165

166

167

168

169

170

171

172

173

174

175

176

177

178

179

180

181

182

183

184

185

186

187

188

189

190

191

192

193

194

195

196

197

198

199

200

201

202

203

204

205

206

207

208

209

210

#mjolinor

#02/24/2011

#requires -version 2.0

$today = get-date

$rundate = $($today.adddays(-1)).toshortdatestring()

$outfile_date = ([datetime]$rundate).tostring("yyyy_MM_dd")

$outfile = "email_stats_" + $outfile_date + ".csv"

$dl_stat_file = "DL_stats.csv"

$accepted_domains = Get-AcceptedDomain |% {$_.domainname.domain}

[regex]$dom_rgx = "`(?i)(?:" + (($accepted_domains |% {"@" + [regex]::escape($_)}) -join "|") + ")$"

$mbx_servers = Get-ExchangeServer |? {$_.serverrole -match "Mailbox"}|% {$_.fqdn}

[regex]$mbx_rgx = "`(?i)(?:" + (($mbx_servers |% {"@" + [regex]::escape($_)}) -join "|") + ")\>$"

$msgid_rgx = "^\$"

$hts = get-exchangeserver |? {$_.serverrole -match "hubtransport"} |% {$_.name}

$exch_addrs = @{}

$msgrec = @{}

$bytesrec = @{}

$msgrec_exch = @{}

$bytesrec_exch = @{}

$msgrec_smtpext = @{}

$bytesrec_smtpext = @{}

$total_msgsent = @{}

$total_bytessent = @{}

$unique_msgsent = @{}

$unique_bytessent = @{}

$total_msgsent_exch = @{}

$total_bytessent_exch = @{}

$unique_msgsent_exch = @{}

$unique_bytessent_exch = @{}

$total_msgsent_smtpext = @{}

$total_bytessent_smtpext = @{}

$unique_msgsent_smtpext=@{}

$unique_bytessent_smtpext = @{}

$dl = @{}

$obj_table = {

Date = $rundate

User = $($address.split("@")[0])

Domain = $($address.split("@")[1])

Sent Total = $(0 + $total_msgsent[$address])

Sent MB Total = $("{0:F2}" -f $($total_bytessent[$address]/1mb))

Received Total = $(0 + $msgrec[$address])

Received MB Total = $("{0:F2}" -f $($bytesrec[$address]/1mb))

Sent Internal = $(0 + $total_msgsent_exch[$address])

Sent Internal MB = $("{0:F2}" -f $($total_bytessent_exch[$address]/1mb))

Sent External = $(0 + $total_msgsent_smtpext[$address])

Sent External MB = $("{0:F2}" -f $($total_bytessent_smtpext[$address]/1mb))

Received Internal = $(0 + $msgrec_exch[$address])

Received Internal MB = $("{0:F2}" -f $($bytesrec_exch[$address]/1mb))

Received External = $(0 + $msgrec_smtpext[$address])

Received External MB = $("{0:F2}" -f $($bytesrec_smtpext[$address]/1mb))

Sent Unique Total = $(0 + $unique_msgsent[$address])

Sent Unique MB Total = $("{0:F2}" -f $($unique_bytessent[$address]/1mb))

Sent Internal Unique = $(0 + $unique_msgsent_exch[$address])

Sent Internal Unique MB = $("{0:F2}" -f $($unique_bytessent_exch[$address]/1mb))

Sent External Unique = $(0 + $unique_msgsent_smtpext[$address])

Sent External Unique MB = $("{0:F2}" -f $($unique_bytessent_smtpext[$address]/1mb))

}

$props = $obj_table.ToString().Split("`n")|% {if ($_ -match "(.+)="){$matches[1].trim()}}

$stat_recs = @()

function time_pipeline {

param ($increment = 1000)

begin{$i=0;$timer = [diagnostics.stopwatch]::startnew()}

process {

$i++

if (!($i % $increment)){Write-host “`rProcessed $i in $($timer.elapsed.totalseconds) seconds” -nonewline}

}

end {

write-host “`rProcessed $i log records in $($timer.elapsed.totalseconds) seconds”

Write-Host " Average rate: $([int]($i/$timer.elapsed.totalseconds)) log recs/sec."

}

foreach ($ht in $hts){

Write-Host "`nStarted processing $ht"

get-messagetrackinglog -Server $ht -Start "$rundate" -End "$rundate 11:59:59 PM" -resultsize unlimited |

time_pipeline |%{

if ($_.eventid -eq "DELIVER" -and $_.source -eq "STOREDRIVER"){

if ($_.messageid -match $mbx_rgx -and $_.sender -match $dom_rgx) {

$total_msgsent[$_.sender] += $_.recipientcount

$total_bytessent[$_.sender] += ($_.recipientcount * $_.totalbytes)

$total_msgsent_exch[$_.sender] += $_.recipientcount

$total_bytessent_exch[$_.sender] += ($_.totalbytes * $_.recipientcount)

foreach ($rcpt in $_.recipients){

$exch_addrs[$rcpt] ++

$msgrec[$rcpt] ++

$bytesrec[$rcpt] += $_.totalbytes

$msgrec_exch[$rcpt] ++

$bytesrec_exch[$rcpt] += $_.totalbytes

}

else {

if ($_messageid -match $messageid_rgx){

foreach ($rcpt in $_.recipients){

$msgrec[$rcpt] ++

$bytesrec[$rcpt] += $_.totalbytes

$msgrec_smtpext[$rcpt] ++

$bytesrec_smtpext[$rcpt] += $_.totalbytes

}

if ($_.eventid -eq "RECEIVE" -and $_.source -eq "STOREDRIVER"){

$exch_addrs[$_.sender] ++

$unique_msgsent[$_.sender] ++

$unique_bytessent[$_.sender] += $_.totalbytes

if ($_.recipients -match $dom_rgx){

$unique_msgsent_exch[$_.sender] ++

$unique_bytessent_exch[$_.sender] += $_.totalbytes

}

if ($_.recipients -notmatch $dom_rgx){

$ext_count = ($_.recipients -notmatch $dom_rgx).count

$unique_msgsent_smtpext[$_.sender] ++

$unique_bytessent_smtpext[$_.sender] += $_.totalbytes

$total_msgsent[$_.sender] += $ext_count

$total_bytessent[$_.sender] += ($ext_count * $_.totalbytes)

$total_msgsent_smtpext[$_.sender] += $ext_count

$total_bytessent_smtpext[$_.sender] += ($ext_count * $_.totalbytes)

}

if ($_.eventid -eq "expand"){

$dl[$_.relatedrecipientaddress] ++

}

foreach ($address in $exch_addrs.keys){

$stat_rec = (new-object psobject -property (ConvertFrom-StringData (&$obj_table)))

$stat_recs += $stat_rec | select $props

}

$stat_recs | export-csv $outfile -notype

if (Test-Path $dl_stat_file){

$DL_stats = Import-Csv $dl_stat_file

$dl_list = $dl_stats |% {$_.address}

}

else {

$dl_list = @()

$DL_stats = @()

}

$DL_stats |% {

if ($dl[$_.address]){

if ([datetime]$_.lastused -le [datetime]$rundate){

$_.used = [int]$_.used + [int]$dl[$_.address]

$_.lastused = $rundate

}

$dl.keys |% {

if ($dl_list -notcontains $_){

$new_rec = "" | select Address,Used,Since,LastUsed

$new_rec.address = $_

$new_rec.used = $dl[$_]

$new_rec.Since = $rundate

$new_rec.lastused = $rundate

$dl_stats += @($new_rec)

}

$dl_stats | Export-Csv $dl_stat_file -NoTypeInformation -force

Write-Host "`nRun time was $(((get-date) - $today).totalseconds) seconds."

Write-Host "Email stats file is $outfile"

Write-Host "DL usage stats file is $dl_stat_file"

#Contact information

#[string](0..33|%{[char][int](46+("686552495351636652556262185355647068516270555358646562655775 0645570").substring(($_*2),2))})-replace " "

источник

при запуске скрипта есть ошибка с датами. Лечится просто – зайдите в региональные настройки / выберете формат даты yyyy-MM-dd .

Экспорт полученного файла проще всего сделать в Excel.

4 комментария

Sherzod

2013-10-11 at 09:38

Добрый день коллеги
я скрипт запустил но у меня выдает ошибку, в чем может быть причина ?
могу скриншот отправит
заранее благодарю за ответ
- admin
  
  2013-10-11 at 13:40
  
  скрин давай.
Sherzod

2013-11-07 at 16:33

скриптом разобраться спасибо, вопрос другой к примеру:
Кол-во отправляемой почты по дням с октября 2012 по сентябрь 2013, итого по всем сотрудникам
как можно указать на этом скрипте ?

заранее благодарю за ответ.
- Sherzod
  
  2013-11-08 at 08:29
  
  Как можно указать конкретный дату на этом скрипте вообще это возможно?

Comments are closed.

Oh, MSBRO !

Сетевые заметки системного администратора

Скрипт статистики пользователей Exchange

4 комментария