guru431
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вообщем БОЛЬШОЕ СПАСИБО KapralBel!!!
Всё, что я хотел получилось!
Кому интересно выкладываю:
:: Новое имя Локального подключения
set name1=Lan
:: Новое имя Беспроводного подключения
set name2=Wi-Fi
:: Новый Mac-адрес Локального подключения
set mac1=0013d409a812
:: Новый Mac-адрес Беспроводного подключения
set mac2=0013d409a812
set reged=HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control
:: _____Lan______________________________________________________
:: Определение %netnum1% (н.п. 0008)
FOR %%A IN (0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 0012 0013 0014 0015 0016 0017 0018 0019 0020) DO (REG QUERY %reged%\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\%%A\Ndi\Params\NetworkAddress /v type | findstr /i /v ",edit" | findstr /i edit > nul: 2>&1 && SET netnum1=%%A)
:: Определение %netcfg1% (н.п. {E7CD9D89-0B1A-41CC-9C12-7871C8B71F74})
FOR /F "skip=4 tokens=3" %%A IN ('REG QUERY %reged%\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\%netnum1% /v NetCfgInstanceId') DO SET netcfg1=%%A
:: Определение %pnp1% (н.п. PCI\\VEN_1969&DEV_1048&SUBSYS_82261043&REV_B0\\4&38D2602C&0&00E1)
FOR /F "skip=4 tokens=3" %%A IN ('REG QUERY %reged%\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\%netcfg1%\Connection /v PnpInstanceID') DO SET pnp1=%%A
:: Переименовывание подключения
REG ADD "%reged%\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\%netcfg1%\Connection" /V Name /t REG_SZ /D "%name1%" /f
:: При подключения вывести значек в области уведомлений
REG ADD "%reged%\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\%netcfg1%\Connection" /V ShowIcon /t REG_DWORD /D 1 /f
:: Изменение Mac-адреса
REG ADD "%reged%\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\%netnum1%" /V NetworkAddress /t REG_SZ /D %mac1% /f
:: Приводим %pnp1% к необходимым требованиям devcon
set pnp1a=%pnp1:&=*%
set pnp1b=%pnp1a:~0,44%
:: Перезагружаем Lan
devcon disable %pnp1b%
devcon enable %pnp1b%
:: _____Wi-Fi_____________________________________________________
:: Определение %netnum2% (н.п. 0008)
FOR %%A IN (0001 0002 0003 0004 0005 0006 0007 0008 0009 0010 0011 0012 0013 0014 0015 0016 0017 0018 0019 0020) DO (REG QUERY %reged%\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\%%A\Ndi\Interfaces /v LowerRange | findstr /i /v ",ethernet,wifimon" | findstr /i "ethernet,wifimon" > nul: 2>&1 && SET netnum2=%%A)
:: Определение %netcfg2% (н.п. {E7CD9D89-0B1A-41CC-9C12-7871C8B71F74})
FOR /F "skip=4 tokens=3" %%A IN ('REG QUERY %reged%\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\%netnum2% /v NetCfgInstanceId') DO SET netcfg2=%%A
:: Определение %pnp2% (н.п. PCI\\VEN_1969&DEV_1048&SUBSYS_82261043&REV_B0\\4&38D2602C&0&00E1)
FOR /F "skip=4 tokens=3" %%A IN ('REG QUERY %reged%\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\%netcfg2%\Connection /v PnpInstanceID') DO SET pnp2=%%A
:: Переименовывание подключения
REG ADD "%reged%\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\%netcfg2%\Connection" /V Name /t REG_SZ /D "%name2%" /f
:: При подключения вывести значек в области уведомлений
REG ADD "%reged%\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\%netcfg2%\Connection" /V ShowIcon /t REG_DWORD /D 1 /f
:: Изменение Mac-адреса
REG ADD "%reged%\Class\{4D36E972-E325-11CE-BFC1-08002BE10318}\%netnum2%" /V NetworkAddress /t REG_SZ /D %mac2% /f
:: Приводим %pnp2% к необходимым требованиям devcon
set pnp2a=%pnp2:&=*%
set pnp2b=%pnp2a:~0,44%
:: Перезагружаем Wi-Fi
devcon disable %pnp2b%
devcon enable %pnp2b%
|
