function Get-LunReport{
	param(
	$clusName
	)

	$rndNum = Get-Random -Maximum 99999

	$LunInfoDef = @"
	public string ClusterName;
	public string CanonicalName;
	public string UsedBy;
	public string SizeMB;
"@
	$LunInfoDef = "public struct LunInfo" + $rndNum + "{`n" + $LunInfoDef

	$esxServers = Get-Cluster $clusName | Get-VMHost | Sort-Object -Property Name
	$esxServers | %{
		$LunInfoDef += ("`n`tpublic string " + ($_.Name.Split(".")[0]) + ";")
	}
	$LunInfoDef += "`n}"

	Add-Type -Language CsharpVersion3 -TypeDefinition $LunInfoDef

	$scsiTab = @{}
	$esxServers | %{
		$esxImpl = $_

		# Get SCSI LUNs
		$esxImpl | Get-ScsiLun | where {$_.LunType -eq "Disk"} | %{

			$key = $esxImpl.Name.Split(".")[0] + "-" + $_.CanonicalName.Split(".")[1]
			if(!$scsiTab.ContainsKey($key)){

				$scsiTab[$key] = $_.CanonicalName,"",$_.CapacityMB
			}
		}

		# Get the VMFS datastores
		$esxImpl | Get-Datastore | where {$_.Type -eq "VMFS"} | Get-View | %{
			$dsName = $_.Name
			$_.Info.Vmfs.Extent | %{
				$key = $esxImpl.Name.Split(".")[0] + "-" + $_.DiskName.Split(".")[1]
				$scsiTab[$key] = $scsiTab[$key][0], $dsName, $scsiTab[$key][2]
			}
		}
	}

	# Get the RDM disks
	Get-Cluster $clusName | Get-VM | Get-View | %{
		$vm = $_
		$vm.Config.Hardware.Device | where {$_.gettype().Name -eq "VirtualDisk"} | %{
			if("physicalMode","virtualmode" -contains $_.Backing.CompatibilityMode){
				$disk = $_.Backing.LunUuid.Substring(10,32)
				$key = (Get-View $vm.Runtime.Host).Name.Split(".")[0] + "-" + $disk
				$scsiTab[$key][1] = $vm.Name + "/" + $_.DeviceInfo.Label
			}
		}
	}

	$scsiTab.GetEnumerator() | Group-Object -Property {$_.Key.Split("-")[1]} | %{
		$lun = New-Object ("LunInfo" + $rndNum)
		$lun.ClusterName = $clusName
		$_.Group | %{
			$esxName = $_.Key.Split("-")[0]
			$lun.$esxName = "ok"
			if(!$lun.CanonicalName){$lun.CanonicalName = $_.Value[0]}
			if(!$lun.UsedBy){$lun.UsedBy = $_.Value[1]}
			if(!$lun.SizeMB){$lun.SizeMB = $_.Value[2]}

		}
		$lun
	}
}

$head = @'
<style> 
BODY{font-family:Verdana; background-color:#DBDBDB;} 
TABLE{border-width: 1px;border-style: solid;border-color: black;border-collapse: collapse;} 
TH{font-size:1.3em; border-width: 1px;padding: 2px;border-style: solid;border-color: black;background-color:#FFD4BF} 
TD{border-width: 1px;padding: 2px;border-style: solid;border-color: black;background-color:#FFF0BF} 
</style> 
'@ 

$report = @()
$report += "<H1>Cluster LUN report</H1>" 
foreach($cluster in Get-Cluster){
	$report += Get-LunReport -ClusName $cluster.Name | ConvertTo-HTML -Fragment
	$report += "<p></p>"
}

Send-MailMessage -To "lucd@lucd.info" -From "reports@lucd.info" `
	-Subject ("LUN Report " + (Get-Date ).ToString('yyyy/MM/dd')) `
	-BodyAsHtml -Body (ConvertTo-HTML -Head $head -body $report | Out-String) `
	-SmtpServer "mail.lucd.info"