Al posto della MsgBox inserisci:
codice:
WshShell.Run("netsh interface ip set dns name=""" & adapterName & """ <impostazioni>")
, dove <impostazioni> sono le impostazioni dei DNS (al prompt dei comandi inserisci netsh interface ip set dns per ottenere maggiori informazioni sulla sintassi di questa funzione di netsh).
Nota che le impostazioni dei DNS in questo modo verranno cambiate per tutte le schede di rete del sistema.