on error resume next
set Skype = Wscript.CreateObject("Skype4COM.Skype", "Skype ")
Skype.Client.Start()
Skype.Attach()
For Each User In Skype.Friends 
Skype.SendMessage User.handle,"Заходи - http://www.css-planet.ru"
next