# ============================================================================================== 
# NAME: Listing Administrators and PowerUsers on remote machines  
#  
# AUTHOR: Mohamed Garrana ,  
# DATE  : 09/04/2010 
#  
# COMMENT:  
# This script runs against an input file of computer names , connects to each computer and gets a list of the users in the  local Administrators  
#and powerusers Groups . the output can be a csv file which can be readable on excel with all the computers from the input file 
# ============================================================================================== 
function get-localusers {
	param(
	[Parameter(Mandatory=$true,valuefrompipeline=$true)]
	[string]$strComputer)
	begin {}
	Process {
		$adminlist =""
		$powerlist =""
		$computer = [ADSI]("WinNT://" + $strComputer + ",computer")
        if ($computer.psbase.name ) {
		  $AdminGroup = $computer.psbase.children.find("Administrators")
		  $powerGroup = $computer.psbase.children.find("Power Users")
		  $Adminmembers= $AdminGroup.psbase.invoke("Members") | %{$_.GetType().InvokeMember("Name", 'GetProperty', $null, $_, $null)}
		  $Powermembers= $PowerGroup.psbase.invoke("Members") | %{$_.GetType().InvokeMember("Name", 'GetProperty', $null, $_, $null)}
		  foreach ($admin in $Adminmembers) { $adminlist = $adminlist   $admin   "," }
		  foreach ($poweruser in $Powermembers) { $powerlist = $powerlist   $poweruser   "," }
		  $Computer = New-Object psobject
		  $computer | Add-Member noteproperty ComputerName $strComputer
		  $computer | Add-Member noteproperty Administrators $adminlist
		  $computer | Add-Member noteproperty PowerUsers $powerlist
		  Write-Output $computer
                                        }            

		}
end {}
} 
 
Get-Content c:\adminscript\computers.txt | get-localusers | Export-Csv c:\adminscript\localusers.csv