Powershell script to delete all versions of files in a sharepoint site from all libraries

N51768 I saved around 600GB by running the below script to delete version history from all files but keep the latest 15 versions. It took a few hours but was worth it as we saved so much money on removing excess licenses.

$SiteURL = ""
$NumberOfVersionsToKeep = 15

# Credentials
$UserName = ""
$Password = "!"
$SecurePassword = ConvertTo-SecureString $Password -AsPlainText -Force
$Credentials = New-Object Microsoft.SharePoint.Client.SharePointOnlineCredentials($UserName, $SecurePassword)

# Connect to SharePoint Online
$Context = New-Object Microsoft.SharePoint.Client.ClientContext($SiteURL)
$Context.Credentials = $Credentials

# Specify the document library or folder where you want to remove version history
$LibraryName = "" # Replace with the actual name of your document library

# Specify the folder within the library you want to target (optional)
$TargetFolder = "" # Replace with the folder name or path

# Get all files in the library or folder along with their versions
$List = $Context.Web.Lists.GetByTitle($LibraryName)
$Context.Load($List)

# Define a CAML query to retrieve items based on folder or metadata criteria
$Query = New-Object Microsoft.SharePoint.Client.CamlQuery

# Filter by folder (if specified)
if ($TargetFolder) {
$Query.FolderServerRelativeUrl = "/sites/yoursite/$LibraryName/$TargetFolder"
}

# You can add additional filters as needed, e.g., by metadata columns
# For example, filtering by a specific metadata column named "Category"
# $Query.ViewXml = "<View><Query><Where><Eq><FieldRef Name='Category'/><Value Type='Text'>YourCategoryValue</Value></Eq></Where></Query></View>"

$Query.ListItemCollectionPosition = $null

$BatchSize = 100 # Adjust this based on your needs

# Process items in batches
do {
$Items = $List.GetItems($Query)
$Context.Load($Items)
$Context.ExecuteQuery()

foreach ($Item in $Items) {
$FileName = $Item["FileLeafRef"]
Write-Host "Processing file: $FileName"

# Get all versions of the file
$File = $Item.File
$Versions = $File.Versions
$Context.Load($Versions)

$Context.ExecuteQuery()

# Check if there are more versions than the specified limit
if ($Versions.Count -gt $NumberOfVersionsToKeep) {
# Sort versions by version number in descending order
$SortedVersions = $Versions | Sort-Object { [System.Version]::new($_.VersionLabel) } -Descending

# Keep the latest 10 versions and delete the rest
foreach ($Version in $SortedVersions | Select-Object -Skip $NumberOfVersionsToKeep) {
Write-Host "Deleting version: $($Version.VersionLabel)"
$Version.DeleteObject()
}

$Context.ExecuteQuery()
}
}

$Query.ListItemCollectionPosition = $Items.ListItemCollectionPosition
} while ($Query.ListItemCollectionPosition -ne $null)

# Disconnect (not needed when using CSOM)
$Context.Dispose()