Чуток доработанная функция (если на компе стоят вирт. машины)

Function GetIP() Export
   Try
       Locator = createObject("WbemScripting.SWbemLocator");
   Except
       return("0.0.0.0");
   Endtry ;
   ipaddr = "" ;
   ServicesSet = Locator.ConnectServer("."); // по умолчанию, текущая машина
   pEnum = ServicesSet.InstancesOf("Win32_NetworkAdapterConfiguration");
   For i = 0 to pEnum.Count-1 Do
       Try
           Object = pEnum.Item("Win32_NetworkAdapterConfiguration=" + i + "");
       Except
           break;
       Endtry ;    
       If emptyValue(Object.IPEnabled)=0 then
           Text = Object.GetText_(1);
           DefaultIPGateway = Сред(Text,Найти(Text, "DefaultIPGateway"));
           DefaultIPGateway = Сред(DefaultIPGateway, 1, Найти(DefaultIPGateway, "</PROPERTY.ARRAY>"));
           Если Найти(DefaultIPGateway,"<VALUE.ARRAY><VALUE>")>0 Тогда
               ipaddr = trimall(""+Object.IPaddress(0));
           КонецЕсли;
       Endif;
   Enddo ;
   Return(ipaddr) ;
EndFunction

а если линь?