function fn_jabbersend ($text_mess)
{
    [Reflection.Assembly]::LoadFile("c:\cmo\care\agsXMPP.dll")
    $jcon=new-object agsxmpp.xmppclientconnection("jabber.vz")
    $jcon.open("user","pass")
    $jmess=new-object agsxmpp.protocol.client.message()
    $data_file=Get-Content data.list
    foreach ($one_str in $data_file)
    {
        if ($one_str -match "([\w\-]+\.)*[\w\-]+(@jabber.vz)") # if it is a JID
            {
                $jmess.to=$one_str
                $jmess.body=$text_mess
                $jcon.send($jmess)
            }
        }
    }
    $jcon.close()
}