Comment puis-je tuer toutes les sessions se connectant à ma base de données oracle ?

Cette réponse est fortement influencée par une conversation ici :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;

J'ignore les sessions de suppression provenant du serveur de base de données pour éviter de supprimer les connexions d'Oracle à lui-même.