Create Active Directory group procedure

# The following procedure creates an Active Directory group if a
# group with the same distinguished name does not already exist.
proc my_create_adgroup {dn sam gtype} {
            if { [catch {select_object $dn}] } {
        # If we fail to select the object, the group
        # does not exist. So we create it here.
        puts "Creating $dn"
        create_adgroup $dn $sam $gtype
    } else {
        puts "$dn exists. Do not create."
    }
}