'In list.txt input DN of DC server object:
'cn=ServerName,cn=Servers,cn=SiteName,cn=Sites,cn=Configuration,dc=ForestRootDomain


Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
sCurPath = fso.GetAbsolutePathName(".")
Set f2 = fso.OpenTextFile(sCurPath&"\list.txt",ForReading)
Set shl = Wscript.CreateObject("Wscript.Shell")
Do While f2.AtEndOfStream <> True
    DC = f2.ReadLine
    shl.run "cmd /c ntdsutil "&chr(34)&"popups off"&chr(34)&" "&chr(34)&"metadata cleanup"&chr(34)&" "&chr(34)&"remove selected server "&DC&chr(34)&" quit quit >> "&chr(34)&sCurPath&"\result.txt"&chr(34),2,True
    set objComputer = GetObject("LDAP://"&DC)
    objComputer.DeleteObject (0) 
    MsgBox DC&" Medata cleanup completed and server object deleted"
Loop
f2.close