Làm cách nào để hủy tất cả các phiên kết nối với cơ sở dữ liệu oracle của tôi?

Câu trả lời này bị ảnh hưởng nhiều bởi một cuộc trò chuyện tại đây:http://www.tek-tips.com/viewthread.cfm?qid=1395151&page=3

ALTER SYSTEM ENABLE RESTRICTED SESSION;

begin     
    for x in (  
            select Sid, Serial#, machine, program  
            from v$session  
            where  
                machine <> 'MyDatabaseServerName'  
        ) loop  
        execute immediate 'Alter System Kill Session '''|| x.Sid  
                     || ',' || x.Serial# || ''' IMMEDIATE';  
    end loop;  
end;

Tôi bỏ qua các phiên hủy bắt nguồn từ máy chủ cơ sở dữ liệu để tránh ngắt kết nối của Oracle với chính nó.