Скрипт для смены столбца machine в v$session : Oracle

SQL> select machine from v$session where sid=userenv('sid');

MACHINE
----------------------------------------------------------------
WORKGROUP\USERCOMP

with t as (
select addr,
(select c.kqfcooff from x$kqfco c,x$kqfta t where t.indx = c.kqfcotab
and t.kqftanam='X$KSUSE' and c.kqfconam='KSUSEMNM'
) offset,
KSUSEMNM machine from x$ksuse
where addr=(select saddr from v$session where sid=userenv('sid'))
)
select to_number(rawtohex(addr),'XXXXXXXX')+offset offset,machine from t;

OFFSET MACHINE
---------- -------------------------------
1337124416 WORKGROUP\USERCOMP

oradebug setmypid;
oradebug poke 1337124416 4 0x6C6C6548;
oradebug poke 1337124420 4 0x6F57206F;
oradebug poke 1337124424 4 0x00646C72;
oradebug poke 1337124428 4 0x00000000;
oradebug poke 1337124432 4 0x00000000;

select machine from v$session where sid=userenv('sid');

MACHINE
---------------
Hello World