Форум программистов, компьютерный форум, киберфорум
VBScript/JScript/WSH/WMI
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
 
Рейтинг 4.91/34: Рейтинг темы: голосов - 34, средняя оценка - 4.91
 Аватар для aiv3006
36 / 2 / 1
Регистрация: 17.05.2015
Сообщений: 145

Смена MAC-адреса без перезапуска системы

13.05.2019, 21:12. Показов 7037. Ответов 21
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Цитата Сообщение от FlasherX Посмотреть сообщение
P.S
Привет ! Дружище есть программа TMAC v6 она меняет МАС адрес ,у нее есть возможность выполнять ком.строкой команды
Кликните здесь для просмотра всего текста
Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
Technitium MAC Address Changer v6
 
Usage: tmac -n network_connection_name [options]
 
OPTIONS:
 
    MAC Address Options [-m/nm/r/nr/r02/nr02]:
        -m [mac_address]
            Sets persistent MAC address to selected network connection.
            mac_address format: 00:01:02:03:04:05
            For restoring to original MAC address, leave the field blank.
        
        -nm [mac_address]
            Sets non-persistent MAC address to selected network connection.
            MAC address restores to original when network connection is disabled.
            mac_address format: 00:01:02:03:04:05
            For restoring to original MAC address, leave the field blank.
        
        -r
            Sets random persistent MAC address, selected from vendor list, 
            to selected network connection.
        
        -nr
            Sets random non-persistent MAC address, selected from vendor list, 
            to selected network connection. MAC address restores to original 
            when network connection is disabled.
    
        -r02
            Sets random persistent MAC address with 0x02 as first octet, 
            selected from vendor list, to selected network connection.
        
        -nr02
            Sets random non-persistent MAC address with 0x02 as first octet, 
            selected from vendor list, to selected network connection. 
            MAC address restores to original when network connection is disabled.
    
    IPv4 Options:
        -i ip_address_1/subnet_mask_1[,ip_address_2/subnet_mask_2,...]
            Sets IPv4 address to selected network connection.
            
        -g gateway_1/metric_1[,gateway_2/metric_2,...]
            Sets default gateway route for selected network connection.
            
        -d dns_server_1[,dns_server_2,...]
            Sets DNS Server (IPv4) address.
            
        -h
            Enabled DHCPv4 on selected network connection.
            
        -rl
            Releases IPv4 address allocated by DHCPv4 server.
        
        -rn
            Renews IPv4 address lease from DHCPv4 server.
        
    IPv6 Options:
        -i6 ip_address_1/subnet_mask_1[,ip_address_2/subnet_mask_2,...]
            Sets IPv6 address to selected network connection.
            
        -g6 gateway_1/metric_1[,gateway_2/metric_2,...]
            Sets default gateway route for selected network connection.
            
        -d6 dns_server_1[,dns_server_2,...]
            Sets DNS Server (IPv6) address.
        
        -h6
            Enabled DHCPv6 on selected network connection.
            
        -rl6
            Releases IPv6 address allocated by DHCPv6 server.
        
        -rn6
            Renews IPv6 address lease from DHCPv6 server.
        
    Internet Explorer HTTP Proxy Option:
        -pxy http_proxy_server_ipv4_address:port
            Sets specified HTTP proxy server for used by Internet Explorer.
            
    Preset Options:
        -f preset_file
            Loads specified preset file. If preset file is not specified, 
            Default.tpf file will be loaded automatically.
        
        -p preset_name
            Specifies the preset to be used from the preset list loaded from 
            preset file. Specifying a preset will override MAC address, IPv4 and 
            IPv6 options listed above.
        
    Other Options:
        -s
            Silent mode. Disables popup message box display even when an error 
            is encountered.
            
        -re
            Resets network connection to apply changes. The network connection will 
            be disabled and enabled which may cause loss of network connectivity.
            
        -di
            Disables network connection. The network connection will be disabled 
            which may cause loss of network connectivity.
            
        -en
            Enables network connection to apply changes.
            
        -ro
            Restores the original MAC address record. This record is used by 
            Technitium MAC Address Changer when network connection is disabled.
            This option must be used when original MAC address being displayed 
            is incorrect. Using this option will restore the MAC address of the 
            specified network connection to original.
        
    Help Option:
        -help
            Displays this help text for reference.

Я наверно дня 3 уже играюсь с этими ключами но не как не получается сделать батник чтобы он делал так же как я делаю в ручную как на видео .Получилось у меня разок программа запустилась сменила мак ,а автоматом не сделала реконект инета .Тоесть инет вырубила и не конектится Блин и то по ошибки блокнот закрыл где накидал ком.строку чтобы хоть дать посмотреть Я просто туго на общения с ключами такими ( я только с электрикой и электроникой на ты Посмотри пожалуйста может что поймешь как ни как у тебя дар !
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
13.05.2019, 21:12
Ответы с готовыми решениями:

Смена MAC адреса.?
Доброго всем... есть WI-FI Маршрутизатор TECHNICOLOR TC7200.d вопрос всем кто знает и может помочь... как на нём сменить MAC адрес...???...

Смена MAC адреса
в общем ситуация стандартная, у прова привязка по маку. на ХП и 7 мак сменил на мак старой карты (ибо звонить было лень) а в Fedora 13...

Смена MAC-адреса
Никто не знает как сменить мас-адрес в Вин7 ?

21
6977 / 2869 / 1102
Регистрация: 06.06.2017
Сообщений: 9,748
15.05.2019, 00:41
Лучший ответ Сообщение было отмечено aiv3006 как решение

Решение

1 вариант:
Visual Basic
1
2
3
4
5
6
'—————————————————————————————————— Сменить MAC-адрес ———————————————————————————————————
' https://cyber-defense.sans.org/blog/2011/10/06/change-mac-address-in-windows-powershell
' Скачать: https://github.com/EnclaveConsulting/SANS-SEC505/raw/master/SEC505-Scripts.zip
' Требование: переложить ..\Day5-IPsec\Wireless\New-MACaddress.ps1 в каталог со скриптом
'————————————————————————————————————————————————————————————————————————————————————————
CreateObject("WScript.Shell").Run "powershell -noprofile -f .\New-MACaddress.ps1", 0
2 вариант:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
'———————————————————————————————————————————————
' Сменить MAC-адрес для стандартного подключения
 
' !macshift.exe должен быть в папке со скриптом!
' URL сайта: http://ijure.org/wp/octets/macshift
'———————————————————————————————————————————————
Set Shell = CreateObject("Shell.Application")
If Not Shell.IsServiceRunning("Netman") Then _
T = Shell.ServiceStart("Netman", False) : If Not T Then _
MsgBox "Запустите вручную службу ""Сетевые подключения""!", 4144: Set Shell = Nothing: WSH.Quit
With CreateObject("CDO.Message").AddAttachment("res://dot3dlg.dll/6/7").GetDecodedContentStream
  .Type = 1 : .Read(14) : Conn = Replace(CStr(.Read(AscB(.Read(2)) * 2)), Chr(0), "")
End With
With CreateObject("WScript.Shell")
  .Run "macshift.exe -i """ & Conn & """ -d", 0, 1
  .Run "macshift.exe -i """ & Conn & """", 0, 1
  .Run "ipconfig /flushdns", 0
End With
For Each I in GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")._
ExecQuery("Select Status from Win32_NetworkAdapter WHERE NetConnectionID='" & Conn & "'")
  If I.Status = 2 Then I.RenewDHCPLease
Next
For Each i in Shell.NameSpace(&H31).Items
  If i = Conn Then
    Test i, N
    If Len(N) = 10 Then
      N.DoIt: Do Until Len(N) =  9: Test i, N: WSH.Sleep 100: Loop
      N.Doit: Do Until Len(N) = 10: Test i, N: Loop
    End If
    Exit For
  End If
Next
Sub Test(It, Nm) : Set Nm = It.Verbs.Item(0) : End Sub
Set Shell = Nothing
1
 Аватар для aiv3006
36 / 2 / 1
Регистрация: 17.05.2015
Сообщений: 145
15.05.2019, 10:51  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
Visual Bas
Блин извени что то из головы вылетело написать для чего вообще мне эта прога и зачем я ее юзаю . Попробую объяснить у меня дин.IP мне постоянно нужно менять IP и делать реконект
Bash
1
2
3
4
5
6
  
  rasdial TURBO /disconnect   
      
  TIMEOUT /T 4  
 
 rasdial "TURBO"  логин 123333
Но постоянно после такого реконекта у меня не конектится инет гдето минуту ( почему не сразу конектится я не в курсе ) А вот если сменить этой прогой (что выше указывал) МАС то все прекрасно реконектится без всяких минутных пауз как и показывал на видео
Может мне и мак менять то и не надо в принципе ,мне только от всей этой процедуры стабильный реконект без пауз по идеи ! Вот только с помощью этой проги и получается частый реконект делать по другому не хочет конектится без пауз
0
6977 / 2869 / 1102
Регистрация: 06.06.2017
Сообщений: 9,748
15.05.2019, 16:43
А с моими вариантами сколько секунд до коннекта?

Отсоединяться можно так.
По совокупности: nircmd execmd nircmd rashangup "TURBO"&&nircmd rashangup "TURBO"&&nircmd rasdial "TURBO" "логин" "123333"
0
 Аватар для aiv3006
36 / 2 / 1
Регистрация: 17.05.2015
Сообщений: 145
15.05.2019, 16:57  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
nircmd execmd nircmd rashangup "TURBO"&&nircmd rashangup "TURBO"&&nircmd rasdial "TURBO" "логин" "123333"
Лог пароль подставил ни чего не происходит при нажатии батника ,попробовал в КМД строку вставить она кричит ""nircmd" не является внутренней или внешней
командой, исполняемой программой или пакетным файлом. " Как то так
0
6977 / 2869 / 1102
Регистрация: 06.06.2017
Сообщений: 9,748
15.05.2019, 17:08
А где ответ на вопрос?

NirCmd — многим известная сторонняя утилита. Нагугливается моментально. Тут не батник нужен, а ярлык. Либо скрипт в папке с nircmd.exe:
Visual Basic
1
CreateObject("WScript.Shell").Run "nircmd rashangup ""TURBO""&&nircmd rashangup ""TURBO""&&nircmd rasdial ""TURBO"" ""логин"" ""123333"""
1
 Аватар для aiv3006
36 / 2 / 1
Регистрация: 17.05.2015
Сообщений: 145
15.05.2019, 17:15  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
Либо скрипт в папке с nircmd.exe:
Так ? все водной папке лог пароль подставил нажимаешь на скрипт ни чего даже не дергается
Миниатюры
Смена MAC-адреса без перезапуска системы  
0
6977 / 2869 / 1102
Регистрация: 06.06.2017
Сообщений: 9,748
15.05.2019, 17:23
А ничего и не должно дёргаться. Имя соединение верно указано?
На видео там отнюдь не TURBO, а Подключение по локальной сети.
0
 Аватар для aiv3006
36 / 2 / 1
Регистрация: 17.05.2015
Сообщений: 145
15.05.2019, 17:25  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
о и не должно дёргаться
Ну я в смысле ни чего не происходит имел в виду Да имя TURBO
0
 Аватар для aiv3006
36 / 2 / 1
Регистрация: 17.05.2015
Сообщений: 145
15.05.2019, 17:35  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
А ничего и не должно дёргаться
вот какк я пробовал + переименовывал TURBO на подключения по локальной сети
Вложения
Тип файла: zip nircmd-x64.zip (150.0 Кб, 1 просмотров)
0
6977 / 2869 / 1102
Регистрация: 06.06.2017
Сообщений: 9,748
15.05.2019, 17:48
Цитата Сообщение от aiv3006 Посмотреть сообщение
переименовывал TURBO на подключения по локальной сети
Где? Я пишу, что на видео нет TURBO.
1
 Аватар для aiv3006
36 / 2 / 1
Регистрация: 17.05.2015
Сообщений: 145
15.05.2019, 17:51  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
На видео там отнюдь не TURBO, а Подключение по локальной сети.
вот сдесь
0
6977 / 2869 / 1102
Регистрация: 06.06.2017
Сообщений: 9,748
15.05.2019, 18:02
При чём тут мой текст? Переименовал где и когда?
Тебе годков целых сколько, кстати?

При правке случайно начало вырезалось:
Visual Basic
1
CreateObject("WScript.Shell").Run "nircmd execmd nircmd rashangup ""TURBO""&&nircmd rashangup ""TURBO""&&nircmd rasdial ""TURBO"" ""логин"" ""123333"""
Можно ещё так:
Visual Basic
1
2
3
4
5
With CreateObject("WScript.Shell")
  .Run "nircmd rashangup ""TURBO""",,1
  .Run "nircmd rashangup ""TURBO""",,1
  .Run "nircmd rasdial ""TURBO"" ""логин"" ""123333"""
End With
0
 Аватар для aiv3006
36 / 2 / 1
Регистрация: 17.05.2015
Сообщений: 145
15.05.2019, 18:08  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
Можно ещё так:
Да не вырезал я ни чего !

Вот еще разок
Вложения
Тип файла: rar Новая папка.rar (84 байт, 1 просмотров)
0
6977 / 2869 / 1102
Регистрация: 06.06.2017
Сообщений: 9,748
15.05.2019, 18:09
Или так:
Visual Basic
1
CreateObject("WScript.Shell").Run "nircmd script ~$folder.nircmd$\reconnect.ncl"
Где reconnect.ncl:
rashangup "TURBO"
rashangup "TURBO"
rasdial "TURBO" "логин" "123333"
0
 Аватар для aiv3006
36 / 2 / 1
Регистрация: 17.05.2015
Сообщений: 145
15.05.2019, 18:09  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
сколько, кстати?
30 июня 37 л будет 82г я от рождества христова
0
6977 / 2869 / 1102
Регистрация: 06.06.2017
Сообщений: 9,748
15.05.2019, 18:13
Цитата Сообщение от aiv3006 Посмотреть сообщение
Да не вырезал я ни чего !
Я про свой исходник.
Короче, ответы на вопросы игнорируются. При таком отношении моё участие тут сворачивается...

P.S.: В 36/37 лет писать с ошибками дошкольника — весьма печальное обстоятельство...
1
 Аватар для aiv3006
36 / 2 / 1
Регистрация: 17.05.2015
Сообщений: 145
15.05.2019, 18:33  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
ответы на вопросы игнорируются
Где я проигнорировал то? Ты обрати внимание ты про возраст даже спросил я и то не проигнорил и ответил ! А вот другой бы пригасил ответ на такой вопрос !

Ты как написал вот так
PureBasic
1
2
3
4
5
With CreateObject("WScript.Shell")
  .Run "nircmd rashangup ""TURBO""",,1
  .Run "nircmd rashangup ""TURBO""",,1
  .Run "nircmd rasdial ""TURBO"" ""логин"" ""123333"""
End With
Я свои значения вставил
PureBasic
1
2
3
4
5
With CreateObject("WScript.Shell")
  .Run "nircmd rashangup ""TURBO""",,1
  .Run "nircmd rashangup ""TURBO""",,1
  .Run "nircmd rasdial ""TURBO"" ""lf2728chp"" ""36301312000"""
End With
И что ?

Потом ты спрашиваешь "Где ?
PureBasic
1
2
3
rashangup "TURBO"
rashangup "TURBO"
rasdial "TURBO" "логин" "123333"
Я и так пробовал Яж архив посылал где ты говоришь скрипт кинуть в папку с " скрипт в папке с nircmd.exe:" оди хрен ни чего не происходит ! Мож ты просто не сказал что несколько скриптов надо в оди объеденить ? Вот тогда да ! Такой вариант я не пробовал .Ни чего не происходит хот так хоть сяк ! Понимаешь ? Я понимаю что для програмистов это ни о чем ! Как для меня к примеру заменить всю проводку в квартире под ключь или электронику наладить .Блин ну яж не програмист и ты не электрик -электронщик .Это уж у кого как заложено в голове с рождения .Тут если человек не разбирается шипко приходится популярно обьяснять ,к примеру что то по ремонту .Тут так же дружище чуточек по популярнее надо

Добавлено через 2 минуты
А с чего начал вопрос строчку с ключиками правильными не проще будет к этой программе ?
Bash
1
 tmac -n network_connection_name [options]
чем со скриптами ?
0
6977 / 2869 / 1102
Регистрация: 06.06.2017
Сообщений: 9,748
15.05.2019, 19:41
Лучший ответ Сообщение было отмечено aiv3006 как решение

Решение

Цитата Сообщение от aiv3006 Посмотреть сообщение
Где я проигнорировал то?
Трижды прямо с начала топика.
Цитата Сообщение от aiv3006 Посмотреть сообщение
А вот другой бы пригасил ответ на такой вопрос !
Хорошо, что эти другие мне не так часто попадаются.
Цитата Сообщение от aiv3006 Посмотреть сообщение
И что ?
И всё.
Цитата Сообщение от aiv3006 Посмотреть сообщение
Яж архив посылал
И я указал на ошибку. Второй вообще с пустой папкой.
Да и не нужны мне архивы. Тут и так смысл ясен. Скрипт (+/- reconnect.ncl) и nircmd.exe в одной папке.
Цитата Сообщение от aiv3006 Посмотреть сообщение
и ты не электрик -электронщик
Телепат никак?
Цитата Сообщение от aiv3006 Посмотреть сообщение
А с чего начал вопрос
В моём браузере ещё с прошлого года спойлеры сломались. Поэтому не видел, что у проги комстрока есть. Ну, и что там в описании непонятного?
tmac -n TURBO -r -rn -re -s
1
 Аватар для aiv3006
36 / 2 / 1
Регистрация: 17.05.2015
Сообщений: 145
15.05.2019, 21:16  [ТС]
Цитата Сообщение от FlasherX Посмотреть сообщение
tmac -n TURBO -r -rn -re -s
Я знал что ты настоящий програмист !
Спасибо тебе дружище это то что доктор прописал
Bash
1
2
"C:\Program Files (x86)\Technitium\TMACv6.0\TMAC.exe" -n Подключение по локальной сети  -r -rn -re -s
rasdial "TURBO" лог  пароль
Надо было сразу эту строчку обмозговать ,а мы что то вдули мухе в глазик и получился слоник постов в 10
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
15.05.2019, 21:16
Помогаю со студенческими работами здесь

Смена языка в приложении без перезапуска.
Интересует вопрос как менять язык в приложении к примеру с аглицкого на русский и на оборот без перезапуска проги????????

Смена MAC-адреса в Mikrotik
Здравствуйте. Извините за глупый вопрос, но: имеет ли Mikrotik какие-нибудь MAC-адреса помимо MAC-адресов портов? То есть, сам он имеет...

Смена MAC адреса сетевой карты
Подскажите пожалуйста, как можно сменить MAC адрес сетевой карты через CMD ? Менял вручную - надоело, менял через реестр - нужна...

ноутбук asus k53u постонная смена mac-адреса!
Есть проблема! Ноутбук при каждой перезагрузке меняет свой mac-адрес. На вирусы проверял Касперским, с последними на тот момент времени...

Смена MAC адреса при коннекте к другому роутеру
Здравствуйте. Такая ситуация. Есть два роутера. Второй подключен к первому чтобы брать с него интернет и раздавать дальше (не WDS). ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Новые блоги и статьи
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru