Rename all Domain Local Administrator Username Via Script
Use this PowerShell script to rename Local Administrator Account on a list of remote machines.
| #$erroractionpreference = “SilentlyContinue” $a = New-Object -comobject Excel.Application $a.visible = $True $b = $a.Workbooks.Add() $c = $b.Worksheets.Item(1) $c.Cells.Item(1,1) = “Machine Name” $c.Cells.Item(1,2) = “Account Renamed” $c.Cells.Item(1,3) = “Report Time Stamp” $d = $c.UsedRange $d.Interior.ColorIndex = 19 $d.Font.ColorIndex = 11 $d.Font.Bold = $True $intRow = 2 foreach ($strComputer in get-content C:\MachineList.Txt) { $c.Cells.Item($intRow,1) = $strComputer.ToUpper() # Using .NET method to ping test the servers $ping = new-object System.Net.NetworkInformation.Ping $Reply = $ping.send($strComputer) if($Reply.status -eq “success”) { $admin=[adsi](“WinNT://” + $strComputer + “/administrator, user”) #This is the one line change $admin.psbase.rename(“whatever”) $pwage = $admin.passwordage If($pwage -ne $null) { $c.Cells.Item($intRow,2).Interior.ColorIndex = 4 $c.Cells.Item($intRow,2) = “Yes” } Else { $c.Cells.Item($intRow,2).Interior.ColorIndex = 3 $c.Cells.Item($intRow,2) = “No” } } Else { $c.Cells.Item($intRow,2).Interior.ColorIndex = 3 $c.Cells.Item($intRow,2) = “Not Pingable” } $c.Cells.Item($intRow,3) = Get-Date $Reply = “” $pwage = “” $intRow = $intRow + 1 } $d.EntireColumn.AutoFit() cls |
Source:http://myitforum.com/cs2/blogs/yli628/
on June 21st, 2009 at 6:34 pm
Can you pl suggest how do i use this script in group policy
Thanks in advance!
on June 22nd, 2009 at 10:12 am
It should have an option to run it on list of computers.
Please refer to source site: