helpf.pro
  Регистрация
Все категории 1С 7.x : » COM-объекты, WMI, WSH COM-объекты, WMI, WSH 
 0 
 
 
Распечатать

1С 7.x : Как определить IP адрес текущего компьютера?

Код 1C v 8.2 УП
 //работает под толстым и тонким клиентами 

ремоте= Новый COMОбъект("rcbdyctl.setting"); 

Сообщить(ремоте.GetIpAddress);

Код 1C v 8.х
  ремоте= Новый COMОбъект("rcbdyctl.setting");

Сообщить(ремоте.GetIpAddress);

Код 1C v 7.x
 ремоте=СоздатьОбъект("rcbdyctl.setting");

Сообщить(ремоте.GetIpAddress);

Подсказал: smaharbA
Разместил:   Версии: | 7.x | 8.x | 8.2 УП |  Дата:   Прочитано: 28386
 0 
 
 
Распечатать
Возможно, вас также заинтересует
Доступен ли сервер? Проверка Ping  0
  // Функция возвращает результат пинга указанного IPАдреса Функция ping(IPАдрес) objShell = Новый COMОбъект(" WScript.Shell" ) ; objScriptExec = objShell.Exec(" ping.exe -n 1 " + IPАдрес) ; strPingResults = НРег(objScriptExec.StdOut.ReadAll());
Загрузка данных из таблицы Excel в ТЗ (Таблицу значений)  0
 Код для 7 версии, при использовании в 8-ой - заменить E=СоздатьОбъект(" Excel.Application" ); на E=Новый COMОбъект(" Excel.Application" ); Функция глОткрытьФайл(Маска=" " ) Экспорт Перем ИмяФайла,ИмяКаталога; Маска_=" Файлы " +Маска+" |*." +Ма
Запись СД из 1С(без ВК и других программ, проверено на ХР/2003)  0
  Процедура Сформировать(ДискДляЗаписи=" E:" ,АвтоИзвлечениеСД=0,АвтоЗакрытиеМастера=1) Перем Имя,Каталог; scr=СоздатьОбъект(" MSScriptControl.ScriptControl" ); scr.language=" javascript" ; shell=СоздатьОбъект(" Shell.Application" ); scr.AddOb
Как удалить Файл, Каталог?  0
  Функция Удаляет указанные файлы. УдалитьФайлы( Путь , Маска ) Параметры: Путь (обязательный) Тип: Строка. Путь к удаляемым файлам. Маска (необязательный) Тип: Строка. Маска для выбора удаляемых файлов. В строке маски допускается использо
Пример чтения текста в кодировке ISO  0
  Функция Перекодировка(Стр=" " ,Кодировка=" windows-1251" ) Стрим = СоздатьОбъект(" Adodb.Stream" ); Стрим.Type = 2; Стрим.Mode= 3; Стрим.charset=" iso-8859-5" ; Стрим.Open(); Стрим.WriteText(Стр); Стрим.Position=0; Стрим.charset=Кодировка;
Посмотреть все результаты поиска похожих
Вы не можете отправить комментарий анонимно, пожалуйста войдите или зарегистрируйтесь.