VBScript to Delete Active Directory Connection Objects

[djtech2k]

I need some guidance to delete some connection objects in Active Directory Sites and Services. I have code to report the objects, I just need the confirmation on the delete portion. I am guessing its something like "objConn.Delete".

Here is the code to report them out:

' ------ SCRIPT CONFIGURATION ------
strServer = "<ServerName>"  ' e.g. dc01
strSite   = "<SiteName>"    ' e.g. MySite1
' ------ END CONFIGURATION ---------

set objRootDSE = GetObject("LDAP://RootDSE")
set objNTDSCont = GetObject("LDAP://cn=NTDS Settings,cn=" & strServer & _
                            ",cn=servers,cn=" & strSite & ",cn=sites," & _
                             objRootDSE.Get("configurationNamingContext") )
objNTDSCont.Filter = Array("ntdsConnection")
WScript.Echo "Connection objects for " & strSite & "\" & strServer
for each objConn in objNTDSCont
   if objConn.Get("options") = 0 then
      Wscript.Echo "  " & objConn.Get("cn") & " (MANUAL)"
   else
      Wscript.Echo "  " & objConn.Get("cn") & " (AUTO)"
   end if
next

 

[tsuji]

It is the .deleteobject method with a reserved parameter taking, for now, only zero.

http://msdn2.microsoft.com/en-us/library/aa705994.aspx

But you seem to tackling disabled global catalog... so be super careful testing before carrying out.

 

[djtech2k]

So will the argument always be a "0"?

 

[tsuji]

I don't know the official documentation to the effect that it "must". But it always has been in practice. As it is reserved, it is probably the fear that one day they would work on that paramter to add features.

 

[djtech2k]

Thanks!