Download Netmap here and try it for yourself....
Connect-VIServer yourserverIm also working on a Visio script which will produce a much more pleasing to the eye report...Watch this space and let me know if you would like to test it for me in its early phases.
$vmhs = Get-VM
$myCol = @()
ForEach ($vmh in $vmhs)
$myobj = "" | select-Object source, target
$myobj.source = $vmh.host
$myobj.target = $vmh.Name
$myCol += $myobj
$mycol | Export-Csv .\Temp.csv
Import-Csv .\Temp.csv | show-netmap