Add Users to Local Server Administrator Group

Script to add users to local server administrator group. This script requires "AddUsers.csv" input file which has the list of users that needs to be added to 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 AddUserToServerAdminGroup([String]$AdminMember, [String]$ServerName)  
  8. {  
  9.   
  10.  $ans = read-host "Do you want to add user $AdminMember to server $ServerName (y/n)? "  
  11.  if($ans -eq 'y')  
  12.  {  
  13.   write-host "Adding user " $AdminMember " to 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.Add("WinNT://$AdminMember2")  
  20.   write-host $AdminMember " added to the local administrator group on the server " $ServerName -fore green  
  21.  }  
  22.  else  
  23.  {  
  24.   write-host "User choose not to add user " $AdminMember " to the server " $ServerName " administrator group" -fore cyan  
  25.  }  
  26.   
  27. }  
  28.   
  29. write-host "Preparing to add users to the server administrator group" -fore magenta  
  30. $csvfile = $scriptbase + "\" + "AddUsers.csv"  
  31. import-csv $csvfile | where {  
  32. AddUserToServerAdminGroup $_.AdminMember $_.ServerName  
  33. }  
  34. write-host "Users has been added to local administrators group" -fore green  
  35.   
  36. AddUserToServerAdminGroup