'Sends an SMS message using the SNPP protocol by misusing
'the WinHttp object that should be a part of Windows 2000 
'and newer. Although the WinHttp object only understands 
'the HTTP protocol, the SNPP server will throw harmless 
'errors on all the HTTP headers. On the other hand, it 
'will recocgnize the POSTed data as valid SNPP commands!
'Because the SNPP server won't send back a valid HTTP 
'response, the WinHttp object is going to throw it's own 
'set of errors. Luckily, these are easily ignored using 
'the "On Error Resume Next" command. Of course, with all 
'these ignored errors, this is strictly a one-way trick, 
'with no confirmation that the message was sent...

Dim web, strMessage, strPtn, strServer

strServer = InputBox("Enter the  ""SNPP Address"" for the carrier (see http://www.notepager.com/snpp.htm for a list)")
If Instr(strServer, ".") = 0 Then Wscript.Quit

strPtn = InputBox("Enter 10-digit PTN (just numbers -- no spaces, dashes, or parentheses)")
If Len(strPtn) <> 10 Then WScript.Quit

strMessage = InputBox("Enter short message (less than 140 characters long)")
If Len(strMessage) > 140 Or Len(strMessage) < 1 Then WScript.Quit

On Error Resume Next
Set web = CreateObject("WinHttp.WinHttpRequest.5.1")
web.Open "POST", "http://" & strServer & ":444", False
web.Send "PAGE " & strPtn & vbCrLf & "MESS " & strMessage & vbCrLf & "SEND" & vbCrLf & "QUIT" & vbCrLf