Вызов VBS из другого скрипта с передачей текстовой переменной — как?

Question

[Дмитрий]

Есть у меня vbs-скрипт, выполняемый на ПК (Windows) который отравляет сообщение в Телеграм.
Сам по себе он работает, всё нормально.

Но мне надо отправлять сообщения из СКАДА, с разным текстом.
Как понимаю, мне надо вызвать из скрипта в СКАДА скрипт на ПК, с входным текстовым параметром.

Вот скрипт в СКАДА:

Dim obj
  Dim txtMsg
  txtMsg = "Example"
  Set obj = CreateObject("Wscript.Shell")
  obj.Run "D:\telegaMSG1.vbs txtMsg"

Вот на ПК:

sAPI_ID = "604"

sChat_ID = "-100"


sMSG = Wscript.Arguments.Item(0)

sUrl = "https://api.telegram.org/bot" & sAPI_ID & "/sendMessage"

sRequest = "text=" & sMSG & "&chat_id=" & sChat_ID

HTTPPost sUrl, sRequest

Function HTTPPost(sUrl, sRequest)
set oHTTP = CreateObject("Microsoft.XMLHTTP")
oHTTP.open "POST", sUrl,false
oHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
oHTTP.setRequestHeader "Content-Length", Len(sRequest)
oHTTP.send sRequest
HTTPPost = oHTTP.responseText

End Function

Но только отправляется не "Example", а имя переменной в СКАДА "txtMsg"

Подскажите, где ошибка, что исправить?

Answer 1

[rPman]

у тебя следующие варианты:
- передать в параметрах, заключив текст в ковычки и проследив чтобы этих ковычек не было в тексте (так же не было миволов новой строки и еще кучи других, скорее всего управляющих, других кодировок и т.п.)
- сериализовать сообщение (преобразовать в другую строку) так чтобы в нем не было 'опасных' символов, к примеру самый простой это hex encoding
Есть еще лимит на длину строки, но там на выбор 256, 4096, 16к,... смотря как WScript.Shell это реализует
- НАИЛУЧШИЙ, сохранить строку в файле, передать его имя в качестве аргументов и прочитать его уже в vbs

p.s. Wscript.Arguments.Item(0) не 0 а 1, нулевой элемент имя запускаемой программы/скрипта
моя ошибка

Comments

[wisgest]

p.s. Wscript.Arguments.Item(0) не 0 а 1, нулевой элемент имя запускаемой программы/скрипта

Нет, похоже, путаете с %0 в командных файлах.(Зачем тогда WScript.ScriptName, WScript.ScriptFullName?)

[rPman]

да я не прав, перепроверил в виртуалке, действительно
все у майкрософта 'не как у людей' ;)

[Дмитрий]

Через файл это наихудший вариант, для меня, я бы вообще хотел от сторонних файлов уйти, но пока не могу победить WinCC.
Передавать как текст тоже не вариант, так как сообщений будет много и разных.
Нужно через текстовую переменную.
Вот эта сериализация как может выглядеть?

[rPman]

ты пробовал в ковычках свой текст передать то?у тебя в нем есть ковычки и символы новых строк? замени их на что-нибудь уникальное, а на принимающей стороне замени обратно.

самая простая кодировка это hex encoding, каждый символ заменяется на пару символов из [a-z0-9], в икле посимвольно с помощью hex(asc(char)), гуглятся примеры

сложно

помимо файлов есть разные способы, их всех объединяет один термин inter-process communication
К примеру можно создать пайп (принимающий создает, отправляющий открывает его на запись и пишет). Можно создать сетевое подключение, открыв сокет в том же порядке.

[Дмитрий]

Так я пример привёл, как присвоил переменной текст и пытаюсь передать его.
Наверное неправильно.

[rPman]

obj.Run "D:\telegaMSG1.vbs txtMsg"нет тут ковычек, добавь хотя бы '

[Дмитрий]

Тогда перешлётся сообщение с текстом "txtMsg", так ведь?
А мне надо "Example"

[rPman]

мда, конкатенацию строк в vbs ты не знаешь, мое последнее сообщение тут
bing chatgpt:

исправь код на visual basic script таким образом чтобы в качестве аргумента вызываемой команды подставлялось значение txtMsg, учитываем что там могут быть пробелы: obj.Run "D:\telegaMSG1.vbs txtMsg"

Для того чтобы в качестве аргумента вызываемой команды подставлялось значение txtMsg, можно использовать следующий код на Visual Basic Script:

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
txtMsg = "Hello World"
objShell.Run "D:\telegaMSG1.vbs " & txtMsg

В данном случае в переменную txtMsg записывается значение “Hello World”, которое затем подставляется в качестве аргумента вызываемой команды. Если значение txtMsg содержит пробелы, то его необходимо заключить в кавычки.

добавь заключение в ковычки

Для того чтобы заключить значение переменной в кавычки на Visual Basic Script, необходимо использовать двойные кавычки. Если значение переменной содержит двойные кавычки, то их необходимо экранировать обратным слешем. Вот пример кода с экранированными кавычками:

Dim objShell
Set objShell = WScript.CreateObject("WScript.Shell")
txtMsg = "Hello World"
txtMsg = Replace(txtMsg, """", "\""")
objShell.Run "D:\telegaMSG1.vbs """ & txtMsg & """"

В данном случае в переменную txtMsg записывается значение "Hello World", которое затем подставляется в качестве аргумента вызываемой команды. Если значение txtMsg содержит пробелы или двойные кавычки, то его необходимо заключить в двойные кавычки и экранировать двойные кавычки обратным слешем.