Всем привет!

Как программно определить имя компьютера на котором находится SQL база, из 1С v8.X?

Как можно узнать свой IP адрес, естественно из всеми любимой 1С v8.X?

Спасибо за ранее!

Мож у кого идеи какие есть?

СтрокаСоединения

СтрокаСоединенияИнформационнойБазы()

Не в курсах как в снеговике, в семерке было так:
====
Процедура Сформировать()    
   WshShell = CreateObject("WScript.Shell");
   Сообщить("Клиент Наме "+WshShell.ExpandEnvironmentStrings("%clientname%"));  
   WshShell=CreateObject("WScript.Shell");
   ИмяКомпьютера=WshShell.RegRead("HKEY_CURRENT_USER\Volatile Environment\CLIENTNAME");
   //КомандаСистемы("echo %CLIENTNAME% >client.txt");
   //Текст=СоздатьОбъект("Текст");
   //Текст.Открыть("client.txt");
   //ИмяКлиентскогоКомпьютера=СокрЛП(Текст.ПолучитьСтроку(1));
   Сообщить("ИмяКлиентскогоКомпьютера "+ИмяКомпьютера());
   objNet = СоздатьОбъект("WScript.NetWork");
   ДоменПользователя = objNet.UserDomain;
   ИмяПользователяОС = objNet.UserName;
   ИмяТекущегоПользователяОС = ДоменПользователя + "\" + ИмяПользователяОС;
   Сообщить("ИмяТекущегоПользователяОС "+ИмяТекущегоПользователяОС);  
WshNetwork = CreateObject("WScript.Network");
Сообщить("UserName "+WshNetwork.UserName);    
WshNetwork=СоздатьОбъект("WScript.Network");
Сообщить("ComputerName"+WshNetwork.ComputerName);
пСетевойРесурс = "E:\";    
fso = CreateObject("scripting.fileSystemObject");
Лимит = fso.getDrive(пСетевойРесурс).freeSpace();
Сообщить("Свободно на : "+пСетевойРесурс+" "+Лимит+" байт");
КонецПроцедуры
===

Спасибо!

(0) Для распределённой клиент-серверной системы - никак. Для файловой базы - через WSH как  в (4).