[void] [System.Reflection.Assembly]::LoadWithPartialName("Microsoft.SharePoint")

$farm = [Microsoft.SharePoint.Administration.SPFarm]::Local
$websvcs = $farm.Services | where -FilterScript {$_.GetType() -eq [Microsoft.SharePoint.Administration.SPWebService]}
$webapps = @()

$outputfile = "RequestAccessEmail.txt"
if (Test-Path $outputfile) { Remove-Item $outputfile }
Add-Content $outputfile "siteurl * weburl * requestemail"

foreach ($websvc in $websvcs) {
  if ($websvc.TypeName -eq "Windows SharePoint Services Web Application") {
    foreach ($webapp in $websvc.WebApplications) {
      foreach($spsite in $webApp.Sites) 
      {
        $site = $spsite.url
        foreach($spweb in $spsite.AllWebs) 
        {
          $web = $spweb.url

          $content = $site + " * " + $web + " * " + $spweb.RequestAccessEmail
          add-content $outputfile $content
          $spweb.Dispose()
        }
        $spsite.Dispose()
      }
    }
  }
}