+ открыть спойлер
Пользуйтесь тэгом и кнопкой «Spoiler»:
+ открыть спойлер
У меня так: «JS: Опр…».
gp 'HKLM:\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards\*' | % {
$ht = @{}
}{
$ht[$_.Description] = $_.ServiceName
}{
$ht.GetEnumerator() | % {
"{0} - {1}" -f $_.Name, (
gp "HKLM:\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\$(
$_.Value
)"
).DhcpIPAddress
}
}Опять-таки решение завязано на парсинге данных реестра при этом скорость выборки данных в разы выше, чем если бы то же писалось на командном языке или WSH.
]]>HKLM\SOFTWARE\Microsoft\Windows NT\CurrentControl\NetworkCardsтакже может сослужить добром в поисках адаптеров и IP. Например:
@echo off
setlocal
set "top=HKLM"
set "sub=%top%\SYSTEM\CurrentControlSet"
set net="%top%\SOFTWARE\Microsoft\Windows NT\CurrentVersion\NetworkCards"
set "itm=%sub%\Services\Tcpip\Parameters\Interfaces\%%i"
for /f "tokens=3" %%i in (
'reg query %net% /s ^| findstr /ic:"ServiceName"'
) do (
for /f "skip=3 tokens=3" %%j in (
'2^>nul reg query %itm% /v DhcpIPAddress'
) do (
if "%%j" neq "0.0.0.0" (
set "ip=%%j"
set "id=%%i"
)
)
)
set "net=%sub%\Control\Network"
set "mid=%net%\%%i\%id%\Connection"
for /f "tokens=6 delims=\" %%i in (
'reg query %net% /s ^| 2^>nul findstr /ec:"%id%"'
) do (
for /f "skip=3 tokens=3" %%j in (
'reg query %mid% /v PnpInstanceID'
) do (
for /f "skip=3 tokens=2,*" %%k in (
'reg query "%sub%\Enum\%%j" /v DeviceDesc'
) do echo %%l - %ip%
)
)
endlocal
exit /bСловом, насколько фантазия позволяет, настолько глубоко можно расковырять реестр.
]]>HKLM\SYSTEM\CurrentControlSet\Control\Networkв поддириктории которых (Connection) содержится значение MediaSubType. В сценарии выше он указан равным двум, так как это - идентификатор wlan. Далее, загляните в раздел:
HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{...}где {...} - id карты (полученного из Network).
]]>@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Суть. wlan определяется по MediaSubType, который равен 2.
]]>Необходимо получить только адрес IPv4 этого реального, физического адаптера.
А что показывают
arp -aи
route print?
Также лично я бы не стал особо полагаться на WMI, а обратился бы напрямую к реестру:
reg query HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces /sТам можно много чего интересного найти.
]]>Пользуйтесь тэгом и кнопкой «Spoiler»:
У меня так: «JS: Опр…».
На ярлычке вкладки название темы у меня выглядит так: JS: Определение ip-адреса ада
Можно ли создать объект WMI один раз, а в цикле вызывать его для разных айпишников?
Разумеется. Если речь про свойство «.address».
Закомментированные строки - это мои попытки (неудачные) реализовать задуманное.
Первая строка должна возвращать именно объект. Если указаны все ключи:
Посему — отметаем.
Метод же «.ExecQuery()» всегда возвращает коллекцию (а не единственный объект), которую нужно нумеровать (в JScript) и перебирать. Пользуйте его указанным образом.
]]>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);Можно ли создать объект WMI один раз, а в цикле вызывать его для разных айпишников? Закомментированные строки - это мои попытки (неудачные) реализовать задуманное.
]]>И ещё вариант: повесить всем в автозагрузку скрипт, проверящий перидически наличие пинга с их роутером, и выводящий при отсутствии связи некое окно - и они без Вас поймут, что креслом очередной раз патчкорд перееден.
Кстати, программка "BackGround Info" красиво выводит прямо на рабочий стол некую инфу и в т.ч. результат работы пользовательского скрипта.
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();
}
}Ip - адреса - статика, имена так же никто не меняет, немного доработаю, чтобы 1-м пинговал роутер и в случае неудачи, сообщал, что надо проверить подключение своего ПК, хотя можно и так, ка щас...
Ну вот пожалуй и всё, растолкую как и что, думаю меня это от лишних поездок избавит.