Remove users from local server administrator group

Script to remove users from local server administrator group. This script requires "RemoveUsers.csv" input file which has the list of users that needs to be removed from the local server admin group.
  1. if ( (Get-PSSnapin -Name Microsoft.SharePoint.PowerShell -ErrorAction SilentlyContinue) -eq $null ) {  
  2.     Add-PSSnapin Microsoft.SharePoint.Powershell  
  3. }  
  4. $scriptBase = split-path $SCRIPT:MyInvocation.MyCommand.Path -parent  
  5. Set-Location $scriptBase  
  6.   
  7. Function RemoveUserFromServerAdminGroup([String]$AdminMember, [String]$ServerName)  
  8. {  
  9.   
  10.  $ans = read-host "Do you want to remove user $AdminMember from server $ServerName (y/n)? "  
  11.  if($ans -eq 'y')  
  12.  {  
  13.   write-host "Removing user " $AdminMember " from administrator group on server " $ServerName -fore yellow  
  14.     
  15.   $AdminMember1 = $AdminMember.split("\")  
  16.   $AdminMember2 = $AdminMember1[0] + "/" + $AdminMember1[1]  
  17.     
  18.   $GroupObj = [ADSI]"WinNT://$ServerName/Administrators"  
  19.   $GroupObj.Remove("WinNT://$AdminMember2")  
  20.   write-host $AdminMember " removed from the local administrator group on the server " $ServerName -fore green  
  21.  }  
  22.  else  
  23.  {  
  24.   write-host "User choose not to remove user " $AdminMember " from the server " $ServerName " administrator group" -fore cyan  
  25.  }  
  26.   
  27. }  
  28.   
  29. write-host "Preparing to remove users from the server administrator group" -fore magenta  
  30. $csvfile1 = $scriptbase + "\" + "RemoveUsers.csv"  
  31. import-csv $csvfile1 | where {  
  32. RemoveUserFromServerAdminGroup $_.AdminMember $_.ServerName  
  33. }  
  34. write-host "Users has been removed from local administrators group" -fore green  
  35.   
  36. RemoveUserFromServerAdminGroup