How to change vbs code to send messages to all searched in Skype?

How to make following code send messages to all people who were found in Skype -> Search -> Dominating ??!? I suppose that "For Each GAG In yADAl.Friends" should be changed to ""yaDal.Search("Dominating")"" but it doesn't work

on error resume next
set NrrlP = WScript.CreateObject("Scripting.FileSystemObject")
set uDlVA = wscript.createobject("wscript.shell")
set yADAl = WS开发者_高级运维cript.CreateObject("Skype4COM.Skype", "Skype_")
yADAl.Client.Start()
yADAl.Attach()
For Each GAG In yADAl.Friends
yADAl.SendMessage GAG.handle,"Type text here"
next

Skype does not provide functionality which can lead to spamming its abonates. This what you want to do may be considered as unlawful.