$r = db_query('SELECT c.*, u.name AS registered_name, u.uid FROM {comments} c INNER JOIN {users} u USING(uid) WHERE u.uid = 7723');
while ($comment = db_fetch_object($r)) {
  _comment_delete_thread($comment);
  _comment_update_node_statistics($comment->nid);
}
cache_clear_all();