DNS change Win7 hun

@echo off
set dnsserver=192.168.100.1
set dnsserver2=192.168.100.2

For /f "tokens=12" %%i in ('ipconfig /all ^| findstr /C:"DNS-k"') Do (
    Call :DNSCH %%i
)
Exit /B

:DNSCH
If NOT %1==192.168.100.1 (

	For /f "skip=2 tokens=4*" %%a In ('NetSh Interface IPv4 Show Interfaces') Do (
		Call :UseNetworkAdapter %%a "%%b"
	)
	Exit /B

	:UseNetworkAdapter
	:: %1 = State
	:: %2 = Name (quoted); %~2 = Name (unquoted)
	If %1==connected (
		netsh interface ipv4 delete dnsserver %2 address=%dnsserver%
		netsh interface ipv4 delete dnsserver %2 address=%dnsserver2%
		netsh interface ipv4 add dnsserver %2 address=%dnsserver% index=1
		netsh interface ipv4 add dnsserver %2 address=%dnsserver2% index=2
	)
	Exit /B
)