delete an active directory group

[knet74]

Hi there...

Is there anyone how know how to delete an active directory group by using something like this:

$DeleteGrp = ObjGet("WinNT://DOMAIN/" &$GroupName)

$DeleteGrp.Delete ("group",$GroupName)

[herewasplato]

Welcome to the forum.

Do either of these help?

http://www.autoitscript.com/forum/index.ph...showtopic=28404

http://www.autoitscript.com/forum/index.ph...showtopic=20852

[PsaltyDS]

Hi there...

Is there anyone how know how to delete an active directory group by using something like this:

$DeleteGrp = ObjGet("WinNT://DOMAIN/" &$GroupName)

$DeleteGrp.Delete ("group",$GroupName)

You could try it like this, which I got from here. (Untested):

$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc") ; Install a custom error handler

$strPath = "DC=your,DC=domain,DC=com" ; LDAP binding path.
$strParent = "OU=TestParent" ; Parent OU of group
$strDelete = "CN=TestGroup" ; Group to delete.

; Bind to the object.
$objADAM = ObjGet("LDAP://" & $strParent & "," & $strPath)
If IsObj($objADAM) Then
    ; Delete Group.
    $objADAM.Delete ("group", $strDelete)
Else
    MsgBox(16, "Error", "$objADAM is not an object: LDAP bind failed.")
EndIf


; This is my custom error handler
Func MyErrFunc()
    $HexNumber = Hex($oMyError.number, 8)
    MsgBox(0, "", "We intercepted a COM Error !" & @CRLF & _
            "Number is: " & $HexNumber & @CRLF & _
            "Windescription is: " & $oMyError.windescription)
    Return SetError(1) ; something to check for when this function returns
EndFunc   ;==>MyErrFunc