用vb设置ip与dns自动获取

Question

求vb代码，如和由静态地址转换为动态地址
或者如何执行
@netsh interface ip set address "本地连接" dhcp
@netsh interface ip set dns "本地连接" dhcp
命令
而不是把以上命令作为bat然后再调用bat
想直接在vb里面实现

Answer 1

直接用Shell执行命令即可 

Answer 2

已经ok了  如下
Set objShell = CreateObject("WScript.Shell")
objShell.Run "Netsh interface ip set address Name=本地连接 Source=dhcp"
objShell.Run "Netsh interface ip Set Dns Name=本地连接 Source=dhcp"

Answer 3

shell "@netsh interface ip set address ""本地连接"" dhcp & @netsh interface ip set dns ""本地连接"" dhcp"