JS: Определение ip-адреса адаптера.

var fso = new ActiveXObject("Scripting.FileSystemObject");    
var wshshell = WScript.CreateObject("WScript.Shell");    
var netObj = new ActiveXObject("WScript.Network");    
var rezult = "C:\\live_IP.txt";                                       // путь к файлу результата

var ipArray = ["192.168.1.205", "192.168.1.200", "89.106.192.3", "192.168.1.248", "192.168.1.10", "172.18.0.4"];        
                                                                  // массив ip-адресов
var ipHosts = ["Inet", "Main", "Internet-HOST", "NhmS241", "Printer-Buh", "NAUGAD"];
                                                                  // массив имён

var compName = netObj.ComputerName;

for(i=0; i<ipHosts.length; i++)
    {
    if(compName.toLowerCase() == ipHosts[i].toLowerCase())
        {
        ipHosts.splice(i, 1), ipArray.splice(i, 1);    
        }
    }

if(fso.FileExists(rezult) == true)                
    {
    fso.DeleteFile(rezult, true);
    }

for(f=0; f<ipArray.length; f++)                
    {
    var name = ipArray[f];
    Aviable(name);
    }

wshshell.run('notepad.exe ' + rezult, 1, true);

function Aviable(name)
    {
    var objClass = GetObject("winmgmts://.\\Root\\CIMV2:Win32_PingStatus.address=\"" + name + "\""); 
                            
    if(objClass.StatusCode == 0)                
        {
        var txtfl = fso.OpenTextFile(rezult, 8, true);        
        txtfl.WriteLine("Сетевой хост с IP =  " + name + "  и именем " + ipHosts[f] + "  ДОСТУПЕН");
        txtfl.WriteLine("----------------------------------------------------");
        txtfl.WriteBlankLines(1);                
        txtfl.close();                        
        }
    else
        {
        var txtfl = fso.OpenTextFile(rezult, 8, true);        
        txtfl.WriteLine("Сетевой хост с IP =  " + name + "  и именем " + ipHosts[f] + "  НЕ ДОСТУПЕН");
        txtfl.WriteLine("----------------------------------------------------");
        txtfl.WriteBlankLines(1);                
        txtfl.close();                    
        }
    }

var
 a=[
  {ip:'192.168.1.1',name:'Zyxel'},
  {ip:'192.168.1.34',name:'Note'},
  {ip:'192.168.1.220',name:'Asus'}
 ],
 n=new ActiveXObject('WScript.Network').ComputerName,
 t='';

//var w=GetObject('winmgmts://.\\Root\\CIMV2');

for(i=0;i<a.length;i++)if(n.toLowerCase()!=a[i].name.toLowerCase())
 t+='хост: '+a[i].ip+'   \t('+a[i].name+')          \t'+

 (GetObject('winmgmts://.\\Root\\CIMV2:Win32_PingStatus.address="'+a[i].ip+'"').statusCode?
// (w.ExecQuery('Select * From Win32_PingStatus Where address = "'+a[i].ip+'"').statusCode?

 'НЕ':'')+'доступен\n';

WScript.echo(t);

@echo off
  setlocal
    set "top=HKLM\SYSTEM\CurrentControlSet"
    set "net=%top%\Control\Network"
    set "mid=%net%\%%i"
    set "sub=%mid%\%%j\Connection"
    for /f "tokens=6 delims=\" %%i in (
      'reg query %net% ^| 2^>nul findstr /c:"{"'
    ) do (
      for /f "tokens=7 delims=\" %%j in (
        'reg query %mid% ^| findstr /ec:"}"'
      ) do (
        for /f "tokens=3" %%k in (
          '2^>nul reg query %sub% /v MediaSubType'
        ) do (
          if "%%k" equ "0x2" set "itm=%%j"
        )
      )
    )
    set "itm=%top%\Services\Tcpip\Parameters\Interfaces\%itm%"
    for /f "skip=3 tokens=3" %%i in (
      'reg query %itm% /v DhcpIPAddress'
    ) do echo.%%i
  endlocal
exit /b

HKLM\SYSTEM\CurrentControlSet\Control\Network

HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{...}