SOLVED Delete Computer Accounts in AD

[Gopi Krishna]

Hi,

I have a text file with the list of 3000 computer names and I have to delete them all from AD.
How can I do this bulk deletion? Please Help

Thank you,

 

[Prajwal Desai]

You can try any of these :-

https://gallery.technet.microsoft.com/scriptcenter/Bulk-Delete-computers-in-24819345

or

Const SourceFile = ".\computers.ini"

On Error Resume Next
Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
Set oSourceFile = objFSO.OpenTextFile(SourceFile, 1)

While oSourceFile.AtEndOfStream <> True
   strComputer = oSourceFile.ReadLine
   set objComputer = GetObject("LDAP://CN=" & strComputer & _
          ",CN=Computers,DC=fabrikam,DC=com")
   objComputer.DeleteObject (0)
   If Err.Number <> 0 Then
     Wscript.Echo "Error deleting " & strComputer & "."
     Err.Clear
   Else
     Wscript.Echo strComputer & " was succesfully deleted."
   End If
Wend

 

[Gopi Krishna]

Thank You Prajwal for your response.
I am sorry to ask you but Where should I run this script?

 

[Gopi Krishna]

I copied the above script and ran it as .vbs Script in the DC and saved all the list of computers to be deleted in "computers.ini" file.
But now it is giving error saying "Error Deleting <Computer name>"
And none of the computers are deleted.
Am I doing it wrong?

 

[Prajwal Desai]

Have you tried the first link ?. You can run this script on member server rather than running on AD server.