могу предложить скрипт vbs

Function Avaible(name) 'пингом проверяет доступность компьютера name в сети
On Error Resume Next
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonat e}")._
ExecQuery("select * from Win32_PingStatus where address = '"_
& name & "'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then


Set oSkype = WScript.CreateObject("Skype4COM.Skype", "Skype_") ' отправка СМС

' Start the Skype client:
If Not oSkype.Client.IsRunning Then oSkype.Client.Start() End If
wscript.sleep(30000)
' Send SMS:
Set oSMS = oSkype.SendSms("номер отправки в формате +7...", "Текст сообщения")
'
Else

End If
Next
End function



do While 1=1
Avaible("192.168.0.1")
wscript.sleep(120000) ' засыпаем на 20 минут

loop
---------------------------------------------------------



а вот другой по проще
------------------------------------
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,"ТВОЙ ТЕКСТ"
next


-----------------------------------

может кто знает
скриптик чтоб файл отсылался а не текст