Question

Locked

messaging in 2003

By tarunveer_k ·
how to send a message to client user on a network, using [wscript echo]


and can i know the syntax of logon script in 2003 server plz........... its
urgent

This conversation is currently closed to new comments.

2 total posts (Page 1 of 1)  
| Thread display: Collapse - | Expand +

All Answers

Collapse -

Net Send

by LarryD4 In reply to messaging in 2003

Will probably have to use the command
"net send" within the script to send the message.

Collapse -

SMS with VBScript

by Tech_X In reply to messaging in 2003

Using The SMS and MMS Toolkit SMPP object with VBScript

The SMS and MMS Toolkit is a software development kit (SDK) to enhance an application or script with SMS, MMS and Pager functionality.
An SMS messages can be sent using a GSM/GPRS modem, an SMPP provider, an HTTP compliant SMS provider or using a standard dialup or fixed-line SMS modem.
An MMS messages can be sent via a GSM/GPRS modem (MM1), an SMTP server (MM4) or an XML/SOAP compliant provider (MM7).

SMS features:

* Send and receive numeric- and alphanumeric text SMS messages
* Verify delivery of outgoing SMS messages
* Support for multimedia SMS messages, including ringtones, pictures and logo's
* Support for WAP Push, WAP Bookmarks, vCards, voicemail/e-mail/fax/MMS indications
* Support for Unicode, to support foreign languages like Chinese, Turkisch, etc.
* Support for multi-part messages, to allow messages longer than 160 characters
* Support for GSM modems, GSM phones, SMS/HTTP providers, SMPP (Short Message Peer to Peer) providers, TAP/XIO and UCP dial-in SMSC providers
* Support Multi-threading environments. The component is thread-safe, which means it can be used in a multi-threaded environment
* Samples included for various development platforms: MS Visual Basic, MS Visual Basic .NET, MS Visual C++, MS Visual Studio C# .NET, ASP, ASP .NET, Borland Delphi, Borland C++ Builder, ColdFusion and more

MMS features:

* Support for many multimedia formats incl.: JPG, GIF, PNG, BMP, WBMP, TIF, WAV, MP3, MIDI, AC3, GP3, AVI, MPG, MP4, VCARD, VCALENDAR, JAR and more
* Support for MM1 (MMS over WAP), MM4 (MMS over SMTP) and MM7 (MMS over HTML/SOAP)

Pager features:

* Send alpha-numeric Pager messages through SNPP


This document describes how the SMS and MMS Toolkit can be integrated into VBScript projects.


Step 1: Download and install The SMS and MMS Toolkit

Download the SMS and MMS Toolkit from the ActiveXperts Download Site and start the installation. The installation guides you through the installation process.


Step 2: Create a new script

Create a new script using your favorite editor. You can simply use notepad. However, a VBScript editor is recommended, so you can browse through objects, objects properties and object functions.

You're now able to write a more advanced VBScript script to send/receive SMS using SMS and MMS Toolkit.


Step 3: Create the SMS and MMS Toolkit objects in VBScript

Create a new VBScript file called DEMO.VBS. It is recommended to insert the following line on top of your code:

Option Explicit

This statement requires that all variable names be defined (with the Dim statement), to avoid simple typos that can cause incredible headaches and long debugging sessions for something that should have never happened.

Now, declare the SMS and MMS Toolkit SMPP objects:

Dim objSmppProtocol
Dim objSmsMessage
Dim objSmsConstants

Create the objects like this:

Set objSmppProtocol = CreateObject( "ActiveXperts.SmsProtocolSmpp" )
Set objSmsMessage = CreateObject( "ActiveXperts.SmsMessage" )
Set objSmsConstants = CreateObject( "ActiveXperts.SmsConstants" )

Now, add the following lines to the file to have your fist SMS and MMS Toolkit VBScript program:

WScript.Echo "Version: " & objSmppProtocol.Version
WScript.Echo "Expiration Date: " & objSmppProtocol.ExpirationDate


Step 4: Send and/or receive SMS messages

You can now send and/or receive SMS messages.

The following VBScript code shows how to connect to a SMPP provider and send a SMS message:

Option Explicit

Dim objSmppProtocol, objSmsMessage, objSmsConstants
Dim i
Dim strReference

Set objSmppProtocol = CreateObject ( "ActiveXperts.SmsProtocolSmpp" )
Set objSmsMessage = CreateObject ( "ActiveXperts.SmsMessage" )
Set objSmsConstants = CreateObject ( "ActiveXperts.SmsConstants" )

Wscript.Echo "ActiveXperts SMS and MMS Toolkit " & objSmppProtocol.Version & " demo."
Wscript.Echo "Expiration date: " & objSmppProtocol.ExpirationDate & vbCrLf

' Set server properties

objSmppProtocol.Server = "smpp.activexperts-labs.com"
objSmppProtocol.ServerPort = 2775
objSmppProtocol.SystemID = "AX008"
objSmppProtocol.SystemPassword = "812056"
objSmppProtocol.SystemType = "SMPP"
objSmppProtocol.ServerTimeout = 10000
objSmppProtocol.SystemMode = objSmsConstants.asSMPPMODE_TRANSMITTER

' Set Logfile

objSmppProtocol.LogFile = "c:\SmppLog_vbs.txt"

' Connect SMPP provider

objSmppProtocol.Connect

If objSmppProtocol.IsConnected = True Then

WScript.Echo "Connected to provider"

Do
objSmsMessage.Recipient = inputbox( "Enter the recipients phone number." & vbCrLf & "( Use international number format. )", "Enter Recipient Number" )
Loop until objSmsMessage.Recipient <> "" ' Set recipient

objSmsMessage.Data = "ActiveXperts Test Message" ' Set message text
objSmsMessage.Format = objSmsConstants.asMESSAGEFORMAT_TEXT

WScript.Echo "Sending the message..."

strReference = objSmppProtocol.Send ( objSmsMessage ) ' Send the message

End If

' Show the result

If( objSmppProtocol.LastError <> 0 ) Then
WScript.Echo "Failed to send message, error: " & objSmppProtocol.LastError & " (" & objSmppProtocol.GetErrorDescription( objSmppProtocol.LastError ) & ")"
WScript.Echo "To view the trace file, open " & objSmppProtocol.LogFile & "."
Else
WScript.Echo "Message successfully submitted" & vbCrLf & vbCrLf & "Message ID : " & strReference
End If

objSmppProtocol.Disconnect ' Disconnect

WScript.Echo "Disconnected."


More at http://www.activexperts.com/xmstoolkit/howto/smpp/vbscript/

Back to Networks Forum
2 total posts (Page 1 of 1)  

Related Discussions

Related Forums