[amel27]

XXXp, забыл сказать, что скрипт расcчитан всё-же на запуск из CMD-косоли:

Код:

CScript /Nologo Script.VBS

Маки берутся в произвольном порядке »

это как раз просто:

Код:

Set wss = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
' Получение случайного MAC
Randomize
Set foo = fso.OpenTextFile("c:\mac.txt", 1)
arr = Split(foo.ReadAll, vbCrLf)
mac = arr(Int((UBound(arr)+1)*Rnd))
' Подключение и отправка команд на роутер
Set foo = wss.Exec("plink -v -telnet 192.168.1.1")
WScript.Sleep(500)
foo.StdIn.Write("admin" & vbLF & "admin"& vbLF)
WScript.Sleep(500)
foo.StdIn.Write("nvram set et0macaddr="& mac & vbLF)
WScript.Sleep(500)
foo.StdIn.Write("nvram commit"& vbLF)
WScript.Sleep(500)
foo.StdIn.WriteLine("reboot")
' Чтение и вывод лога
WScript.Echo(foo.StdOut.ReadAll())

P.S. последняя строка в файле НЕ должна заканчиваться <ENTER>, иначе последний MAC будет пустым