Интеграция Персонального SMS Сервера

Общие вопросы

Как создать сценарий VBScript

Сценарий VBScript - это обычный текстовый файл. Создайте новый текстовый файл в Вашем файловом менеджере или с помощью проводника Windows ("Мой компьютер"), скопируйте в него код сценария с этой страницы, и замените расширение на .vbs.

Чтобы видеть (и изменять) расширения файлов в проводнике Windows, выберите в проводнике Windows пункт "Сервис", "Свойства папки", вкладка "Вид", и снимите галочку "Скрывать расширения для зарегистрированных типов файлов".

Сценарий VBScript запускается либо прямо из файлового менеджера, либо из командной строки, командой cscript.exe (имя скрипта).

Установка обработчика SMS на VBScript

Откройте контрольную панель Персонального SMS Сервера двойным щелчком мыши на иконке в правом нижнем углу экрана;
Откройте вкладку "Обработчики";
Нажмите кнопку "Добавить";
Выберите тип "Команда", событие, которое необходимо обработать ("Получение" для обработки полученных сообщений), наберите команду, исполняемую при обработке, а также, в случае необходимости, директорию, в которой будет выполняться команда. Для обработчика VBScript команда должна начинаться именем интерпретатора cscript.exe;
Для отладки обработчика установите галочку "Выводить результат в журнал";
Нажмите "ОК". Обработчик должен появиться в списке.

Установка источника SMS на VBScript

Откройте контрольную панель Персонального SMS Сервера двойным щелчком мыши на иконке в правом нижнем углу экрана;
Откройте вкладку "Источники";
Нажмите кнопку "Добавить";
Выберите тип "Команда" и нажмите "ОК";
Наберите команду, выполняемую для получения сообщений на отправку и период вызова источника в секундах. Для источника VBScript команда должна начинаться именем интерпретатора cscript.exe;
Для отладки источника SMS установите галочку "Выводить результат в журнал";
Нажмите "ОК". Источник SMS должен появиться в списке.

Соединение с базой данных

Для соединения с базой данных необходимо использовать объект ADODB.Connection.

Инструкция по использованию ADODB.Connection в VBScript

Для некоторых типов баз данных (например, для MySQL) необходимо дополнительно установить драйвер (коннектор) базы данных.

Рекомендуемая версия MySQL-коннектора для Windows XP / 2003 Server - 3.51.

Скачать коннектор MySQL 3.51 (32-bit)

Рекомендуемая версия MySQL-коннектора для Windows Vista / 7 / 2008 Server - 5.1. Необходимо установить 32-битную версию коннектора, в противном случае скрипты будут возвращать ошибку "Источник данных не найден и не указан драйвер, используемый по умолчанию".

Скачать коннектор MySQL 5.1 (32-bit)

В строке соединения необходимо указывать DRIVER={MySQL ODBC 5.1 Driver}.

Если после установки MySQL-коннектора скрипт, тем не менее, будет возвращать "Источник данных не найден и не указан драйвер, используемый по умолчанию", необходимо зайти в Панель управления - Администрирование - Источники данных (ODBC) и добавить источник данных (пользователя или системы), нажав Добавить и выбрав MySQL ODBC 5.1 Driver.

Пример 1: запись в базу MS Access

sDB = "D:\db\mybase.mdb" Set objDB = CreateObject("ADODB.Connection") objDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDB objDB.Execute("INSERT INTO table VALUES(NOW(), 'field1', 'field2')")

Пример 2: запись в базу MySQL

sSqlHost = "localhost" sSqlBase = "test" sSqlUser = "root" sSqlPassword = "secret" Set objDB = CreateObject("ADODB.Connection") ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & sSqlHost &_ "; DATABASE=" & sSqlBase & "; UID=" & sSqlUser &_ "; PASSWORD=" & sSqlPassword & "; OPTION=3" objDB.Open ConnString objDB.Execute("INSERT INTO table VALUES(NOW(), 'field1', 'field2')")

Пример 3: запись в базу MS SQL

sSqlHost = "localhost" sSqlBase = "test" sSqlUser = "root" sSqlPassword = "secret" Set objDB = CreateObject("ADODB.Connection") ConnString = "DRIVER={SQL Server}; SERVER=" & sSqlHost &_ "; DATABASE=" & sSqlBase & "; UID=" & sSqlUser &_ "; PWD=" & sSqlPassword & ";" objDB.Open ConnString objDB.Execute("INSERT INTO table VALUES(NOW(), 'field1', 'field2')")

Перекодировка текста

Перекодировка текста может быть необходима при использовании базы данных в несовместимой кодировке.

' For example sBody = WScript.Arguments(0) sConvBody = StrConvert(sBody, "cp866", "windows-1251") Function StrConvert(strText, strSourceCharset, strDestCharset) Const adTypeText = 2 Const adModeReadWrite = 3 Dim objStream Set objStream = WScript.CreateObject("ADODB.Stream") With objStream .Type = adTypeText .Mode = adModeReadWrite .Open .Charset = strSourceCharset .WriteText strText .Position = 0 .Charset = strDestCharset strConvert = .ReadText End With Set objStream = Nothing End Function

Примеры скриптов автоматизации

Отправка SMS из командной строки

Скрипт запускается командой: cscript.exe script.vbs "(получатель)" "(сообщение)"

sMsisdn = WScript.Arguments(0) sBody = WScript.Arguments(1) Set objSMSDriver = CreateObject("HeadwindGSM.SMSDriver") Set objMsg = CreateObject("HeadwindGSM.SMSMessage") objMsg.To = sMsisdn objMsg.Body = sBody objSMSDriver.Connect() objMsg.Send()

Рассылка SMS из файла

Пример 1: одно сообщение, несколько получателей

Содержимое файла имеет вид:
(сообщение)
(получатель 1)
(получатель 2)
...

Скрипт запускается командой: cscript.exe script.vbs "(файл)"

FileName = WScript.Arguments(0) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(FileName, ForReading) Const ForReading = 1 Set objSMSDriver = CreateObject("HeadwindGSM.SMSDriver") objSMSDriver.Connect() sMsg = objFile.ReadLine Do Until objFile.AtEndOfStream sMsisdn = Trim(objFile.ReadLine) Set objMsg = CreateObject("HeadwindGSM.SMSMessage") objMsg.To = sMsisdn objMsg.Body = sMsg objMsg.Send() Loop objFile.Close

Пример 2: несколько получателей, несколько сообщений

Содержимое файла имеет вид:
(получатель 1) (сообщение 1)
(получатель 2) (сообщение 2)
...

Скрипт запускается командой: cscript.exe script.vbs "(файл)"

FileName = WScript.Arguments(0) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(FileName, ForReading) Const ForReading = 1 Set objSMSDriver = CreateObject("HeadwindGSM.SMSDriver") objSMSDriver.Connect() Do Until objFile.AtEndOfStream sLine = objFile.ReadLine nSpace = InStr(sLine, " ") If nSpace > 0 Then sMsisdn = Left(sLine, nSpace - 1) sMsg = Trim(Right(sLine, Len(sLine) - nSpace)) Set objMsg = CreateObject("HeadwindGSM.SMSMessage") objMsg.To = sMsisdn objMsg.Body = sMsg objMsg.Send() End If Loop objFile.Close

Примеры обработчиков

Запись сообщения в базу данных

Этот скрипт записывает сообщение в базу MySQL. Таблица создается следующим SQL-оператором: CREATE TABLE inbox(date DATETIME, msisdn VARCHAR(255), sms VARCHAR(255)). Команда обработчика: cscript.exe script.vbs "_FROM_" "_BODY_".

sSqlHost = "localhost" sSqlBase = "test" sSqlUser = "root" sSqlPassword = "secret" sMsisdn = WScript.Arguments(0) sBody = WScript.Arguments(1) sConvBody = StrConvert(sBody, "cp866", "windows-1251") sConvBody = Replace(sConvBody, "'", "\'") Set objDB = DBConnect() objDB.Execute("INSERT INTO inbox VALUES(now(), '" & sMsisdn & "', '" & sConvBody & "')") 'This function sets up DB Connection Function DBConnect Set objDB = CreateObject("ADODB.Connection") ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & sSqlHost &_ "; DATABASE=" & sSqlBase & "; UID=" & sSqlUser &_ "; PASSWORD=" & sSqlPassword & "; OPTION=3" objDB.Open ConnString Set DBConnect = objDB End Function ' This function converts string to another charset Function StrConvert(strText, strSourceCharset, strDestCharset) Const adTypeText = 2 Const adModeReadWrite = 3 Dim objStream Set objStream = WScript.CreateObject("ADODB.Stream") With objStream .Type = adTypeText .Mode = adModeReadWrite .Open .Charset = strSourceCharset .WriteText strText .Position = 0 .Charset = strDestCharset strConvert = .ReadText End With Set objStream = Nothing End Function

Запись сообщения в текстовый файл

Команда обработчика: cscript handler_to_file.vbs _FROM_ "_BODY_" "C:\path\to\file.txt".

sMsisdn = WScript.Arguments(0) sMessage =WScript.Arguments(1) FileName = WScript.Arguments(2) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(FileName, ForAppending, True) Const ForAppending = 8 objFile.WriteLine(Date & " " & Time & " " & sMsisdn & " " & sMessage) objFile.Close

Простой автоответчик

Команда обработчика: cscript.exe script.vbs "_FROM_" "_BODY_"

sReply = "Спасибо за Ваше сообщение!" sMsisdn = WScript.Arguments(0) 'sBody = WScript.Arguments(1) ' Return reply ' We are connected since we got the message Set objMsg = CreateObject("HeadwindGSM.SMSMessage") objMsg.To = sMsisdn objMsg.Body = sReply objMsg.Send()

Автоответчик по ключевым словам

Этот скрипт ищет соответствие сообщения ключевым словам из таблицы MySQL. Таблица создается следующим SQL-оператором: CREATE TABLE keywords(keyword VARCHAR(255), reply VARCHAR(255)). Команда обработчика: cscript.exe script.vbs "_FROM_" "_BODY_"

sSqlHost = "localhost" sSqlBase = "test" sSqlUser = "root" sSqlPassword = "secret" sDefaultReply = "Не нашлось ключевого слова!" sMsisdn = WScript.Arguments(0) sBody = WScript.Arguments(1) sConvBody = StrConvert(sBody, "cp866", "windows-1251") Set objDB = DBConnect() Set oRS = objDB.Execute("SELECT reply FROM keywords WHERE '" & sConvBody & "' like CONCAT('%', keyword, '%') LIMIT 1") 'WScript.echo(sBody) ' Executed once maximum Do While Not oRS.EOF sReply = oRS.Fields.Item("reply") oRS.MoveNext Loop If sReply = "" Then sReply = sDefaultReply Else sReply = StrConvert(sReply, "windows-1251", "cp866") End If 'WScript.echo(sReply) ' Return reply Set objSMSDriver = CreateObject("HeadwindGSM.SMSDriver") Set objMsg = CreateObject("HeadwindGSM.SMSMessage") objMsg.To = sMsisdn objMsg.Body = sReply objSMSDriver.Connect() objMsg.Send() 'This function sets up DB Connection using specified DSN Function DBConnect Set objDB = CreateObject("ADODB.Connection") ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & sSqlHost &_ "; DATABASE=" & sSqlBase & "; UID=" & sSqlUser &_ "; PASSWORD=" & sSqlPassword & "; OPTION=3" objDB.Open ConnString Set DBConnect = objDB End Function ' This function converts string to another charset Function StrConvert(strText, strSourceCharset, strDestCharset) Const adTypeText = 2 Const adModeReadWrite = 3 Dim objStream Set objStream = WScript.CreateObject("ADODB.Stream") With objStream .Type = adTypeText .Mode = adModeReadWrite .Open .Charset = strSourceCharset .WriteText strText .Position = 0 .Charset = strDestCharset strConvert = .ReadText End With Set objStream = Nothing End Function

Отправка SMS на E-mail

Для функционирования этого скрипта необходимо наличие Microsoft Outlook, а также установленных компонентов Microsoft Outlook Collaboration Data Objects (CDO). Команда обработчика: cscript.exe script.vbs "_FROM_" "_BODY_"

sFrom = "<span id="cloak17538">Этот адрес электронной почты защищен от спам-ботов. У вас должен быть включен JavaScript для просмотра.</span><script type='text/javascript'> // </script>" sTo = "<span id="cloak79933">Этот адрес электронной почты защищен от спам-ботов. У вас должен быть включен JavaScript для просмотра.</span><script type='text/javascript'> // </script>" sMsisdn = WScript.Arguments(0) sBody = WScript.Arguments(1) Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "SMS from " & sMsisdn objMessage.From = sFrom objMessage.To = sTo objMessage.TextBody = sBody objMessage.Send

Примеры источников SMS

Отправка SMS из таблицы базы данных

Таблица, в которую помещаются сообщения для отправки, называется outbox и имеет два поля, addr и body (получатель сообщения и само сообщение).

Команда источника SMS: cscript.exe //Nologo script.vbs

sqlHost = "localhost" sqlBase = "test" sqlUser = "root" sqlPassword = "secret" sqlGetQuery = "SELECT addr, body FROM outbox" sqlFlushQuery = "DELETE FROM outbox" 'Main Processing section 'Database connection & select all from Table Set objDB = DBConnect() objDB.Execute("LOCK TABLES outbox READ") Set oRS = objDB.Execute(sqlGetQuery) ' Our XML format WScript.Echo "<?xml version=""1.0"" encoding=""cp866""?>" WScript.Echo "<messages>" Do While Not oRS.EOF sBody = StrConvert(oRS.Fields.Item("body"), "windows-1251", "cp866") WScript.Echo " <message msisdn=""" & oRS.Fields.Item("addr") & """>" &_ sBody & "</message>" oRS.MoveNext Loop WScript.Echo "</messages>" objDB.Execute(sqlFlushQuery) objDB.Execute("UNLOCK TABLES") 'Procedures section 'This function sets up DB Connection using specified DSN Function DBConnect Set objDB = CreateObject("ADODB.Connection") ConnString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & sqlHost &_ "; DATABASE=" & sqlBase & "; UID=" & sqlUser &_ "; PASSWORD=" & sqlPassword & "; OPTION=3" objDB.Open ConnString Set DBConnect = objDB End Function ' This function converts string to another charset Function StrConvert(strText, strSourceCharset, strDestCharset) Const adTypeText = 2 Const adModeReadWrite = 3 Dim objStream Set objStream = WScript.CreateObject("ADODB.Stream") With objStream .Type = adTypeText .Mode = adModeReadWrite .Open .Charset = strSourceCharset .WriteText strText .Position = 0 .Charset = strDestCharset strConvert = .ReadText End With Set objStream = Nothing End Function

Отправка SMS из текстового файла

Содержимое файла имеет вид:
(получатель 1) (сообщение 1)
(получатель 2) (сообщение 2)
...

Команда источника SMS: cscript.exe //Nologo script.vbs "(файл)"

FileName = WScript.Arguments(0) Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile(FileName, ForReading) Const ForReading = 1 WScript.Echo "<messages>" Do Until objFile.AtEndOfStream sLine = objFile.ReadLine nSpace = InStr(sLine, " ") If nSpace > 0 Then sMsisdn = Left(sLine, nSpace - 1) sMsg = Trim(Right(sLine, Len(sLine) - nSpace)) WScript.Echo "<message msisdn=""" & sMsisdn & """>" & sMsg & "</message>" End If Loop WScript.Echo "</messages>" objFile.Close

Мониторинг процесса

Скрипт проверяет наличие процесса в памяти, и отправляет SMS-сообщение администратору, если процесс отсутствует. Источник SMS запускается Персональным SMS Сервером с заданной периодичностью. Команда источника SMS: cscript.exe //Nologo script.vbs "(телефон)" "(процесс.exe)".

' Place the name of a remote server here ServerName = "." AdminPhone = WScript.Arguments(0) ProcessName = WScript.Arguments(1) count=0 Set objWMIService = GetObject("winmgmts:\\" & ServerName & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Process",,48) For Each objItem in colItems if LCase(objItem.Name) = LCase(ProcessName) then count=count+1 end if Next if count < 1 then ' Raise SMS alert! sMessage = "ALERT! No process '" & ProcessName & "'" WScript.Echo "<messages>" WScript.Echo "<message msisdn=""" & AdminPhone & """>" & sMessage & "</message>" WScript.Echo "</messages>" end if

Мониторинг (пинг) хоста

Скрипт производит пинг хоста, и отправляет SMS-сообщение администратору, если хост не отвечает. Источник SMS запускается Персональным SMS Сервером с заданной периодичностью. Команда источника SMS: cscript.exe //Nologo script.vbs "(телефон)" "(хост)" (например, cscript.exe //Nologo script.vbs "79000000001" "www.yandex.ru").

sMsisdn = WScript.Arguments(0) strHost = WScript.Arguments(1) if Ping(strHost) = False then sMessage = "Host " & strHost & " could not be contacted" WScript.Echo "<messages>" WScript.Echo "<message msisdn=""" & sMsisdn & """>" & sMessage & "</message>" WScript.Echo "</messages>" end if Function Ping(strHost) dim objPing, objRetStatus set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _ ("select * from Win32_PingStatus where address = '" & strHost & "'") for each objRetStatus in objPing if IsNull(objRetStatus.StatusCode) or objRetStatus.StatusCode<>0 then Ping = False 'WScript.Echo "Status code is " & objRetStatus.StatusCode else Ping = True 'Wscript.Echo "Bytes = " & vbTab & objRetStatus.BufferSize 'Wscript.Echo "Time (ms) = " & vbTab & objRetStatus.ResponseTime 'Wscript.Echo "TTL (s) = " & vbTab & objRetStatus.ResponseTimeToLive end if next End Function

Нашим решениям доверяют

Новости

10.04.2017

Предлагаем консультации и разработку ПО для стартапов в сфере Интернета вещей.

17.03.2017

При заказе Персонального СМС Сервера - бесплатное подключение к базе данных, сайту или Excel-таблице!

02.03.2017

Наши эксперты подготовили руководство по разработке дизайна мобильных приложений, полезное как заказчикам, так и другим разработчикам.

27.01.2017

В числе наших сервисов - разработка мобильных приложений под iOS: расчет цены и сроков, дизайн пользовательского интерфейса, кодирование, тестирование, техническая поддержка и продвижение.

23.09.2016

Предоставляем услуги разработки кастомной прошивки Android: замену загрузочного логотипа и анимации, изменение дизайна системных приложений, установку "неудаляемых" приложений.