Определить IP компьютера средствами 1С 77 #205976

Скажите пожайлуста как можно определить IPадрес  компьютера средствами 1С 77?

есть какие-то недокументированный функции только не помню...

КомандаСистемы и Ping юзай или в поиск.

какого компьютера?

читай Михайлова

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

Виндовый пользователь?

2 Зачем для этого IP? ИмяКомпьютера ComputerName Синтаксис: ИмяКомпьютера Назначение: Возвращает сетевое имя компьютера, работающего в данный момент с программой.

ИмяПользователя

По имени компьютера можно определить

для домена пользователя привязать к компьютеру нет проблем "Разрешить вход"

Не работает твой вариант

По имени компьютера - тоже неплохой вариант.

не работаеть... {ВнешняяОбработка.ТестIP}: Ошибка при вызове конструктора (COMОбъект): Недопустимая строка с указанием класса по причине: {ВнешняяОбработка.ТестIP}: Ошибка при вызове конструктора (COMОбъект): Недопустимая строка с указанием класса по причине: Недопустимая строка с указанием класса Может быть у интернет-эксплорера есть метод, возвращающий айпи? Ну там у джава-скрипта что-то есть такое. Или может шелл умеет?

где можно прочитать?

об методе mswinsock

как ты себе это представляешь? у компьютера может быть много IP.

ipconfig >ip.txt + поиск в файле ip.txt строки ip address

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

Старенькая веточка с т1с: Возможно ли узнать свой IP программно SerIGS 03.10.2002 - 09:25 Можно ли получить в 1С свой IP адрес удаленного соединения (модемного)? или как еще программно можно получить свой IP? Мерзавец 1 - 03.10.2002 - 09:28 ipconfig для В2к winipcfg для В98 SerIGS 2 - 03.10.2002 - 09:34 Это понятно ,но не то Мне нужно ,чтоб при соединении (во время обмена) 1С определила свой IP для того ,чтобы вылажить на ftp в тексте Хочу использовать RAdmin со своими удаленными базами (каататься по мелочам по всей области как то нехочется) Chairman 3 - 03.10.2002 - 09:34 На VB Script это выглядит следующим образом: Как в 1С - не знаю, точнее, не понятно, что использовать в 1С вместо функции GetObject. Если эту проблему решить, то остальное - тривиально. strComputer = "." Set objWMIService = GetObject("winmgmts:\" & strComputer & " ootcimv2") Set IPConfigSet = objWMIService.ExecQuery _    ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") For Each IPConfig in IPConfigSet    If Not IsNull(IPConfig.IPAddress) Then        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)            WScript.Echo IPConfig.IPAddress(i), IPConfig.Description(i) Next SerIGS 4 - 03.10.2002 - 10:15 Да можно дописать чтоб создавала текстовик и с компилить .Потом запускай когда нужно . Но интереснее бы достучаться из 1С .Но к какому объекту та стучать ? SerIGS 5 - 03.10.2002 - 11:04 Есть еще варианты? dbis 6 - 03.10.2002 - 11:28 >Как в 1С - не знаю, точнее, не понятно, что использовать в 1С вместо функции GetObject очевидно, нужно попробовать СоздатьОбъект Chairman 7 - 03.10.2002 - 11:40 Ну вот решил проблему GetObject теперь это в 1С без проблем переносится Надеюсь, сам справишься :) For Each IPConfig in IPConfigSet    If Not IsNull(IPConfig.IPAddress) Then        For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress) Next Chairman 8 - 03.10.2002 - 11:44 2 Отнюдь. Аналог СоздатьОбъект - CreateObject Но удалось мне все же в вывернуться EGO 9 - 03.10.2002 - 11:52 А как в 1С это написать "PConfig in IPConfigSet" ? Chairman 10 - 03.10.2002 - 12:01 2 : For i = 1 to IPConfigSet.Count          IPConfig = IPConfigSet.Item(i) и так далее. В точности как в 1C. Дальше разжевывать - только если ключевые слова на русский язык перевести осталось, и получится 1С :) EGO 11 - 03.10.2002 - 12:06 СПАСИБО! SerIGS 12 - 03.10.2002 - 12:10 Ну спасибочки Попробовал сейчас RAdmin на растоянии 300 км отформатировал док в Экселе Просто песння 127.0.0.1 13 - 03.10.2002 - 12:28 :) SerIGS не работает (Item(i)) как еще можно рбратиться к IPConfigSet? Мерзавец 15 - 03.10.2002 - 18:41 перенаправление в текстовый файл с последующим его разбором avb 16 - 03.10.2002 - 18:44 2 у меня тоже не получилось имхо, нету у этой коллекции свойства item :( вот так можно: SerIGS 17 - 03.10.2002 - 18:45 Если вариан ipconfig>ip то я расматривал этот вариант да можно Ну загнался я 1с ом получить в уже близко ,но я слаб в англоязычном коде поэтому и стопорю avb 18 - 03.10.2002 - 18:50 + сори, масенькая ошибочка вкралась: |strQuery=""Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE"" SerIGS 19 - 03.10.2002 - 19:00 sc.addCode(strFunc); Недопустимый знак? Vyja 20 - 03.10.2002 - 19:03 12 - а как клиента RA установил? avb 21 - 03.10.2002 - 19:03 2 странно, у меня работает SerIGS 22 - 03.10.2002 - 19:07 Долго и нудно через проху(пользователя)транспорт ftp протокол ненормативный(лексика) SerIGS 23 - 03.10.2002 - 19:10 2 а сессия должна быть открытой ? может и пойдет а то я сейчас на своей экперементирую без модема на выделенк. Vyja 24 - 03.10.2002 - 19:19 22 - интерессно было бы взглянуть как это происходило... я ушел... avb 25 - 03.10.2002 - 19:22 2 я тоже на выделенке и без модема, хотя это и без разницы Chairman 26 - 04.10.2002 - 09:37 2 (14,16) Извиняйте, коллеги, ввел вас в заблуждение с преобоазованием For Each. Вот как должно быть: Set Locator = CreateObject("WbemScripting.SWbemLocator") For j = 0 To IPConfigSet.Count - 1    Set IPConfig = IPConfigSet.Item("Win32_NetworkAdapterConfiguration.Index=" & j)    If Not IsNull(IPConfig.IPAddress) Then        For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress) Next 2 Имей в виду, что твоя функция возвратит IP последнего сетевого адаптера, а ведь их может быть несколько ...

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

study   for i = 0 to pEnum.Count-1 do     if emptyValue(Object.IPEnabled)=0 then   for i = 0 to pEnum.Count-1 do     if emptyValue(Object.IPEnabled)=0 then

Для инициализации объекта MSWinsock.Winsock необходима компонента MSWINSCK.OCX

Можно. %CLIENTNAME%

это средства 1С ?

это средства ОС

а ОС это большой волосатый МУХ?

Не волосатый, а полосатый ...

:)

А запускать внешние приложения это средство 1С?

командаСистемы- это команда из средства 1с?