gistfile1.txt

#Variables
$ComputerList = "$HOME\Desktop\computerlist.txt"
$SaveDestination = "$HOME\Desktop"

#Setup
$ErrorActionPreference = "SilentlyContinue"

#Script
foreach ($ComputerName in (Get-Content $ComputerList))
{
	Get-WmiObject -Class Win32_Share -ComputerName "$ComputerName" 2>&1 | Out-Null
	if ($? -eq "True")
	{
		Write-Host Found shares `@ $ComputerName
		Get-WmiObject -Class Win32_Share -ComputerName "$ComputerName" | Where-Object { $_.Name -NotLike "*$" } | Where-Object { $_.Path -Like "*:*" } | Format-Table | Out-File $SaveDestination\$ComputerName.txt
	}
}
#Remove false positives
Write-Host ""
Write-Host Removing false positives
Get-ChildItem "$SaveDestination" | Where-Object { $_.extension -eq ".txt" } | Where-Object { $_.length -eq 0 } | Remove-Item