Есть у меня такаю функция:
// Возвращает Истина, если пингуется IP-адрес
// v8: Как средствами 1C проверить ping (Ping monitor)?
Функция PingIP_Адреса(IP_Адрес = "", ТекстСообщения = "") Экспорт
    Если ПустаяСтрока(IP_Адрес) Тогда
        Возврат Ложь;
    ИначеЕсли IP_Адрес = НРег(СокрЛП(ИмяКомпьютера())) Тогда
        Возврат Истина;
    КонецЕсли;
    objShell = Новый COMОбъект("WScript.Shell");
    objScriptExec = objShell.Exec("ping.exe -n 1 " + IP_Адрес);
    strPingResults = НРег(objScriptExec.StdOut.ReadAll());
    Результат = Найти(strPingResults, "ttl=") > 0;
    ТекстСообщения = ?(Результат, ТекстСообщения, ?(СтрЧислоВхождений(IP_Адрес, ".") >= 3, "IP-адрес", "Компьютер") + ": '" + ВРег(IP_Адрес) + "' - недоступен!");
    IP_Адрес = ?(СтрЧислоВхождений(IP_Адрес, ".") >= 3, IP_Адрес, ?(Найти(strPingResults, "[") = 0, "", Сред(strPingResults, Найти(strPingResults, "[") + 1, Найти(strPingResults, "]") - Найти(strPingResults, "[") - 1)));
    Возврат Результат;
КонецФункции // PingIP_Адреса()

На входе ИмяКомпьютера, если компьютер доступен в сети (подключился не удаленно), возвращает Истина, преобразует ИмяКомпьютера в его IP_Адрес. Много лет работала, а сегодня strPingResults выдает: џаё їа®ўґаєґ бўп§ё ­ґ г¤ «®бм ®ў­ аг¦ёвм 㧴« mv-win10.
џа®ўґамвґ ё¬п 㧫  ё ї®ўв®аёвґ ї®їлвєг. - даже цифр нет!?

(63) Попробуйте
> Адрес = objStatus.ProtocolAddress;
вместо
> Адрес = objStatus.ProtocolAddressResolved;

(64) Получилось, спс!

С WMI сталкиваюсь впервые, случись что, поправить не смогу...
(56) В твоем варианте: Shell.Run("ping -n 1 -w 400 " + ИмяКомпьютера, 0, Истина), если компьютер доступен, результат 0. Возможно получить его IP-адрес без мигания черного окна?

Вариант, как избежать консольного окна, вам дали еще в (39). Но как бы очевидно, что делать это вы не будете.
То есть вы и с запуском процесса не особо хотите разбираться.
Ну и какая разница, в чем вы не разбираетесь? :)))

(67) Пытаюсь разобраться, возможно ли получить IP-адрес? В постах (56) не нашел ответа.

(68) Если через вызов программы - тогда только разбирая вывод пинга.
что довольно муторно и чревато ошибками, если вывод по какой-то причине поменяется - в этом случае разборщик может ошибиться.
Я бы не стал этого делать.

(69) > Если через вызов программы - тогда только разбирая вывод пинга.
В (0) уже сделано: Сред(strPingResults, Найти(strPingResults, "[") + 1, Найти(strPingResults, "]") - Найти(strPingResults, "[") - 1)), только как strPingResults получить? В (0) получаю objScriptExec.StdOut.ReadAll().

(70) Shell.Run, насколько я знаю, не позволяет перенаправлять стандартный ввод-вывод, соответственно, с его помощью вывод программы вы не заберете для парсинга.
Для этого годится только Shell.Exec.
Соответственно, выходит что нужно делать вариант (25), но, чтобы избежать вывода консольного окна, придется завернуть все это в VBS-скрипт по совету из (39).

(71) Как завернуть все это (25) в VBS-скрипт?

(72) Через MSScriptControl.ScriptControl, например, можно попробовать. Но с этим будут проблемы на 64-битной 1С.
Можно скрипт сохранить как временный файл и натравить на него wscript.exe, правда, я не исключаю что тут опять вылезет окно, и кроме того, непонятно как отдать результат.
В общем, хрен его знает. Я точно не буду заниматься подобными извращениями, потому что есть рабочий вариант (60), простой и понятный.

(72) Вот vbs обертка для произвольного батника

    Dim shell,command
    ScriptDir = WScript.ScriptFullName
    ScriptDir = Left(ScriptDir, Len(ScriptDir) - Len(WScript.ScriptName))
    command = "cmd.exe /c " & ScriptDir & "ping_test.cmd"
    Set shell = CreateObject("WScript.Shell")
    shell.Run command,0

"ping_test.cmd" заменить на имя вашего батника, лежащего рядом с оберткой.

(74) Куда писать эту vbs-обертку, 1С поймет это? Батник отдельным файлом должен лежать? Какой он должен быть, чтобы формировал ответ на команду: "ping.exe -n 1 " + ИмяКомпьютера, что-то типа (9) или (10)?

Микхаил...

(75) Если хочешь парсить вывод, то да батник отдельным файлом, в нем две строки, chcp и ping.

А вообще, если посмотреть шире, на удаленном хосте какой сервис интересует? Если HTTP, то по HTTP и пингуй. В 1С все есть, не надо возиться с батниками.

(51) > чем (34) не устраивает? три строки кода
Да, и черное окно не мелькает, но только определяет доступность компьютера. А IP-адрес - нет. Думал не сложно добавить, а оказалось...

(78) В Альфа-Авто 4.1 вроде нет HTTP сервиса. Функцию PingIP_Адреса() писал с появлением онлайн-кассы общей в использовании. Потом ее использовал еще где-то.

(80) Ты не понял наверное. Я спрашиваю, ты сейчас конкретный хост с какой целью мониторить хочешь? Чтобы потом использовать какой-то сервис на этом хосте. Какой?

(81) Ничего не хочу мониторить. В последний раз смотрел ее отладчиком при подключении удаленного пользователя, увидел абракадабру, засомневался...

(82) А, понятно. Может быть она и "много лет" неправильно работала...

доменную авторизацию он мониторит и попутно видимо еще какая история с входом в домен и доступностью машин, может имена компов и их адреса в актуальном состоянии поддерживать хочет, в целом админская хрень какая то

(84) У удаленных пользователей бывают проблемы с онлайн-кассой, поэтому в ЖР пишется как он зашел, с какого компьютера. К функции (0) не было нареканий, кроме мелькания черного окна.

+ (85) кроме мелькания черного окна и албанского языка

(86) Абракадабра не мешает, фрагмент "ttl=" не искажается, просто засомневался при отладке.

В теме v8: Ошибка выполнения команды WshShell.Run приводится такой фрагмент:
WshShell = новый ComОбъект("WScript.Shell");
RetCode = WshShell.Run("команда",0,Истина).StdOut;
Сообщить(RetCode);
У меня ошибку дает: Значение не является значением объектного типа (StdOut)?

(88) Нет там .StdOut. Не путайте с Exec. См. (71), я там об этом писал уже.

(89) Да, видимо там ошибочно так написано.

> Скрипты лучше выполнять непосредственно движком, без всяких файлов. (Запуск "*.vbs" из 7.7... проблема)
Еще бы таких примеров, чтобы понять как пишутся VBS-скрипты без bat-файлов...

(91) лучше-то лучше. Но нужно иметь в виду, что эта штука (ScriptControl) есть только x32.
Соответственно, если планируется переходить или использовать x64 клиентов или выполнять на сервере, то могут быть траблы.

вообще, конечно, раздуть такую хрень на сто постов из-за того чтобы комп попинать/адрес отрезольвить - это только 1Сники могут :) Там где нормальные программисты бы все давно сделали встроенными библиотеками, тут на полном серьезе двое суток обсуждается как ping.exe запустить :))))

(92) Альфа-Авто x64 (не УФ), но клиентская часть 32-разрядная, иначе торговое оборудование не работает.
(93) VBS-скриптами и bat-файлами почти не пользуюсь, не разбираюсь... время есть, пытаюсь разобраться.

(94) ну если на 32-битность плевать, то можно попытаться сделать как написано в 6-м посте по ссылке в (91).

(93) Так сделали уже http://catalog.mista.ru/public/975147/

(96) кстати, (0) это тоже могло бы быть интересно, тем более что компоненту отдают бесплатно.

(97) Посмотреть бы ее, не скачивается...? А у тебя скачивается? Если Да, то перешли мне на [email protected]

(98) В 3м сообщении ссылка на обработку, вк`шки внутри.

Имя компьютера в адрес это же DNS или WINS
причем тут пинг?
nslookup может быть?

если имя компьютера в сети windowd,то вообще локальный кеш имен.

(99) Нашел, Спс!

(100) ему нужно все в куче - по имени компа отрезольвить IP и проверить доступность этого IP.
В принципе, штатный пинг резольвит IP перед проверкой, поэтому такое пожелание ничему не противоречит.

(103) В общем случае это сильно разные задачи. FQDN и IP связаны как "многие ко многим". И это если еще не лезть в ipv4/ipv6, разные localhostы и отличия wins от dns.

Получит какой-нибудь [2a02:6b8:a::a] и общий сбой сети и прибежит опять вопросы задавать...

(96) Вставил в свою функцию:
    //Ping -- произвольное имя, под которым мы хотим видеть компоненту в 1С
    подключено = ПодключитьВнешнююКомпоненту("ВнешняяОбработка.ТестКомпоненты.Макет.Компонента32", "Ping", ТипВнешнейКомпоненты.Native);
    //пытаемся подключить 32бита
    Если Не подключено Тогда
        подключено = ПодключитьВнешнююКомпоненту("ВнешняяОбработка.ТестКомпоненты.Макет.Компонента", "Ping", ТипВнешнейКомпоненты.Native);
    КонецЕсли;
    темпл = Новый("AddIn.Ping.smiPingNativeExtension");
    темпл.Address = IP_Адрес;
    темпл.PingCount = 5;
    темпл.Пинг();
    Если Не темпл.ЕстьОшибка Тогда
        IP_Адрес = темпл.Адрес;
        Возврат Истина;
    КонецЕсли;
    ТекстСообщения = ?(СтрЧислоВхождений(IP_Адрес, ".") >= 3, "IP-адрес", "Компьютер") + ": '" + ВРег(IP_Адрес) + "' - недоступен!";
    Возврат Ложь;
Получил ошибку: Тип не определен (AddIn.Ping.smiPingNativeExtension)
    темпл = Новый("AddIn.Ping.smiPingNativeExtension");
Как в 1м сообщении ссылки на обработку, вк`шки внутри. А в 4м он же сообщает: Проверил, обработка во вложении работает. Почему?

+ В УФ (КА2 на 8.3.16.1359) работает, без ошибок! А на обычных формах в 8.3.10.2466 - нет. От платформы зависит?

+ Переписал обработку на обычные формы, запускаю на 8.3.16.1359, и та же ошибка: Тип не определен (AddIn.Ping.smiPingNativeExtension)!?
Но вернемся к вопросу (72): Как завернуть код (0) в VBS-скрипт?

+ А нет, макеты не перенес, перенес: работает! А как их мне перенести в свою конфигурацию? Ладно, не надо, все равно не буду ее использовать... Сейчас через WMI (29) работает (непонятно как, случись что, поправить не смогу...). Хочется понять: Как завернуть код (0) в VBS-скрипт?

(104) ну это в общем. В простейшей локалке обычно 1:1. Если ему NSLookup вернет несколько, он один хрен возьмет первый попавшийся.

В (74) дали vbs-обертку для произвольного батника. Не понял: куда ее писать, прямо в модули 1С, 1С поймет это? Или vbs-обертку надо писать отдельно, в виде батника? И как ее запускать из 1С?
(95) Допустим не хочу писать батник (не знаю что писать, кроме: "ping.exe -n 1 " + ИмяКомпьютера), и написал прямо в модуле 1С как Запуск "*.vbs" из 7.7... проблема. Как мне запустить эту vbs-обертку в 1С?

(96) "Сырые сокеты", права админа, ну нафиг.

(110)

   Скрипт = Новый COMОбъект ("MSScriptControl.ScriptControl");
  
   Скрипт.Language = "vbscript";
   КодНаБейсике =
  
          "Function Ping (Name)
         |  Set Cmd = CreateObject(""WScript.Shell"")
         |  Set WshExec = Cmd.Exec (""cmd.exe /q /k echo off"")
         |  WshExec.StdIn.WriteLine ""chcp 1252>nul""
         |  WshExec.StdIn.WriteLine ""ping -n 1 "" & Name & "" ""
         |  WshExec.StdIn.WriteLine ""exit""
         |    Ping = WshExec.StdOut.ReadAll()
         |End Function";
  
  
   Скрипт.AddCode(КодНаБейсике);

   СтрокаДляРазбора = Скрипт.Run ("Ping", "srv-02");
  
   Сообщить (СтрокаДляРазбора);


Толку только от этого чуть. Окно никуда не девается.

так что все же я бы на вашем месте перестал бы сношать голову, а пользовался бы WMI

(111) А теперь прочти внимательнее что автор ВК написал. Ты же все наоборот прочитал ;)

(114) Ага, прочел внимательно, спасибо.

Автору ВК советую пройти курс "Как ясно выражать свои мысли в письменной форме".

(111) У меня не УФ, см. (108).
(112) Черное окно на: СтрокаДляРазбора = Скрипт.Run ("Ping", "srv-02"); А почему: Скрипт = Новый COMОбъект ("MSScriptControl.ScriptControl"); а не WshShell = новый ComОбъект("WScript.Shell"); Тогда наверное можно: WshShell.Run("СтрокаКоманды",0,Истина); без черного окна?

(116) Нет, тут (112) WshShell = новый ComОбъект("WScript.Shell"); не работает. Тогда VBS скрипты, написанные в 1С, работают всегда с миганием черного окна?
(39) > Можно убрать, если обернуть в VBS скрипт. То есть схема такая: через WScript.Shell запускаешь VBS скрипт, в нем запускаешь cmd и ставишь признак скрыть окно, в cmd запускаешь chcp + ping.
Только при выполнении батников или cmd можно скрыть мигание черного окна?

А у меня это окошко синее...

(116) ну раз можно - так сделайте.

(119) Два VBS скрипта?

(120) Вы так и не поняли ничего... Run можно сделать без черного окна, он это позволяет. Но используя Run, вы не прочитаете вывод команды ping. Если же использовать Exec, то прочитать вывод получится, но не удастся избавиться от консольного окна, во всяком случае относительно естественными способами.

в примере (112) я загнал все в отдельный скрипт и выполнил его, используя ScriptControl. Это ничего не дало - как только дело дошло до выполнения пинга, все равно появилось окно, которое пропало после завершения программы.

(121) Не стоит и пытаться применять VBS скрипты, все равно не избежать мигание черного окна для получения IP-адреса?

Я чего то может не понимаю
Батник в невидимом окне запускать получается,в батник вывод перенаправить в файл тоже получается,тогда зачем вообще огороды с StdOut городить?

(124) А как сделать, чтобы его не было?

(125) перенаправить в файл на диске можно. Потом файл в 1С открыть и прочитать... Если уж заниматься х...ней, то на полную катушку, че.

(126) > перенаправить в файл на диске можно. Потом файл в 1С открыть и прочитать...
Только так? Да, не стоит заниматься...

Как думается, наиболее рациональный вариант для винды все-таки WMI. Скорее всего будет норм жить под все актуальные винды, с платформой 1С x64 проблем тоже быть не должно, нет извращений вроде запуска дополнительных программ, работает быстро, и короткий понятный код. Минус только один - с линухом не совместимо. Будь у меня подобная задача - я бы остановился на нем.

(126) Т.е. VBS-скрипт сначала надо записать в файл, и запускать этот файл скрытым? Это для всех VBS-скриптов, или только для получения IP-адреса?
(128) Тогда придется остановиться на варианте через WMI. Хотелось начать разбираться с VBS-скриптов.

(28) вот почему не скачать бсп и не выдрать оттуда рабочую функцию?

(130) Там тоже черное окно возникает. И получения IP-адреса есть?

(112) Это всегда для написания скриптов так:
   Скрипт = Новый COMОбъект ("MSScriptControl.ScriptControl");
   Скрипт.Language = "vbscript";
   КодНаБейсике =...

+ А где посмотреть как правильно скрипты писать? А то в (112): Скрипт.Language = "vbscript"; а в Запуск "*.vbs" из 7.7... проблема: Скрипт.Language = "JScript"; Отчего это зависит?

Скрипт.Language = "vbscript"
Скрипт.Language = "JScript"

Скрипач, ты дальтоник? Красный от зелёного, в смысле басик от жискрипта не отличаешь?

(134) Понятно. Все же, где почитать? Чтобы не задавать подобных вопросов. На ИТС https://its.1c.ru/db/execdoc#content:10064:hdoc не нашел ничего толкового...

(135) Почитать что? Чем бейсик отличается от жискрипта? О_о

Кроме того... По твоей ссылке - экзекутор (первого ранга). А это не бейсик и не жискрипт... Это отдельный язык, если мне эклер не изменяет...

(135) не поверите - в гугле и яндексе. А примера по ссылке на мистовский топик, который тут был, вполне достаточно для того чтобы попробовать сделать что-то самому, первый раз в жизни увидев этот скрипт-контрол.

(138) Теорию...
В (112) Скрипт.Run ("Ping", "srv-02"); Ping - название функции, или ответ команды: WshExec.StdOut.ReadAll()?

(139) Функция

(139) какая именно теория вам нужна - для чего может применяться в 1С? Гуглится за несколько минут, находится, например, тут https://www.script-coding.com/MSScriptControl.html

Переписал скрипт по примеру Как запустить скрипт VBS из 1с
    СтрокаКоманды = "ping.exe -n 1 " + IP_Адрес;
    Скрипт = Новый COMОбъект("MSScriptControl.ScriptControl");
    Скрипт.Language = "VBscript";
    ТекстСкрипта = "
    |Function Ping()
    |set WshShell=WScript.CreateObject(""WScript.Shell"")
    |WshShell.Run """ + СтрокаКоманды + """, 0, true
    |End Function";
    Скрипт.AddCode(ТекстСкрипта);
    СтрокаДляРазбора = Скрипт.Run("Ping");

Пишет: Ошибка выполнения Microsoft VBScript: Требуется объект: 'WScript' - Что ни так?

(142)
заместо
|set WshShell=WScript.CreateObject(""WScript.Shell"")
надо
|set WshShell=CreateObject(""WScript.Shell"")

(143) Спс, а в следующей строке: |WshShell.Run """ + СтрокаКоманды + """, 0, true - скобки нужны? Поскольку кавычек ставить? true заменить на 1? Сейчас ТекстСкрипта (см. отладчиком): "
Function Ping()
set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run "ping.exe -n 1 PERSEUS", 0, true
End Function" - Правильно? Ошибок нет, но СтрокаДляРазбора пустая?

+ Скобки не дает добавить, пишет: (Ошибка компиляции Microsoft VBScript): Недопустимо использование скобок при вызове процедуры Sub. Без них должна что-то вернуть Скрипт.Run("Ping");? Если не ответ Ping, то хотя бы 0 (успех) или 1 (нет доступа). Но хотя бы не мигает черное окно консоли.

(144) Когда в бейсике делается вызов процедуры (Sub) - скобки не нужны.
True не надо ни на что менять, этот литерал в VBS допустим.
Кавычки ставятся в соответствии с тем, что вы записываете код в строку 1С, внутри которой одинарные кавычки записываются как двойные.
Чтобы у вас Function возвращала значение, перед строкой End Function надо написать строку возврата значения, например |Ping = 1
И тогда будет возвращаться единица.

(146) Мне надо, чтобы Function возвращала ответ команды: ping.exe -n 1 ИмяКомпьютера. Как правильно писать?

(147) Бери мочало, начинай сначала... Чтобы возвращать стандартный вывод команды Ping, вам нужно использовать не Run, а Exec, и далее делать возврат свойства .StdOut

(148) И тут начнется мигание черного окна консоли!? Не тот вариант.
Остается только в СтрокаКоманды формировать батник (cmd-файл), а затем скриптом запускать его, и получать его ответ СтрокаДляРазбора. Так?

(149) а какая разница - батник вы будете запускать или экзешник? Суть-то одна и та же - это консоль, есть консольное окно - считать вывод получается, нет окна - не получается.

(150) А как же (39) > Можно убрать, если обернуть в VBS скрипт. То есть схема такая: через WScript.Shell запускаешь VBS скрипт, в нем запускаешь cmd и ставишь признак скрыть окно, в cmd запускаешь chcp + ping.

+ Единственное что меня интересует: можно ли сперва сформировать текст cmd, но не писать его на диск. А затем (39)?

(151) ну если только так еще попробовать... Попробуйте, если есть время и желание.
(152) cmd на диск не писать нельзя. Не запишете на диск - нечего будет и выполнять.
Покомандно содержимое cmd без записи на диск запустить можно, я это сделал в (112). Но такой вариант не дает эффекта, окно все равно появляется.

https://askdev.ru/q/skryt-okno-komandnoy-stroki-pri-ispolzovanii-exec-373876/

там довольно кривой перевод с английского, но вообще статья дельная

(154) Скрыть окно строки при использовании Exec () - это возможно или только предположение? - не мой уровень, не дорос еще...

весь вопрос в нужности. Для данной конкретной задачи нет смысла этим заниматься, вообще никакого, потому что решение на WMI закрывает все текущие вопросы.

(157) Да, сейчас в рабочей базе работает через WMI. VBS-скрипты взялся смотреть лишь для их изучения. Но неудачный пример выбрал с командой Ping. Она всегда будет сопровождаться черным окном консоли, вопреки объяснениям (39).
Что-то УдавВПопугаях сюда не заглядывает, сперва он активно предлагал свой метод (31), но в нем не было получения IP-адреса...
Пока всем откликнувшимся спс. Если когда продолжу, то новую тему открою.

(158) У меня (39) работало на ура без окна. Правда, не из 1С запускалось, а из Планировщика.
Просто нет времени вникать в твой случай, но метод рабочий.

(159) Как понял из (150) особенность команды Ping в том, что она ответ дает в окно консоли. Из этой строка выделяем IP-адрес. Поэтому, если нужно выделить IP-адрес, то без окна консоли не обойтись.

показывать и не показывать окно консоли это не тоже самое,что создавать его или нет.

(161) Значит возможно? А как? Чего в (142) не хватает, как правильно?

(162) дык это не на тему сделать, это на тему высказать умную мысль %)
Насчет окна консоли это все понятно, но есть маленькая проблема - это не С/С++, где вы можете рулить всеми нюансами создания процесса.
И даже не WMI, потому что вы не захотите разбираться, как работать с процессами на WMI.
Это стандартные средства VBS.
Там можно только то, что можно. Средства все описаны, в частности, в статье (154).
Я уже говорил - сделать скорее всего можно, но для этого придется встать на ушки. Оно никому не надо, потому что денег за это все равно никто не заплатит, а посидеть придется.