вариант на VBS:
Код:
QRY="SELECT NetConnectionID FROM Win32_NetworkAdapter WHERE NetConnectionStatus=2"
SET WSHell= WScript.CreateObject("Wscript.Shell")
SET objWMI = GetObject("winmgmts:\\.\root\cimv2")
SET objNICS= objWMI.ExecQuery(QRY,,48)
For Each objNIC In objNICS
CMD1="netsh -c interface ip set address """ & objNIC.NetConnectionID & """ source=dhcp"
CMD2="netsh -c interface ip set dns """ & objNIC.NetConnectionID & """ source=dhcp"
CMD3="netsh -c interface ip set wins """ & objNIC.NetConnectionID & """ source=dhcp"
WSHell.Run CMD1, 0
WSHell.Run CMD2, 0
WSHell.Run CMD3, 0
Next
