forked from 12Knocksinna/Office365itpros
-
Notifications
You must be signed in to change notification settings - Fork 0
/
AuditSPOOperationsByUser.PS1
133 lines (126 loc) · 7.49 KB
/
AuditSPOOperationsByUser.PS1
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
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
# AuditSPOOperationsByUser.PS1
# Script to generate a per-user CSV file of SharePoint Online document operations
# V1.0 4-May-2020
# Requires the Exchange Online PowerShell module and/or Azure Active Directory module depending on if you want to
# report on a tenant mailbox basis or tenant and guest user accounts.
# https://github.com/12Knocksinna/Office365itpros/blob/master/AuditSPOOperationsByUser.PS1
Param ([String]$CheckUsers)
CLS
# Check do we have the right modules loaded....
$Module = Get-Module
$AzureAD = $Module | ? {$_.Name -like "*AzureAD*"}
If (!$AzureAD) { Write-Host "This script needs the Azure Active Directory PowerShell module" ; break}
$Exo = $Module | ? {$_.Name -eq "ExchangeOnlineManagement"}
If (!$Exo) { Write-Host "This script needs the Exchange Online Management PowerShell module" ; break }
# Check what our parameter is. If no parameter is passed, we check both tenant users and guests. If Tenant is passed, we only check mailbox owners.
Switch ($CheckUsers) {
"Tenant" { # Just check tenant users
$Type = "(Mailbox owners)"
$Users = Get-ExoMailbox -RecipientTypeDetails UserMailbox -ResultSize Unlimited | Select UserPrincipalName,DisplayName }
default { #Check everyone
$Type = "(Tenant and guest user accounts)"
$Users = Get-AzureADUser -All $True -Filter ("UserType eq 'Guest' or UserType eq 'Member'") | Select UserPrincipalName, DisplayName }
} #End switch
Write-Host $Users.Count "accounts will be checked." $Type
$StartDate = (Get-Date).AddDays(-90); $EndDate = (Get-Date).AddDays(+1); $DroppedRecords = 0; $StartProcessingTime = (Get-Date)
$Operations = @('FileAccessed', 'FileDownloaded', 'FileModified', 'FileDeleted', 'FileUploaded')
# Get a unique session identifier
$Sessionid = (New-Guid).Guid
$i = 0; $TotalRecordsProcessed = 0
$Report = [System.Collections.Generic.List[Object]]::new() # Create output file
$Records = 1
While ($Records) { #Keep fetching until we have processed all records
$i++
Write-Host "Fetching audit records...( batch" $i ")"
$Records = Search-UnifiedAuditLog -StartDate $StartDate -EndDate $EndDate -Operations $Operations -ResultSize 2000 -SessionId $SessionId -SessionCommand ReturnLargeSet
If ($i -eq 1) {$TotalRecordsAvailable = $Records[0].ResultCount}
If ($Records.Count -ne 0) {
$StatusProcessing = "Processing " + $Records.Count + " audit records of " + $TotalRecordsAvailable + ". Total processed so far: " + $TotalRecordsProcessed
Write-Host $StatusProcessing}
ForEach ($Rec in $Records) {
$AuditData = $Rec.AuditData | ConvertFrom-JSon
# Drop all the graphic files and web pages for which SharePoint Online creates audit records
# Also drop records where the useragent isn't recorded because of system processing and any created by App@SharePoint
If ($AuditData.SourceFileName -like "*.jpg*" -or $AuditData.SourceFileName -like "*.aspx*" -or $AuditData.SourceFileName -like "*.png*" -or [string]::IsNullOrEmpty($AuditData.UserAgent) -or $AuditData.UserId -eq "app@sharepoint" ) { $DroppedRecords++ }
Else {
# Make some sense of the User agent string
Switch ($AuditData.UserAgent) { # This switch is used to interpret the UserAgent string and make it more human friendly
{$AuditData.UserAgent -like "*Word 2014*"} {
$UserAgent = "Microsoft Word 2014 (Mac)"
$Version = "2014"; break}
{$AuditData.UserAgent -like "*Edg/*"} {
$UserAgent = "Microsoft Edge"
$Version = $AuditData.UserAgent.Split("/")[5] ; break}
{$AuditData.UserAgent -like "*Microsoft Office Excel*"} { # Excel desktop
$UserAgent = "Microsoft Excel (desktop)"
$Version = $AuditData.UserAgent.Split("/")[1].Split("(")[0] ; break }
{$AuditData.UserAgent -Like "*Faraday*"} { #Yammer process for uploading and removing files
$UserAgent = "Yammer"
$Version = $AuditData.UserAgent.Split("v")[1] ; break }
{$AuditData.UserAgent -like "*Skydrive*"} { # OneDrive for Business
$UserAgent = "OneDrive for Business"
$Version = $AuditData.UserAgent.Split("nc ")[5] ; break }
{$AuditData.UserAgent -like "*Microsoft Office PowerPoint*"} { #Word desktop
$UserAgent = "Microsoft PowerPoint (desktop)"
$Version = $AuditData.UserAgent.Split("/")[1].Split("(")[0]; break }
{$AuditData.UserAgent -like "*Microsoft Office Word*"} { #Word desktop
$UserAgent = "Microsoft Word (desktop)"
$Version = $AuditData.UserAgent.Split("/")[1].Split("(")[0]; break }
{$AuditData.UserAgent -like "*Teams/*"} {
$UserAgent = "Teams"
$Version = $AuditData.UserAgent.Split("/")[3].Split("Ch")[0]; break}
{$AuditData.UserAgent -like "*Gecko*" -and $AuditData.UserAgent -like "*Chrome*"} {
$UserAgent = "Chromium browser"
$Version = $AuditData.UserAgent.Split("/")[3].Split("Safari")[0]}
"OneDriveMpc-Transform_Thumbnail/1.0" {$UserAgent = "OneDrive"}
"MSWAC" {
$UserAgent = "Office Online"
$Version = "N/A" }
"MSOCS" {
$UserAgent = "Office Online"
$Version = "N/A" }
"MSWACONSync" {
$UserAgent = "OneDrive Online"
$Version = "N/A"}
default {
$UserAgent = $AuditData.UserAgent
$Version = "N/A" }
} # End Switch
If ($Null -eq $UserAgent) {$UserAgent = "Not Recorded"}
$ReportLine = [PSCustomObject] @{
TimeStamp = Get-Date ($AuditData.CreationTime) -format g
UPN = $AuditData.UserId
Operation = $AuditData.Operation
FileName = $AuditData.SourceFileName
Object = $AuditData.ObjectId
Site = $AuditData.SiteUrl
ClientIP = $AuditData.ClientIP
UserAgent = $UserAgent
Version = $Version
FullClientInfo = $AuditData.UserAgent}
$Report.Add($ReportLine) }
}
# Update number of processed records
$TotalRecordsProcessed = $TotalRecordsProcessed + $Records.Count
}
CLS
# Because we've fetched large amounts of unsorted data using the ReturnLargeSet parameter, we should sort it to make sure that it's in the correct order
$Report = $Report | Sort {$_.TimeStamp -as [DateTime]} -Descending
$ProgressDelta = 100/($Users.count); $PercentComplete = 0; $UserNumber = 0; $UserReports = 0
ForEach ($U in $Users) {
$UserNumber++
$Status = "Checking SharePoint activities for " + $U.DisplayName + " ["+ $UserNumber +"/" + $Users.Count + "]"
Write-Progress -Activity "Processing audit data" -Status $Status -PercentComplete $PercentComplete
$PercentComplete += $ProgressDelta
$UserRecords = $Report | ? {$_.UPN -eq $U.UserPrincipalName}
If ($UserRecords) {
$UserReports++
Write-Host "Writing out data for" $U.DisplayName
$FileName = "c:\Temp\AuditHistory" + $U.UserPrincipalName + ".csv"
$UserRecords | Export-CSV -NoTypeInformation $FileName }
}
$OutputFiles = Get-ChildItem -Path c:\temp\ |?{$_.LastWriteTime -ge $StartProcessing}
Write-Host " "
Write-Host "All done." $UserReports "audit reports for SharePoint activity are available in c:\temp\"
Write-Host "------------------------------------------------------------------------------"
$OutputFiles | ?{$_.Name -Like "*AuditHistory*"} | Ft Name