求一段VB只恢复DNS自动获得的代码

Question

我用VB修改了IP及DNS,现在我想求一段VB只恢复DNS自动获得的代码,而IP不动它.送100

Answer 1

DnsRecordSetDetach,DnsReplaceRecordSet

Answer 2

http://www.wangchao.net.cn/bbsdetail_35583.htmlhttp://www.google.cn/search?hl=zh-CN&source=hp&q=wmi+dns+
Const STR_NEWDNS1 = "192.168.0.1" 
　　Const STR_NEWDNS2 = "192.168.0.43"
　　Const STR_GATEWAY = "192.168.0.1"
　　Set fs = CreateObject("Scripting.FileSystemObject") 
　　Set outFile = fs.CreateTextFile("NetworkAdapterConfiguration.txt", True) 
　　strWinMgmt = "winmgmts:{impersonationLevel=impersonate}"
　　Set objNICs = GetObject( strWinMgmt ).InstancesOf( "Win32_NetworkAdapterConfiguration" )
　　outFile.WriteLine("Begin to change DNS...")
　　For Each objNIC In objNICs
　　If objNIC.IPEnabled Then
　　 objNIC.SetDNSServerSearchOrder Array(STR_NEWDNS1,STR_NEWDNS2)
　　 outFile.WriteLine(objNIC.Description & " ")
　　 outFile.WriteLine("Change DNS ok")
　　 objNIC.SetGateways Array(STR_GATEWAY)
　　 outFile.WriteLine("Change gateway ok")
　　End If
　　Next
　　outFile.WriteLine("Change over")fso的那段儿可以去掉了

Answer 3

wmi 注册表方向比较容易,调用系统api,太麻烦了...用vb调用还得自己拼写调用函数

Answer 4

http://www.rjdk.org/qikan/manage/wenzhang/2009-04-048.pdf这篇文章你所有的要求都能实现,包括以前的ip设置....http://www.google.cn/search?hl=zh-CN&newwindow=1&q=wmi+%22%E8%AE%BE%E7%BD%AE%E8%87%AA%E5%8A%A8%E8%8E%B7%E5%BE%97dns%E6%9C%8D%E5%8A%A1%E5%99%A8%22你用这个关键词...根本就不用问了直接照着抄就得了

Answer 5

谢"小猪妹马甲之八卦兔子"的代码,它能修改DNS服务地址,但不能恢复,
"我用VB修改了IP及DNS,现在我想求一段VB只恢复DNS自动获得的代码,而IP不动它"
就是说:我用VB代码修改了IP地址及DNS服务地址为固定的,现在我想仍用VB代码将固定的DNS服务地址恢复到自动获得状态,而IP地址仍为固定的.请指教,谢

Answer 6

Set fs = CreateObject("Scripting.FileSystemObject") 
Set outFile = fs.CreateTextFile("NetworkAdapterConfiguration.txt", True) strWinMgmt = "winmgmts:{impersonationLevel=impersonate}"
Set objNICs = GetObject( strWinMgmt ).InstancesOf( "Win32_NetworkAdapterConfiguration" )outFile.WriteLine("Begin to change DNS...")For Each objNIC In objNICs
 If objNIC.IPEnabled Then
  objNIC.SetDNSServerSearchOrder()
  outFile.WriteLine(objNIC.Description & "  ")
  outFile.WriteLine("Change DNS ok")
 End If
Next
outFile.WriteLine("Change over")
我一直不明白为什么你们不肯好好看我给的链接呢.....人家都把方案摆好了,你仔细分析一下就知道了我现在做的就是那个pdf上写的....你自己好好看看吧

Answer 7

"小猪妹马甲之八卦兔子"老师,你好,关于DNS的问题,我就不明白,为什么要把固定的DNS恢复到自动获得必须要在IP也在自动获得的情况下才能够完成,指定IP情况下就是不能够呢?望能得到你的指教.

Answer 8

我用VB修改了IP及DNS,现在我想求一段VB只恢复DNS自动获得的代码,而IP不动它.送100不好意思,赖我...这个需求是不成的,dns自动获得的情况下ip一定是自动获得的,这个是ms本身的设置本身不能那么做,我没注意你最后说的需求,我只注意到了dns的自动获得....具体原因应该是dhcp机制导致的,这个原因如果需要探究的话,我找一下....