The following code snippets (VBScript) illustrate how to use various SMS and Pager Toolkit objects.
Send a simple SMS message (via GSM Modem / GSM phone)
Set objGsmOut = CreateObject( "ActiveXperts.GsmOut" )
objGsmOut.Device = "MultiTech GSM MultiModem" ' Use MultiTech's Windows Telephony device
objGsmOut.MessageRecipient = "+31624896641" ' Recipient's mobile number
objGsmOut.MessageData = "Hello, world!" ' SMS message text
objGsmOut.EnterPin ( "1234" ) ' SIM card's PIN code
objGsmOut.Send ' Send the SMS message now
WScript.Echo "Result: " & objGsmOut.LastError
Send a simple SMS message (via HTTP-POST)
Set objHttpPost = CreateObject ( "ActiveXperts.HttpPost" ) ' Create HttpPost instance
Set objConstants = CreateObject ( "ActiveXperts.SmsConstants" )
' Provider Settings
objHttpPost.ProviderHost = "post.activexperts-labs.com" ' Specify host
objHttpPost.ProviderPort = 8080 ' Specify port (default port:80)
' Provider Response templates
objHttpPost.ProviderErrorResponse = "ERR" ' Response should NOT contain 'ERR'
objHttpPost.ProviderSuccessResponse = "id" ' Response should contain 'id'
' URL Template to submit plain text SMS messages
objHttpPost.URLText = "/sendsms/default.asp?username=AX008&password=812056&text=%MESSAGEDATA%&to=" & _
"%MESSAGERECIPIENT%&from=%MESSAGESENDER%"
objHttpPost.MessageType = objConstants.asMESSAGETYPE_TEXT ' Message Property: plain text
objHttpPost.MessageData = "Hello, world" ' Message text
objHttpPost.MessageSender = "+31638740160" ' Message sender
objHttpPost.AddRecipient( strRecipient ) ' Message recipient (you can add multiple recipients)
objHttpPost.Send ' Send the message
WScript.Echo "Send, result:" & objHttpPost.LastError ' Display the result
WScript.Echo "Provider response:" & objHttpPost.ProviderResponse ' Display provider response
Send a simple SMS message (via SMPP)
Set objSmpp = CreateObject ( "ActiveXperts.Smpp" )
objSmpp.Server = "smpp.activexperts-labs.com" ' SMPP server (hostname or IP address)
objSmpp.ServerPort = 2775 ' TCP/IP port of the SMPP server
objSmpp.SystemID = "AX005" ' SMPP server login
objSmpp.SystemPassword = "812056" ' SMPP server password
objSmpp.Connect
If objSmpp.IsConnected = True Then
objSmpp.MessageRecipient = "+31647134225" ' Recipient's mobile number
objSmpp.MessageData = "Hello World via SMPP" ' SMS message text
objSmpp.Send ' Send the message
objSmpp.Disconnect ' Disconnect
End If
WScript.Echo "Result: " & objSmpp.LastError
Send a simple SMS message (via Dial-up provider)
Set objDialUp = CreateObject ( "ActiveXperts.DialUp" )
Set objConstants = CreateObject ( "ActiveXperts.SmsConstants" )
objDialUp.Device = "Standard 1200 bps Modem"
objDialUp.DeviceSpeed = 1200 ' Depends on provider; use 0 for default (TAP 1200, UCP 2400)
objDialUp.DeviceSettings = objConstants.asDEVICESETTINGS_8N1 ' Depends on provider; here we use 8 data bits,
no parity, 1 stop-bit
objDialUp.ProviderDialString = "+31653141414" ' Provider's dial-in number
objDialUp.ProviderType = objConstants.asPROVIDERTYPE_UCP ' UCP or TAP
objDialUp.MessageSender = "0625044454" ' Set your own mobile phone number here
objDialUp.MessageRecipient = "0647134225" ' Recipient's mobile phone number
objDialUp.MessageData = "Hello, world" ' SMS message text
objDialUp.Send
WScript.Echo "Result: " & objDialUp.LastError
Receive a simple SMS message (GSM Modem / GSM phone)
Set objGsmIn = CreateObject( "ActiveXperts.GsmIn" )
objGsmIn.Device = "MultiTech GSM MultiModem"
objGsmIn.EnterPin ( "1234" ) ' SIM card's PIN code
objGsmIn.Receive () ' Receive all messages from SIM or device memory
If ( objGsmIn.LastError <> 0 ) Then
WScript.Echo "Failed to receive, error: " & objGsmIn.LastError
WScript.Quit
End If
objGsmIn.GetFirstMessage() ' Get first message
While ( objGsmIn.LastError = 0 )
WScript.Echo "Message from: " & objGsmIn.MessageSender ' Show sender's mobile number
wScript.Echo "Message : " & objGsmIn.MessageData ' Show the SMS message text
objGsmIn.GetNextMessage() ' Get next message
Wend
Send a Unicode SMS message (via GSM Modem / GSM phone)
Set objGsmOut = CreateObject( "ActiveXperts.GsmOut" )
Set objConstants = CreateObject( "ActiveXperts.SmsConstants" )
objGsmOut.Device = "MultiTech GSM MultiModem"
objGsmOut.MessageRecipient = "+31624896641" ' Recipient's mobile number
objGsmOut.MessageType = objConstants.asMESSAGTYPE_UNICODE ' SMS message text
objGsmOut.MessageData = "ملحق خاصملحق خاص" ' SMS message text
objGsmOut.EnterPin ( "1234" ) ' SIM card's PIN code
objGsmOut.Send ' Send the SMS message now
WScript.Echo "Result: " & objGsmOut.LastError
Send a Ringtone message (via GSM Modem / GSM phone)
Set objRingTone = CreateObject ( "ActiveXperts.RingTone" )
Set objGsmOut = CreateObject ( "ActiveXperts.GsmOut" )
Set objConstants = CreateObject ( "ActiveXperts.SmsConstants" )
objGsmOut.Device = "COM1"
objGsmOut.MessageRecipient = "+31647134225"
objGsmOut.MessageType = objConstants.asMESSAGETYPE_DATA_UDH
objRingtone.LoadRTTTL( "Muppets:d=4,o=5,b=250:c6,c6,a,b,8a,b,g,p,c6,c6,a,8b,8a,8p,g.,p,e,e,g,f,8e,f,8c6,8c,8d,e,8e,8e," & _
"8p,8e,g,2p,c6,c6,a,b,8a,b,g,p,c6,c6,a,8b,a,g.,p,e,e,g,f,8e,f,8c6,8c,8d,e,8e,d,8d,c" )
objRingtone.Encode
If( objRingtone.LastError <> 0 ) Then
WScript.Echo "Error encoding ringtone: " & objRingtone.LastError
WScript.Quit
End If
objGsmOut.MessageData = objRingtone.EncodedMessage
objGsmOut.MessageType = objConstants.asMESSAGETYPE_DATA_UDH
objGsmOut.Send
If ( objGsmOut.LastError <> 0 ) Then
WScript.Echo ( "Error " & objGsmOut.LastError & " : " & objGsmOut.GetErrorDescription ( objGsmOut.LastError ) )
WScript.Quit
End If
WScript.Echo "Message successfully submitted."
Send a WAP Push message (via SMPP)
Set objSmpp = CreateObject ( "ActiveXperts.Smpp" )
Set objWapPush = CreateObject ( "ActiveXperts.WapPush" )
objSmpp.Server = "smpp.activexperts-labs.com" ' SMPP server (hostname or IP address)
objSmpp.ServerPort = 2775 ' TCP/IP port of the SMPP server
objSmpp.SystemID = "AX005" ' SMPP server login
objSmpp.SystemPassword = "812056" ' SMPP server password
objSmpp.Connect
If objSmpp.IsConnected = True Then
objSmpp.MessageRecipient = "+31647134225" ' Recipient's mobile number
objSmpp.MessageData = "Hello World via SMPP" ' SMS message text
objWapPush.URL = "http://wap.yahoo.com" ' Push wap.yahoo.com
objWapPush.Description = "Go visit yahoo.com !" ' Friendly push text
objWapPush.Encode ' Encode the WAP data
objSmpp.MessageType = objConstants.asMESSAGETYPE_DATA_UDH
objSmpp.MessageData = objWapPush.EncodedMessage
objSmpp.Send ' Send WAP data
objSmpp.Disconnect ' Disconnect
End If
Send a Voicemail indication (via GSM Modem / GSM phone)
Set objGsmOut = CreateObject ( "ActiveXperts.GsmOut" )
Set objConstants = CreateObject ( "ActiveXperts.SmsConstants" )
objGsmOut.Device = "MultiTech GSM MultiModem"
objGsmOut.MessageRecipient = "+31624896641" ' Recipient's mobile number
objGsmOut.MessageData = "5" ' Indication for 5 new voicemail messages
objGsmOut.MessageType = objConstants.asMESSAGETYPE_INDICATION_VOICEMAIL ' Voicemail indication
objGsmOut.Send ' Send the voicemail indication now
WScript.Echo "Result: " & objGsmOut.LastError
Make sure the SMS & Pager Toolkit is installed on your system. For details about installation,
click here.
Add a reference to the object using the Visual Basic Solution Explorer:
-
Start the Solution Provider, go to the project's 'References' container;
-
Choose 'Add Reference' from the context menu;
-
Select the COM tab, choose the 'ActiveXperts SMS and Pager Toolkit' component.
You can create a new
SmsConstants object in the following way:
Dim objConstants As ASmsCtrl.SmsConstants ' Declaration
objConstants = New ASmsCtrl.SmsConstants() ' Creation
If you use a GSM modem (or GSM phone) to send SMS messages, create a new
GsmOut object in the following way:
Dim objGsmOut As ASmsCtrl.GsmOut ' Declaration
objGsmOut = New ASmsCtrl.GsmOut() ' Creation
If you use a GSM modem (or GSM phone) to receive SMS messages, create a new
GsmIn object in the following way:
Dim objGsmIn As ASmsCtrl.GsmIn ' Declaration
objGsmIn = New ASmsCtrl.GsmIn() ' Creation
If you use an HTTP-POST-compliant SMSC provider to deliver messages, create a new
HttpPost object in the following way:
Dim objHttpPost As ASmsCtrl.HttpPost ' Declaration
objHttpPost = New ASmsCtrl.HttpPost() ' Creation
If you use an SMPP-compliant SMSC provider to deliver messages, create a new
Smpp object in the following way:
Dim objSmpp As ASmsCtrl.Smpp ' Declaration
objSmpp = New ASmsCtrl.Smpp() ' Creation
If you use a normal modem to connect to an SMSC dial-in provider, create a new
DialUp object in the following way:
Dim objDialUp As ASmsCtrl.Dialup ' Declaration
objDialUp = New ASmsCtrl.Dialup() ' Creation
If you have a connection to an SNPP provider via the Internet to send alpha-numeric pager messages, create a new
Snpp object in the following way:
Dim objSnpp As ASmsCtrl.Snpp ' Declaration
objSnpp = New ASmsCtrl.Snpp() ' Creation
If you use a normal modem to send pager messages, create a new
Pager object in the following way:
Dim objPager As ASmsCtrl.Pager ' Declaration
objPager = New ASmsCtrl.Pager() ' Creation
If you want to use WAP Push or WAP Bookmark messages, you can create a new
WapPush or WapBookmark object in the following way:
Dim objWapPush As ASmsCtrl.WapPush ' Declaration
objWapPush = New ASmsCtrl.WapPush() ' Creation
Dim objWapBookmark As ASmsCtrl.WapBookmark ' Declaration
objWapBookmark = New ASmsCtrl.WapBookmark() ' Creation
If you want to use Ringtone messages or Picture messages, you can create a new
Ringtone or PictureMessage object in the following way:
Dim objRingtone As ASmsCtrl.Ringtone ' Declaration
objRingtone = New ASmsCtrl.Ringtone() ' Creation
Dim objPictureMessage As ASmsCtrl.PictureMessage ' Declaration
objPictureMessage = New ASmsCtrl.PictureMessage() ' Creation
If you want to use MMS notification messages, you can create a new
MMSNotification object in the following way:
Dim objNotification As ASmsCtrl.MMSNotification ' Declaration
objNotification = New ASmsCtrl.MMSNotification() ' Creation
After these declarations and creation of the object(s), you can use the
objects in your Visual Basic .NET projects.
Make sure the SMS & Pager Toolkit is installed on your system. For details about installation,
click here.
SMS and Pager Toolkit can be used in Visual Basic 5.x or higher. In Visual
Basic, go to the 'Project/References...' menu item and check the box next to
'ActiveXperts SMS and Pager Toolkit' Type Library. Now, you can declare and
create SMS objects.
You can create a new
SmsConstants object in the following way:
Dim objConstants As ASmsCtrl.SmsConstants ' Declaration
Set objConstants = CreateObject( "ActiveXperts.SmsConstants" ) ' Creation
If you use a GSM modem (or GSM phone) to send SMS messages, create a new
GsmOut object using the 'CreateObject' function:
Dim objGsmOut As ASmsCtrl.GsmOut ' Declaration
Set objGsmOut = CreateObject( "ActiveXperts.GsmOut" ) ' Creation
If you use a GSM modem (or GSM phone) to receive SMS messages, create a new
GsmIn object using the 'CreateObject' function:
Dim objGsmIn As ASmsCtrl.GsmIn ' Declaration
Set objGsmIn = CreateObject( "ActiveXperts.GsmIn" ) ' Creation
If you use an HTTP-POST-compliant SMSC provider to deliver messages, create a new
HttpPost object in the following way:
Dim objHttpPost As ASmsCtrl.HttpPost ' Declaration
Set objHttpPost = CreateObject( "ActiveXperts.HttpPost" ) ' Creation
If you use an SMPP-compliant SMSC provider to deliver messages, create a new
Smpp object in the following way:
Dim objSmpp As ASmsCtrl.Smpp ' Declaration
Set objSmpp = CreateObject( "ActiveXperts.Smpp" ) ' Creation
If you use a normal modem to connect to an SMSC dial-in provider, create a new
DialUp object using the 'CreateObject' function:
Dim objDialUp As ASmsCtrl.DialUp ' Declaration
Set objDialUp = CreateObject( "ActiveXperts.DialUp" ) ' Creation
If you have a connection to an SNPP provider via the Internet to send alpha-numeric pager messages, create a new
Snpp object in the following way:
Dim objSnpp As ASmsCtrl.Snpp ' Declaration
Set objSnpp = CreateObject( "ActiveXperts.Snpp" ) ' Creation
If you use a normal modem to send out Pager messages, create a new
Pager object in the following way:
Dim objPager As ASmsCtrl.Pager ' Declaration
Set objPager = CreateObject( "ActiveXperts.Pager" ) ' Creation
To format SMS messages as WAP Push or WAP Bookmark messages, you can create a new
WapPush or WapBookmark object in the following way:
Dim objWapPush As ASmsCtrl.WapPush ' Declaration
Set objWapPush = CreateObject( "ActiveXperts.WapPush" ) ' Creation
Dim objWapBookmark As ASmsCtrl.WapBookmark ' Declaration
Set objWapBookmark = CreateObject( "ActiveXperts.WapBookmark" ) ' Creation
To format SMS messages as Ringtone messages or picture messages, you can create a new
Ringtone or PictureMessage object in the following way:
Dim objRingtone As ASmsCtrl.Ringtone ' Declaration
Set objRingtone = CreateObject( "ActiveXperts.Ringtone" ) ' Creation
Dim objPictureMessage As ASmsCtrl.PictureMessage ' Declaration
Set objPictureMessage = CreateObject( "ActiveXperts.PictureMessage" ) ' Creation
To format SMS messages as MMS notification messages, you can create a new
MMSNotification object in the following way:
Dim objNotification As ASmsCtrl.MMSNotification ' Declaration
Set objNotification = CreateObject( "ActiveXperts.MMSNotification" ) ' Creation
After these declarations and creation of the object(s), you can use the objects in your Visual Basic projects.
Make sure the SMS & Pager Toolkit is installed on your system. For details about installation,
click here.
SMS and Pager Toolkit can be used in Visual C++ projects. Include the *.h and
*.c file provided by ActiveXperts to bind your code to the SMS component. These
files are located in the
Include directory of the Visual C++ samples
directory. These are the files:
- ASmsCtrl.h
- ASmsCtrl_i.c
- ASmsConstants.h
You can create a new
SmsConstants object in the following way:
ISmsConstants *pObjConstants; // Declaration
CoCreateInstance(CLSID_SmsConstants, NULL, CLSCTX_INPROC_SERVER, IID_ISmsConstants, (void**) &pObjSmsConstants); // Creation
If you use a GSM modem (or GSM phone) to send SMS messages, declare and create a new
GsmOut object in the following way:
IGsmOut *pObjGsmOut; // Declaration
CoCreateInstance(CLSID_GsmOut, NULL, CLSCTX_INPROC_SERVER, IID_IGsmOut, (void**) &pObjGsmOut); // Creation
If you use a GSM modem (or GSM phone) to receive SMS messages, declare and create a new
GsmOut object in the following way:
IGsmIn *pObjGsmIn; // Declaration
CoCreateInstance(CLSID_GsmIn, NULL, CLSCTX_INPROC_SERVER, IID_IGsmIn, (void**) &pObjGsmIn); // Creation
If you use an HTTP-POST-compliant SMSC provider to deliver messages, create a new
HttpPost object in the following way:
IHttpPost *pObjHttpPost; // Declaration
CoCreateInstance(CLSID_HttpPost, NULL, CLSCTX_INPROC_SERVER, IID_IHttpPost, (void**) &pObjHttpPost); // Creation
If you use an SMPP-compliant SMSC provider to deliver messages, create a new
Smpp object in the following way:
ISmpp *pObjSmpp; // Declaration
CoCreateInstance(CLSID_Smpp, NULL, CLSCTX_INPROC_SERVER, IID_ISmpp, (void**) &pObjSmpp); // Creation
If you use a normal modem to connect to an SMSC dial-in provider, declare and create a new
DialUp object in the following way:
way:
IDialUp *pObjDialUp; // Declaration
CoCreateInstance(CLSID_DialUp, NULL, CLSCTX_INPROC_SERVER, IID_IDialUp, (void**) &pObjDialUp); // Creation
If you use a normal modem to send pager messages, declare and create a new
Pager object in the following way:
way:
IPager *pObjPager; // Declaration
CoCreateInstance(CLSID_Pager, NULL, CLSCTX_INPROC_SERVER, IID_IPager, (void**) &pObjPager); // Creation
If you have a connection to an SNPP provider via the Internet to send alpha-numeric pager messages, create a new
Snpp object in the following way:
way:
ISnpp *pObjSnpp; // Declaration
CoCreateInstance(CLSID_Snpp, NULL, CLSCTX_INPROC_SERVER, IID_ISnpp, (void**) &pObjSnpp); // Creation
To format SMS messages as WAP Push or WAP Bookmark messages, you can create a new
WapPush or WapBookmark object in the following way:
IWapPush *pObjWapPush; // Declaration
CoCreateInstance(CLSID_WapPush, NULL, CLSCTX_INPROC_SERVER, IID_IWapPush, (void**) &pObjWapPush); // Creation
IWapBookmark *pObjWapBookmark; // Declaration
CoCreateInstance(CLSID_WapBookmark, NULL, CLSCTX_INPROC_SERVER, IID_IWapBookmark, (void**) &pObjWapBookmark); // Creation
To format SMS messages as Ringtone messages or picture messages, you can create a new
Ringtone or PictureMessage object in the following way:
IRingtone *pObjRingtone; // Declaration
CoCreateInstance(CLSID_Ringtone, NULL, CLSCTX_INPROC_SERVER, IID_IRingtone, (void**) &pObjRingtone); // Creation
IPictureMessage *pObjPictureMessage; // Declaration
CoCreateInstance(CLSID_PictureMessage, NULL, CLSCTX_INPROC_SERVER, IID_IPictureMessage, (void**) &pObjPictureMessage); // Creation
To format SMS messages as MMS notification messages, you can create a new
MMSNotification object in the following way:
IMMSNotification *pNotification; // Declaration
CoCreateInstance(CLSID_MMSNotification, NULL, CLSCTX_INPROC_SERVER, IID_IMMSNotification, (void**) &pObjNotification); // Creation
Make sure the SMS & Pager Toolkit is installed on your system.
For details about installation,
click here.
First, add a reference to the SMS and Pager Toolkit objects:
-
Go to Project->Import Type Library;
-
Select 'ActiveXperts SMS and Pager Toolkit Type Library';
-
Click 'Install';
-
The project 'dclusr.dpk' will be opened. Click 'Yes';
-
You can now use the ActiveXperts SMS and Pager Toolkit within your application by selecting the component from the 'ActiveX' component bar.
You can create a new
SmsConstants object in the following way:
SmsConstants : TSmsConstants; ' Declaration of the wrapper class
objConstants : ISmsConstants; ' Declaration of the interface class
objConstants := SmsConstants.DefaultInterface; ' Creation new instance of the object
If you use a GSM modem (or GSM phone) to send SMS messages, create a new
GsmOut object in the following way:
GsmOut : TGsmOut; ' Declaration of the wrapper class
objGsmOut : IGsmOut; ' Declaration of the interface class
objGsmOut := GsmOut.DefaultInterface; ' Creation new instance of the object
If you use a GSM modem (or GSM phone) to receive SMS messages, create a new
GsmIn object in the following way:
GsmIn : TGsmIn; ' Declaration of the wrapper class
objGsmIn : IGsmIn; ' Declaration of the interface class
objGsmIn := GsmIn.DefaultInterface; ' Creation new instance of the object
If you use an HTTP-POST-compliant SMSC provider to deliver messages, create a new
HttpPost object in the following way:
HttpPost : THttpPost; ' Declaration of the wrapper class
objHttpPost : IHttpPost; ' Declaration of the interface class
objHttpPost := HttpPost.DefaultInterface; ' Creation new instance of the object
If you use an SMPP-compliant SMSC provider to deliver messages, create a new
Smpp object in the following way:
Smpp : TSmpp; ' Declaration of the wrapper class
objSmpp : ISmpp; ' Declaration of the interface class
objSmpp := Smpp.DefaultInterface; ' Creation new instance of the object
If you use a normal modem to connect to an SMSC dial-in provider, create a new
DialUp object in the following way:
Dialup : TDialup; ' Declaration of the wrapper class
objDialup : IDialup; ' Declaration of the interface class
objDialup:= Dialup.DefaultInterface; ' Creation new instance of the object
If you have a connection to an SNPP provider via the Internet to send alpha-numeric pager messages, create a new
Snpp object in the following way:
Snpp : TSnpp; ' Declaration of the wrapper class
objSnpp : ISnpp; ' Declaration of the interface class
objSnpp := Snpp.DefaultInterface; ' Creation new instance of the object
If you use a normal modem to send pager messages, create a new
Pager object in the following way:
Pager : TPager; ' Declaration of the wrapper class
objPager : IPager; ' Declaration of the interface class
objPager := Pager.DefaultInterface; ' Creation new instance of the object
If you want to use WAP Push or WAP Bookmark messages, you can create a new
WapPush or WapBookmark object in the following way:
WapPush : TWapPush; ' Declaration of the wrapper class
objWapPush : IWapPush; ' Declaration of the interface class
objWapPush := WapPush.DefaultInterface; ' Creation new instance of the object
WapBookmark : TWapBookmark; ' Declaration of the wrapper class
objWapBookmark : IWapBookmark; ' Declaration of the interface class
objWapBookmark := WapBookmark.DefaultInterface; ' Creation new instance of the object
If you want to use Ringtone messages or Picture messages, you can create a new
Ringtone or PictureMessage object in the following way:
Ringtone : TRingtone; ' Declaration of the wrapper class
objRingtone : IRingtone; ' Declaration of the interface class
objRingtone:= Ringtone.DefaultInterface; ' Creation new instance of the object
PictureMessage : TPictureMessage; ' Declaration of the wrapper class
objPictureMessage : IPictureMessage; ' Declaration of the interface class
objPictureMessage:= PictureMessage.DefaultInterface; ' Creation new instance of the object
If you want to use MMS notification messages, you can create a new
MMSNotification object in the following way:
MMSNotification : TMMSNotification; ' Declaration of the wrapper class
objNotification : INotification; ' Declaration of the interface class
objNotification:= MMSNotification.DefaultInterface; ' Creation new instance of the object
After these declarations and creation of the object(s), you can use the
objects in your Visual Basic .NET projects.
Simply create the objects in the following way:
<html>
<body>
Version:
<script language=vbscript runat=server>
Set objConstants = CreateObject( "ActiveXperts.SmsConstants" )
Set objGsmOut = CreateObject( "ActiveXperts.GsmOut" )
Set objGsmIn = CreateObject( "ActiveXperts.GsmIn" )
Set objHttpPost = CreateObject( "ActiveXperts.HttpPost" )
Set objSmpp = CreateObject( "ActiveXperts.Smpp" )
Set objDialUp = CreateObject( "ActiveXperts.DialUp" )
Set objSnpp = CreateObject( "ActiveXperts.Snpp" )
Set objPager = CreateObject( "ActiveXperts.Pager" )
Set objWapPush = CreateObject( "ActiveXperts.WapPush" )
Set objWapBookmark = CreateObject( "ActiveXperts.WapBookmark" )
Set objRingtone = CreateObject( "ActiveXperts.Ringtone" )
Set objPictureMessage = CreateObject( "ActiveXperts.PictureMessage" )
Set objNotification = CreateObject( "ActiveXperts.MMSNotification" )
....
Response.Write objGsmOut.Version
....
</script>
</body>
</html>