SOAP запрос 1С (заполнение реквизитов юрлиц)

oHTTP.SetRequestHeader "Content-Type", "text/xml;charset=ISO-8859-1"

Скрипт = "Function  Execute
	         |Dim sEndPoint
             |sEndPoint="""+ТочкаПодключения+"""
			 |Dim sNameSpace
			 |sNameSpace = """+ПространствоИмен+"""
			 |Dim sProcedure
             |sProcedure="""+Процедура_+"""
			 |Dim oHTTP 
             |set oHTTP = CreateObject(""WinHttp.WinHttpRequest.5.1"")
             |oHTTP.Open ""POST"", sEndPoint, false
			 |oHTTP.SetTimeouts 10000,90000, 3000000, 3000000
		     |oHTTP.SetCredentials """+ЛогинИТС+""","""+ПарольИТС+""",HTTPREQUEST_SETCREDENTIALS_FOR_PROXY
			 |sRequest = """+Запрос+"""	
				 |  
				 |oHTTP.SetRequestHeader ""Content-Type"", ""text/xml;charset=UTF-8""
				 |
				 |On Error Resume Next
				 |
				 |oHTTP.Send sRequest
				 |
				 |Dim fso
	             |set fso = CreateObject(""Scripting.FileSystemObject"")
				 |
				 |If Err.Number <> 0 Then
				 |    Set tf = fso.CreateTextFile("""+ВремФайлНаДиске+""", true)
				 |    tf.WriteLine(""<err><Status>1000</Status><Text>""+ Trim(Err.description) + ""</Text></err>"")
		    	 |    tf.Close()
				 |    Exit Function
				 |    On Error Goto 0 
				 |End If
				 |    On Error Goto 0
				 |
				 |
	             |Execute=oHTTP.ResponseText
				 |if oHTTP.status = 200 Then 
	             |  if oHTTP.ResponseText = """" then
	             |      Execute = ""Empty Response from Server"" 
	             |  else
	             |      Execute = oHTTP.ResponseText
	             |  end if
	             |else
				 |  Execute = ""<err><Status>""& oHTTP.status &""</Status><Text>http err  ""& oHTTP.status &"" : ""& oHTTP.StatusText & ""</Text></err>""
				 |end if
				 |End Function
				 |
				 |
				 |Execute
				 |
				 |
				 |Dim fso
				 |set fso = CreateObject(""Scripting.FileSystemObject"")
				 |Dim tf
				 |set tf = fso.CreateTextFile("""+ВремФайлНаДиске+""", true)
				 |Data = Replace(Execute,""<?xml version=""""1.0"""" encoding=""""utf-8""""?>"",""<?xml version=""""1.0"""" encoding=""""windows-1251""""?>"")
	             |tf.WriteLine(Data)
				 |tf.WriteBlankLines(3) 
				 |tf.Close()
				 |";

VBS = СоздатьОбъект("Текст");
	VBS.ДобавитьСтроку(Скрипт);
	VBS.Записать(ВремФайлНаДиске+".vbs");
	         
	Сообщить("Запуск...");
	
	Попытка
		WshShell = СоздатьОбъект("WScript.Shell");
		WshShell.Run("%comspec% /c"+ВремФайлНаДиске+".vbs",0,1);
 	Исключение
		СообщитьОшибка("ОШИБКА! : "+ОписаниеОшибки(),,0);
  	    ФС.УдалитьФайл(ВремФайлНаДиске+".vbs");
		Возврат "";
	КонецПопытки;	
	
	ФС.ПереименоватьФайл(ВремФайлНаДиске,ВремФайлНаДиске+".txt",1);
	
	Сообщить("->"+ВремФайлНаДиске+".txt");
	
	Сообщить("Парсим ответ...");
	
	Если СтрДлина(ДанныеДляОтправки) = 10 Тогда
		ДанныеКлиента = ДанныеЮридическогоЛица(ВремФайлНаДиске+".txt");
	Иначе
		ДанныеКлиента = ДанныеФизическогоЛица(ВремФайлНаДиске+".txt");
	КонецЕсли;