Welcome to the new Schneider Electric Community

It's your place to connect with experts and peers, get continuous support, and share knowledge.

Close
Important Announcement: WELCOME to the new Schneider Electric Community! Community is now no longer part of Exchange, and is now rebranded under se.com. If you have any bookmarks and links saved, we request you to update them to ensure that you continue accessing our community from this new location. For any issues that you might encounter as part of this change, please reach out to SchneiderCommunity.Support@se.com, and the team will help to get your issues resolved.
Invite a Co-worker
Send a co-worker an invite to the Exchange portal.Just enter their email address and we’ll connect them to register. After joining, they will belong to the same company.
Send Invite Cancel
82143members
349681posts

Отправка SMS оповещений из EcoStruxure Machine SCADA Expert

Форум по промышленной автоматизации СНГ

Форум для ОЕМ-производителей и Системных интеграторов СНГ. Здесь вы найдете информацию об опыте применения продукции Шнейдер Электрик для проектов по автоматизации на базе контроллеров M17x, M2xx, M340, M580, SCADAPack и преобразователей частоты ATV. Получите советы по применению, полезные материалы и новости от специалистов по продуктам SmartHVAC, SmartHEAT, SmartSCADA HVAC и других линеек этой серии.

PavelMikov
Crewman Crewman
Crewman

Отправка SMS оповещений из EcoStruxure Machine SCADA Expert

В данной статье приведен пример отправки SMS сообщений при помощи LTE модема Huawei E3372.
При отправке сообщений через web интерфейс модема нет необходимости переводить его в режим работы от AT команд. Но есть небольшая хитрость с тем, как получить начальные данные (cookie и token) для авторизации. 

Dim o, cookie, token
Set o = CreateObject("WinHttp.WinHttpRequest.5.1")
o.open "GET", "http://192.168.8.1/api/webserver/SesTokInfo", False
o.send
cookie = "SessionID="+Mid(o.responseText, 72, 128)
token = Mid(o.responseText, 221, 32)

o.open "POST", "http://192.168.8.1/api/sms/send-sms", False
o.setRequestHeader "__RequestVerificationToken", token
o.setRequestHeader "Cookie", cookie

Dim data
data = "<?xml version='1.0' encoding='UTF-8'?><request><Index>-1</Index><Phones><Phone>"
data = data + $sPhoneNumber
data = data + "</Phone></Phones><Sca/><Content>"
data = data + $sText
data = data + "</Content><Length>"
data = data + CStr($StrLen($sText))
data = data + "</Length><Reserved>1</Reserved><Date>"
$SetDateFormat("-", "YMD")
data = data + $Date + " " + $Time
data = data + "</Date></request>"
o.send data

 Номер получателя и текст сообщения необходимо указать в тэгах sPhoneNumber и sText.

 

Данный способ не является единственным вариантом SMS уведомлений. AT команды и работа через web api SMS-шлюзов так же доступны в SCADA Expert.

2 Replies 2
SeGo
Ensign Ensign
Ensign
0 Likes
1
882

Re: Отправка SMS оповещений из EcoStruxure Machine SCADA Expert

отлично. а можно отправлять сообщения в WhatsApp и Telegram

Tags (1)
PavelMikov
Crewman Crewman
Crewman
0 Likes
0
876

Re: Отправка SMS оповещений из EcoStruxure Machine SCADA Expert

Добрый вечер, Сергей!

 

Точно можно реализовать для Telegram. Это будет бесплатная отправка сообщений. 

 

Для WhatsApp существуют поставщики доступа через webAPI, но эти решения обходятся дороже чем SMS. Беглый анализ дает 2,5-3,5 рубля за сообщение.

Tags (1)