星驰周 发表于 2008-9-7 15:06:48

如何由固定IP设置为自动获取IP地址

由自动获取IP地址设置为固定IP的代码已知:(如下)
;16进制的0x10加上16进制的0x20=10进制的16+32=48
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20

;"."取代了原代码中的"winmgmts:\\&$strComputer&\root\CIMV2"的$strComputer
$strComputer = "."

;预设置的IP地址
Dim $SetIPAddress
$SetIPAddress = "192.168.1.101"

;预设置的子网掩码
Dim $SetSubnetmask
$SetSubnetmask = "255.255.255.0"

;预设置的默认网关
Dim $SetGateway
$SetGateway = "192.168.1.1"

;首选及备选DNS服务器
Dim $SetDns = ["202.102.224.68", "202.102.227.68"]

;具体作用不是很明白,本人的理解是“获取对象”
$objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE", "WQL", 48)
;$colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem");没看出这行在这里起什么作用

;修改IP地址代码
;If IsObj($colItems) Then;猜这行作用是:如果找到网卡信息就开始修改
For $objItem In $colItems
        ;$objItem.EnableStatic($SetIPAddress, $SetSubnetmask);修改IP地址及子网掩码
        ;$objItem.SetGateways($SetGateway);修改默认网关
        ;$objItem.SetDNSServerSearchOrder($SetDns);修改首选及备选DNS服务器
Next
;EndIf

;“获取对象”
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE", "WQL", 48)

;获取当前的IP地址
For $objItem In $colItems
        $LocalIP = $objItem.IPAddress(0);获取IP地址
        $LocalSubnetmask = $objItem.IPSubnet(0);获取子网掩码
        $LocalGateway = $objItem.DefaultIPGateway(0);获取默认网关
        $LocalDns1 = $objItem.DNSServerSearchOrder(0);获取首选DNS服务器
        $LocalDns2 = $objItem.DNSServerSearchOrder(1);获取备选DNS服务器
Next

;用对话框显示出来
MsgBox(0, "当前IP地址信息", $LocalIP & @LF & $LocalSubnetmask & @LF & $LocalGateway & @LF & $LocalDns1 & @LF & $LocalDns2)

如题求解:如何由固定IP设置为自动获取IP地址


多谢版主
虽然是以批处理的方式解决的,也还是解决了

;自动获取IP地址
RunWait(@ComSpec & ' /c netsh interface ip set address "本地连接" source=dhcp',"", @SW_HIDE)

[ 本帖最后由 星驰周 于 2008-9-7 18:39 编辑 ]

pcbar 发表于 2008-9-7 17:35:02

dos 下运行
netshinterface ip set address "本地连接" source=dhcp

夜猫猫 发表于 2011-7-18 11:57:05

刚好要用...

fyq 发表于 2013-2-3 20:16:55

不懂也~~~~~~~~~~~~

piaojiankj 发表于 2013-6-3 16:45:12

{:face (356):}{:face (356):}{:face (356):}{:face (356):}
页: [1]
查看完整版本: 如何由固定IP设置为自动获取IP地址