Добавьте ещё 3 строки
Код:
admin_host = "имявашей машины"
Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("net send " & admin_host & " " & s)
Не забудьте запустить у себя "Службу сообщений".
Это вариант с net send.
Вариант с почтой... Ни разу не пробовал, да и попробовать-то не получится толком, извините.
