lin6163 发表于 2009-6-25 23:14:08

从别人那引用的,不知道是什么意思?高手解释一下

本帖最后由 lin6163 于 2009-7-15 07:04 编辑

我想要的无非就是要通过AU3改网卡的DNS但不要通过netsh和注册表这些外部程序
而且最重要的一点就是要兼容多网卡

谢谢!!!

下面从别人那引用的,不知道是什么意思?
怎么改网卡的DNS那么费劲set_IP("202.103.224.68","221.7.128.68")                              ;set_IP是什么,好像不是一条代码,但为什么运行后没有出错
Func set_IP($myDns1,$myDns2)                                          ;不懂 什么是set_IP                              
      Dim $colItems                                                ;不懂
      Dim $setdns                                             ;不懂
      $setdns=$myDns1                                             ;不懂                                          
      $setdns=$myDns2                                           ;不懂
      $wbemFlagReturnImmediately = 0x10                           ;不懂,0x10是什么意思
      $wbemFlagForwardOnly = 0x20                                    ;不懂0x20   是什么意思
      $strComputer = "."                                             ;不懂
      $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
                ;这条看了很晕 但知道一点就是 ObjGet("winmgmts:\\.\root\CIMV2"),结果应该是这样对不?
      ;;修改IP信息
      $colItems = $objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE MACAddress <> '00:00:00:00:00:00' AND IPEnabled = TRUE", "WQL", _
                              $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
                                                               
                                                                ;这条不用说了,完全看不出什么
      If IsObj($colItems) Then                                    ;IsObj是什么?帮助文档里没有
                For $objNetAdapter In $colItems                     ;$objNetAdapter In $colItems   是什么意思
                        $objNetAdapter.SetDNSServerSearchOrder ($SetDns)   ;这句也看不出什么
                Next
      EndIf
EndFunc

aaeeff 发表于 2009-6-25 23:35:50

这是通过WMI实现的，查AU3帮助自然查不到了，你在论坛搜索一下吧。

lin6163 发表于 2009-6-26 19:38:10

WMI 怎么怎么个用法
页: [1]
查看完整版本: 从别人那引用的,不知道是什么意思?高手解释一下