Headwind GSM Modem Driver integration

Common questions

How to create a VBScript script
Setup of a VBScript SMS handler
Setup of a VBScript SMS source
Connection with the database
Windows Scripting Host reference
VBScript Language Reference

Script examples

Send SMS from command line
Send SMS from file

Handler examples

Save messages in a database
Save messages in a text file
Simple autoresponder
Keyword-based autoresponder
Send SMS to E-mail

SMS source examples

Send SMS from DB tables
Send SMS from text file
Process monitoring
Host monitoring (ping)

Common questions

How to create a VBScript script

The script written in VBScript is an ordinary text file. Create a new text file in your file manager or in the Windows Explorer ("My Computer"), copy the code from this page to the file, and change the file extension to .vbs.

To view (and change) file extensions in Windows Explorer, select the menu item "Tools", "Folder options", tab "View", and uncheck the box "Hide extensions for registered file types".

The VBScript code is runned either from the file manager, or from the command line by the command cscript.exe (script name).

Setup of a VBScript SMS handler

1. Open the control panel of Headwind GSM Modem Driver by double-clicking the icon in a system tray;
2. Open the "Handlers" tab;
3. Click the button "Add";
4. Select the type "Command", the event to handle ("Receive" to handle received messages), type the handler command, and the directory where the command is runned (optional). If you are installing a VBScript handler, the command should begin from the interpreter name cscript.exe;
5. To debug the handler, set the checkbox "Output result in log";
6. Click "OK". The handler should appear in the list.

Setup of a VBScript SMS source

1. Open the control panel of Headwind GSM Modem Driver by double-clicking the icon in a system tray;
2. Open the "Sources" tab;
3. Click the button "Add";
4. Select the type "Command" and click "OK";
5. Type the command called to get SMS messages and set the period of SMS source in seconds. If you are installing a VBScript source, the command should begin from the interpreter name cscript.exe;
6. To debug the SMS source, set the checkbox "Output result in log";
7. Click "OK". The SMS source should appear in the list.

Connection with the database

To use database in VBScript, you must use the class ADODB.Connection.

How to use ADODB.Connection in VBScript

For some types of databases, an additional installation of the database driver (connector) is necessary.

Download MySQL Connector

Example 1: write to MS Access database

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')")

Example 2: write to MySQL database

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')")

Example 3: write to MS SQL database

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')")

Script examples

Send SMS from command line

The script is called by the following command: cscript.exe script.vbs "(recipient)" "(message)"

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()

Send SMS from file

Example 1: one message, multiple recipients

The file should have the following contents:
(message)
(recipient 1)
(recipient 2)
...

The script is called by the following command: cscript.exe script.vbs "(file)"

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

Example 2: multiple messages and multiple recipients

The file should have the following contents:
(recipient 1) (message 1)
(recipient 2) (message 2)
...

The script is called by the following command: cscript.exe script.vbs "(file)"

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

Handler examples

Save messages in a database

This scripts saves a message in the MySQL database. The table is created by the following SQL operator: CREATE TABLE inbox(date DATETIME, msisdn VARCHAR(255), sms VARCHAR(255)). Handler command: cscript.exe script.vbs "_FROM_" "_BODY_".

sSqlHost = "localhost" sSqlBase = "test" sSqlUser = "root" sSqlPassword = "secret" sMsisdn = WScript.Arguments(0) sBody = WScript.Arguments(1) sConvBody = Replace(sBody, "'", "\'") 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

Save messages in a text file

Handler command: 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

Simple autoresponder

Handler command: cscript.exe script.vbs "_FROM_" "_BODY_"

sReply = "Thank you for your message!" 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()

Keyword-based autoresponder

This script searches for keywords from a MySQL table. The table is created by the following SQL operator: CREATE TABLE keywords(keyword VARCHAR(255), reply VARCHAR(255)). Handler command: cscript.exe script.vbs "_FROM_" "_BODY_"

sSqlHost = "localhost" sSqlBase = "test" sSqlUser = "root" sSqlPassword = "secret" sDefaultReply = "No keyword found!" sMsisdn = WScript.Arguments(0) sBody = WScript.Arguments(1) Set objDB = DBConnect() Set oRS = objDB.Execute("SELECT reply FROM keywords WHERE '" & sBody & "' 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 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

Send SMS to E-mail

This script requires Microsoft Outlook as well as Microsoft Outlook Collaboration Data Objects (CDO). Handler command: cscript.exe script.vbs "_FROM_" "_BODY_"

sFrom = "your@address.com" sTo = "rcpt@rcpt.com" 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 source examples

Send SMS from DB tables

The name of the table for placing outgoing messages is outbox. This table has two field, addr and body (message recipient and body).

SMS source command: 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 "<messages>" Do While Not oRS.EOF WScript.Echo " <message msisdn=""" & oRS.Fields.Item("addr") & """>" &_ oRS.Fields.Item("body") & "</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

Send SMS from text file

The file should have the following contents:
(recipient 1) (message 1)
(recipient 2) (message 2)
...

SMS source command: cscript.exe //Nologo script.vbs "(file)"

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

Process monitoring

This scripts check the presence of a process in the computer memory. If the process is absent, a SMS message is sent to the administrator. The SMS source is called by Headwind GSM Modem Driver with a given period. SMS source command: cscript.exe //Nologo script.vbs "(admin phone)" "(process.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

Host monitoring (ping)

This script pings a host and sends a message to the administrator if the host fails to respond. The SMS source is called by Headwind GSM Modem Driver with a given period. SMS source command: cscript.exe //Nologo script.vbs "(phone)" "(host)" (for example, cscript.exe //Nologo script.vbs "18000000001" "www.h-sms.com").

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