![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - ОТправка СМСок. |
|
VBS/WSH/JS - ОТправка СМСок.
|
Новый участник Сообщения: 28 |
Товарищи помогите кто чем может.
В общем стоит у меня PRTG Network Monitor и смотрит за состоянием серверов и умеет она запускать скрипты и есть у меня скрипт на VB, но проблема в том что никак не могу понять как передать сообщение скрипту т.е. параметры с командной строки? т.е. например c:\myscript.vbs arg1, arg2 а сами аргументы должны попадать в objGsmOut.MessageData = "TEST TEST" наже приведенного скрипта: Option Explicit Dim objGsmOut Dim nNumDevices, strDevices, i Set objGsmOut = CreateObject( "ActiveXperts.GsmOut" ) nNumDevices = objGsmOut.GetDeviceCount() ' Set Device objGsmOut.Device = "COM2" ' Set recipient objGsmOut.MessageRecipient = 892186432хх ' Set message text objGsmOut.MessageData = "TEST TEST" ' Set Logfile objGsmOut.LogFile = "c:\SmsLog.txt" ' Use GSM provider's validity period ( Can be specified in minutes ) ObjGsmOut.ValidityPeriod = 0 objGsmOut.Send ' Show the result If( objGsmOut.LastError <> 0 ) Then WScript.Echo "Failed to send the message, error: " & objGsmOut.LastError & " (" & objGsmOut.GetErrorDescription( objGsmOut.LastError ) & ")" WScript.Echo "To view the trace file, open " & objGsmOut.LogFile & "." Else WScript.Echo "Message successfully submitted ( MessageReference = " & objGsmOut.MessageReference & " )" End If |
|
Отправлено: 09:03, 05-10-2010 |
Сообщения: 53589
|
Профиль | Отправить PM | Цитировать |
Отправлено: 09:58, 05-10-2010 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Отправка команд в Аллоды | HORRIBLE | AutoIt | 0 | 08-02-2010 15:56 | |
отправка почты | msaus | Вебмастеру | 3 | 18-08-2006 18:16 | |
отправка письма | Tvik | Программирование и базы данных | 7 | 07-07-2006 10:41 | |
отправка писем | XCodeR | Программирование и базы данных | 6 | 24-01-2006 10:50 | |
Отправка SMS | Guest | Мобильные ОС, смартфоны и планшеты | 1 | 21-05-2004 17:51 |
|