为什么这么多VB大侠就解决不了这个问题

我的问题是怎样用VB恢复IP为自动获得,或DNS恢复为自动获得.请教VB专家们.

---

vb的没找到。
vbs的有一段，没试过。

---

试试如下代码：PS：没测试
考虑方向：调用Windows命令。
VB code:

Dim strIPShell As String
Dim strDNSShell As String
Dim a As Long

strIPShell = "cmd /c Netsh InterFace ip set address name = 本地连接 source = dhcp"
strDNSShell = "cmd /c netsh interface ip set dns name = 本地连接 source = dhcp"
a = Shell(strIPShell, vbHide)
a = Shell(strDNSShell, vbHide)

---

不是没人能解决你的问题，而是都没空理你。
告诉你一个简单而又肯定能解决你问题的方向，用WMI对象
具体的使用建议你下一个 WMI SDK 看看

---

BestBadGod前辈谢谢,你的代码测试了,IP能恢复到默认值"自动获取IP地址",但DNS还是没恢复,谢谢你再给我一段恢复DNS的代码.

---

引用

换头像了？我还是喜欢你原来的头像。

---

引用

为什么这么多VB大侠就解决不了这个问题。

你出20分就没人或慢慢答完别人的题才有空理你，你要是200分就不同了。
话又说回来了，你出不了200分，但你是可以出100分滴。
不信的话，你再开个100分的帖子试。

哦！卖糟的！！！

---

下班了 回去在帮你看看吧。

---

路过

---

只负责帮顶

---

我顶。

---

猴哥:因为本人是初学