objOU.Delete "Group", "cn=" & strGroupCN & "" 

Sub DelGroup 
 
Dim objOU 
 
'WScript.Echo strOU 
'WScript.Echo strGroupCN 
Set objOU = GetObject(strOU) 
objOU.Delete "Group", "cn=" & strGroupCN & "" 
WScript.Echo strGroupName & " (CN=" & strGroupCN & ") has been deleted." 
 
Set ObjOU = Nothing 
strGroupCN = "" 
 
End Sub

$RC = DelGroup("OU", "GroupCN Path")

If $RC = 0
   ? "Group was been deleted successfully."
Else
   ? "Group was Not been deleted.  Error: "+$RC
Endif

get $

Function DelGroup($strOU, $strGroupCN)
   Dim $objOU
   $objOU = GetObject($strOU)
   $objOU.Delete("Group","cn="+$strGroupCN)
   $DelGroup = @Error
   $objOU = ""
EndFunction

Function DeleteADGroup($StrGroup, $strGroupOU)
  Dim $objOU
  ;
  $DeleteADGroup = 0
  $objOU = GetObject("LDAP://" + $strGroupOU)
  If @ERROR
    Exit
  EndIf
  $objOU.Delete("Group", "cn=" + $StrGroup)
  If @ERROR = 0 
    $DeleteADGroup = 1
  EndIf
  $objOU = ""
EndFunction