Help at basic DNS changer

#RequireAdmin
#include 
Global $var1
$var1 = InputBox("Enter your connection name","")
_RunDos("netsh interface ipv4 set subinterface")
RunWait ( @ComSpec & " /c netsh interface ip set dns $var1 static 8.8.8.8" )
RunWait ( @ComSpec & " /c netsh interface ip add dns $var1 8.8.4.4" )