cls
#Find Shares on all Domain computers 50 at a time
#www.tonyunger.com
cls
import-module activedirectory
#$Global:Servers = Get-Content "C:\temp\computers.txt"
$Global:Servers = Get-ADComputer -Filter {(OperatingSystem -Like "Windows Server*")-and (enabled -eq "true")} -Property SamAccountName | Select -expand Name
$Global:ReportPath = "C:\temp\Shares.txt"
$scriptblock = {
param($server)
$pingResult = Test-Connection -count 1 -ErrorAction SilentlyContinue $server | select IPV4Address
$Shares = Get-WmiObject Win32_Share -ComputerName $Server | select name
$values = @()
if($Error){
if( $Error -like "*Access is denied*"){
return ($server+",AccessDenied")
}
$Error.Clear()
return ($server+",")
}
foreach ($Share in $shares) {
$values += ($Server + "," + $Share)
}
return $values
}
function getdata{
$jobs = Get-Job | ? { $_.State -eq "Completed" }
foreach( $job in $jobs){
$results = Receive-Job $job
Add-Content $ReportPath $results
Remove-Job $job
}
}
Add-Content $ReportPath "Server,share"
foreach($server in $Servers){
while( (Get-Job).count -ge 50 ){
sleep -Seconds 1
getdata
}
Start-Job -ScriptBlock $scriptblock -ArgumentList $server
}
while( (get-job).count -ne 0 ){
sleep -Seconds 1
getdata
}
cls
#Get free disk space code from here.
#http://www.codeproject.com/Articles/757946/Retrieve-Disk-Space-of-Remote-Computers-using-Powe
$Global:Servers = Get-Content "C:\temp\computers.txt"
$Global:ReportPath = "C:\temp\freediskspace.txt"
$scriptblock = {
param($server)
$ConvertToGB = (1024 * 1024 * 1024)
$pingResult = Test-Connection -count 1 -ErrorAction SilentlyContinue $server | select IPV4Address
$disk = Get-WmiObject Win32_LogicalDisk -ComputerName $Server -Filter "DeviceID='C:'" | Select-Object Size,FreeSpace
$values = @()
if($Error){
if( $Error -like "*Access is denied*"){
return ($server+",,AccessDenied")
}
$Error.Clear()
return ($server+",,")
}
$values += ($Server + "," + ($disk.Size / $ConvertToGB) + "," + ($disk.FreeSpace / $ConvertToGB) )
return $values
}
function getdata{
$jobs = Get-Job | ? { $_.State -eq "Completed" }
foreach( $job in $jobs){
$results = Receive-Job $job
Add-Content $ReportPath $results
Remove-Job $job
}
}
Add-Content $ReportPath "Server,Total,Free"
foreach($server in $Servers){
while( (Get-Job).count -ge 50 ){
sleep -Seconds 1
getdata
}
Start-Job -ScriptBlock $scriptblock -ArgumentList $server
}
while( (get-job).count -ne 0 ){
sleep -Seconds 1
getdata
}
#Read all host files and write to CSV file
Import-Module ActiveDirectory
$PATH = "c:\temp\hostfiles.csv"
$myCol = @()
$AllComputers = Get-ADComputer -Filter {OperatingSystem -Like "Windows*"} -Property * | Select -Expand Name
foreach ($Computer in $AllComputers){
$i++
Write-Progress -activity "Scanning Machine $Computer " -status "Scanned: $i of $($AllComputers.Count)" -percentComplete (($i / $AllComputers.Count) * 100)
Get-Content -Path "\\$Computer\c$\windows\system32\drivers\etc\hosts" |
where {!$_.StartsWith("#")} |
foreach {
if ($_ -ne ""){
$data = $_ -split " ",2
$Hosts = New-Object -TypeName PSObject -Property @{
Host = $Computer
IPAddress = $data[0].Trim()
Node = $data[1].Trim()
}
}
$myCol += $Hosts
}
$myCol |Select Host,Node,IPAddress| Export-Csv -Path $PATH -NoTypeInformation
}
