Function sendMessage(ByVal login, ByVal password, ByVal typeSms, ByVal sender, ByVal text, ByVal vCard, ByVal abonents)
  Set xmlDoc = CreateObject("Microsoft.XMLDOM")  
  
  Set objRoot = xmlDoc.createElement("request")  
  xmlDoc.appendChild objRoot  

  Set objMessage = xmlDoc.createElement("message") 
  objMessage.setAttribute "type", typeSms
  objRoot.appendChild objMessage

  Set objSender = xmlDoc.createElement("sender")  
  objSender.Text = sender
  objMessage.appendChild objSender 

  Set objText = xmlDoc.createElement("text")  
  objText.Text = text
  objMessage.appendChild objText

  If StrComp(typeSms, "vcard") = 0 Then
  	Set objUrl = xmlDoc.createElement("url")  
    objUrl.Text = vCard(0)
    objMessage.appendChild objUrl
    
    Set objName = xmlDoc.createElement("name")  
    objName.Text = vCard(1)
    objMessage.appendChild objName

    Set objPhone = xmlDoc.createElement("phone")  
    objPhone.setAttribute "cell", vCard(2)
	objPhone.setAttribute "work", vCard(3)
	objPhone.setAttribute "fax", vCard(4)
    objMessage.appendChild objPhone

	Set objEmail = xmlDoc.createElement("email")  
    objEmail.Text = vCard(5)
    objMessage.appendChild objEmail

	Set objPosition = xmlDoc.createElement("position")  
    objPosition.Text = vCard(6)
    objMessage.appendChild objPosition

	Set objOrg = xmlDoc.createElement("organization")  
    objOrg.Text = vCard(7)
    objMessage.appendChild objOrg

	Set objAddress = xmlDoc.createElement("address")  
    objAddress.setAttribute "post_office_box", vCard(8)
	objAddress.setAttribute "street", vCard(9)
	objAddress.setAttribute "city", vCard(10)
	objAddress.setAttribute "region", vCard(11)
	objAddress.setAttribute "postal_code", vCard(12)
	objAddress.setAttribute "country", vCard(13)
    objMessage.appendChild objAddress

	Set objAdd = xmlDoc.createElement("additional")  
    objAdd.Text = vCard(14)
    objMessage.appendChild objAdd
  End If

  For each a in abonents
	Set objAbonent = xmlDoc.createElement("abonent")  
    objAbonent.setAttribute "phone", a("phone")
	objAbonent.setAttribute "number_sms", abonents.IndexOf(a, 0) + 1
	objAbonent.setAttribute "client_id_sms", abonents.IndexOf(a, 0) + CLng(DateDiff("s", "01/01/1970 00:00:00", Now))
	objAbonent.setAttribute "time_send", a("time_send")
	objAbonent.setAttribute "validity_period", a("validity_period")
    objMessage.appendChild objAbonent
  Next

  Set objSecurity = xmlDoc.createElement("security") 
  objRoot.appendChild objSecurity 
  
  Set objLogin = xmlDoc.createElement("login")  
  objLogin.setAttribute "value", login
  objSecurity.appendChild objLogin  

  Set objPassword = xmlDoc.createElement("password")  
  objPassword.setAttribute "value", password
  objSecurity.appendChild objPassword  

  Set objIntro = xmlDoc.createProcessingInstruction("xml","version='1.0' encoding='utf-8'")  
  xmlDoc.insertBefore objIntro, xmlDoc.childNodes(0)  

  Set http = CreateObject("MSXML2.XMLHTTP")
  
  'Open URL As POST request
  http.Open "POST", "http://xml.sms16.ru/xml/", False

  'Set Content-Type header
  http.setRequestHeader "Content-Type", "text/xml"
  http.setRequestHeader "charset", "utf-8"
  
  'Send the form data To URL As POST binary request
  http.send xmlDoc
  
  'Get a result of the script which has received upload
  'MsgBox http.responseText

  xmlDoc.loadXml(http.responseText)
  Set objInfo = xmlDoc.getElementsByTagName("information")
  If objInfo.length > 0 then
    Set infos = CreateObject("Scripting.Dictionary")
	For each i in objInfo
	  infos.Add i.getAttribute("id_sms"), i.Text
	Next
	Set sendMessage = infos
  Else
    Set sendMessage = Nothing
  End If
End Function

Include("SmsApi.vbs")
If WScript.Arguments.Count <> 7 Then
	MsgBox "Необходимо ввести 7 параметров: логин и пароль пользователя, тип 

сообщения, имя отправителя, текст, данные визитной карты и список id сообщений"
	WScript.quit
End If
Dim abonentNumbers, vCard
abonentNumbers = Split(WScript.Arguments.Item(6), ", ")
Set abonents = CreateObject("System.Collections.ArrayList")
for each a in abonentNumbers
	Set abonent = CreateObject("Scripting.Dictionary")
	abonent("phone") = a
	abonent("time_send") = ""
	abonent("validity_period") = ""
	abonents.Add abonent
next
vCard = Split(WScript.Arguments.Item(5), ", ")
Set value = sendMessage(WScript.Arguments.Item(0), WScript.Arguments.Item(1), 

WScript.Arguments.Item(2), _
WScript.Arguments.Item(3), WScript.Arguments.Item(4), vCard, abonents)
Dim result
result = ""
For each i in value.Keys 
    result = result & "id смс: " & i & ", статус:" & value(i) & vbCrLf	
Next
MsgBox result

Sub Include (strFile)
	Set objFSO = CreateObject("Scripting.FileSystemObject")
	Set objTextFile = objFSO.OpenTextFile(strFile, 1)
	ExecuteGlobal objTextFile.ReadAll
	objTextFile.Close
	Set objFSO = Nothing
	Set objTextFile = Nothing
End Sub