自动获取到的IP改到固定IP里？[已解决]

流沙枫

;16进制的0x10加上16进制的0x20＝10进制的16＋32＝48
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
 
;"."取代了原代码中的"winmgmts:\\&$strComputer&\root\CIMV2"的$strComputer
$strComputer = "."
 
;具体作用不是很明白，本人的理解是“获取对象”
$objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE", "WQL", 48)
;$colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem");没看出这行在这里起什么作用
 

 
;“获取对象”
$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
 
 ;修改IP地址代码
If IsObj($colItems) Then;猜这行作用是：如果找到网卡信息就开始修改
For $objItem In $colItems
        $objItem.EnableStatic($LocalIP, $LocalSubnetmask);修改IP地址及子网掩码
        $objItem.SetGateways($LocalGateway);修改默认网关
        $objItem.SetDNSServerSearchOrder($LocalDns1);修改首选及备选DNS服务器
Next
EndIf

;预设置的IP地址
;Dim $SetIPAddress[1]
;$SetIPAddress[0] =$objItem.IPAddress(0)
 
;预设置的子网掩码
;Dim $SetSubnetmask[1]
;$SetSubnetmask[0] = $objItem.IPSubnet(0)
 
;预设置的默认网关
;Dim $SetGateway[1]
;$SetGateway[0] = $objItem.DefaultIPGateway(0)
 
;首选及备选DNS服务器
;Dim $SetDns[2] = [$objItem.DNSServerSearchOrder(0), $objItem.DNSServerSearchOrder(1)]

无效的？
。。。。。。。

502762378

回复 1# 流沙枫


    楼主代码哪来的？你确定修改这几项就OK吗？我这边不好测试，你的代码我整理了下，说实话我也很关心这个问题，请反馈成功与否

$objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
$colItem0 = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE", "WQL",48)

For $objItem In $colItems
                $objItem.EnableStatic($objItem.IPAddress(0), $objItem.IPSubnet(0));修改IP地址及子网掩码
        $objItem.SetGateways($objItem.DefaultIPGateway(0);修改默认网关
        $objItem.SetDNSServerSearchOrder($objItem.DNSServerSearchOrder(0));修改首选及备选DNS服务器
Next

流沙枫

回复 2# 502762378


    还是不行.....

ppsfxn

http://sky123.org/forum.php?mod= ... 7&fromuid=60509

流沙枫

ppsfxn 发表于 2012-3-8 10:37

这个不适合我吧？
我的是想要每一台机获取自动IP后，再把得到的IP改为固定的。。。。
你给的只是获取网络上的IP和MAC地址，这个路由都可以得到了！！

au3x

不明白，目的何在，既然能自动获取....还要固定？

502762378

回复 7# au3x


    其实楼主就是想把系统分配的IP设为固定IP

流沙枫

回复  au3x


    其实楼主就是想把系统分配的IP设为固定IP
502762378 发表于 2012-3-10 15:40

握爪......

lpxx

以前写的,调用devcon,参考一下

#include <ACN_NET.au3>
#include<process.au3>
Break(0)
TrayTip(" 初始化信息 ", "重启网卡中请稍等…", 120, 1)
Dim $i
While $i < 6
        $m = _RunDOS('' netsh interface ip set address name = "本地连接" '' & $i & '' source = dhcp'')
        $n = _RunDOS('' netsh interface ip set dns "本地连接" '' & $i & '' source = dhcp'')
        $i += 1
WEnd
RunWait("devcon restart =net pci\*", "", @SW_HIDE)
Sleep(3000)
TrayTip(" 正在获取DHCP信息 ", " 完成进度的30%…请稍候", 120, 1)
$info = _NetworkAdapterInfo()
$T1 = $info[1][4];IP地址
$T2 = $info[1][7];子网掩码
$T3 = $info[1][2];默认网关
$T4 = $info[1][5];主DNS
$T5 = $info[1][6];次DNS
$T6 = $info[1][1];网卡名称
$T7 = $info[1][3];主机名称
$T8 = $info[1][8];MAC地址
$T9 = $info[1][9];连接名称
MsgBox(1, "", "网卡名称：" & $T6 & @CRLF & "连接名称：" & $T9 & @CRLF & "主机名称：" & $T7 & @CRLF & "IP地址：" & $T1 & @CRLF & "子网掩码：" & $T2 & @CRLF & "默认网关：" & $T3 & @CRLF & "主DNS：" & $T4 & @CRLF & "次DNS：" & $T5 & @CRLF & "MAC地址：" & $T8, 3)
Sleep(1000)
TrayTip(" 正在设置固定IP ", "完成进度的60%…请稍候", 120, 1)
_WMI_SetNetworkAdapterInfo(@ComputerName, $T1, $T2, $T3, $T4, $T5, 0)
Sleep(3000)
Dim $Tip = @IPAddress1
Dim $Nip = StringSplit($Tip, ".")
TrayTip(" 正在设置机器名", " 完成进度的90%…请稍候", 120, 1)
Dim $NewName = "LPXX_" & Int(StringFormat("%03d\n", $Nip[4]))
Sleep(1000)
$_Return = DllCall("Kernel32.dll", "int", "SetComputerNameEx", "int", 5, "str", $NewName)
If $_Return[0] <> 0 Then MsgBox(0, "", "新的主机器名是：" & $NewName & @LF & "建议重启电脑生效！", 2)
TrayTip("结束", "完成进度的100%，所有信息设置完毕", 0)
Exit

502762378

楼主不厚道，原来是ACN的UDF

流沙枫

以前写的,调用devcon,参考一下
lpxx 发表于 2012-3-10 23:45

    明天到机房再试下。。。。。

流沙枫

楼主不厚道，原来是ACN的UDF
502762378 发表于 2012-3-11 00:17

    我没说不是啊。。。。
都是先搜索，再把找到的代码改下！！

流沙枫

以前写的,调用devcon,参考一下
lpxx 发表于 2012-3-10 23:45

错误: 表达式错误？
            $m = _RunDOS('' netsh
~~~~~~~~~~~~~~~~~^

流沙枫

以前写的,调用devcon,参考一下
lpxx 发表于 2012-3-10 23:45

            $m = _RunDOS(' netsh interface ip set address name = "本地连接" ' & $i & ' source = dhcp')
        $n = _RunDOS(' netsh interface ip set dns "本地连接" ' & $i & ' source = dhcp')

改成这样通过编译了....

流沙枫

#include <ACN_NET.au3>
#include<process.au3>
Break(0)
TrayTip(" 初始化信息 ", "重启网卡中请稍等…", 120, 1)
Dim $i
While $i < 6
        $m = _RunDOS(' netsh interface ip set address name = "本地连接" ' & $i & ' source = dhcp')
        $n = _RunDOS(' netsh interface ip set dns "本地连接" ' & $i & ' source = dhcp')
        $i += 1
WEnd
RunWait("devcon restart =net pci\*", "", @SW_HIDE)
Sleep(3000)
TrayTip(" 正在获取DHCP信息 ", " 完成进度的30%…请稍候", 120, 1)
$info = _NetworkAdapterInfo()
$T1 = $info[1][4];IP地址
$T2 = $info[1][7];子网掩码
$T3 = $info[1][2];默认网关
$T4 = $info[1][5];主DNS
$T5 = $info[1][6];次DNS
$T6 = $info[1][1];网卡名称
$T7 = $info[1][3];主机名称
$T8 = $info[1][8];MAC地址
$T9 = $info[1][9];连接名称
MsgBox(1, "", "网卡名称：" & $T6 & @CRLF & "连接名称：" & $T9 & @CRLF & "主机名称：" & $T7 & @CRLF & "IP地址：" & $T1 & @CRLF & "子网掩码：" & $T2 & @CRLF & "默认网关：" & $T3 & @CRLF & "主DNS：" & $T4 & @CRLF & "次DNS：" & $T5 & @CRLF & "MAC地址：" & $T8, 3)
Sleep(1000)
TrayTip(" 正在设置固定IP ", "完成进度的60%…请稍候", 120, 1)
_WMI_SetNetworkAdapterInfo(@ComputerName, $T1, $T2, $T3, $T4, $T5, 0)
Sleep(3000)
Dim $Tip = @IPAddress1
Dim $Nip = StringSplit($Tip, ".")
TrayTip(" 正在设置机器名", " 完成进度的90%…请稍候", 120, 1)
Dim $NewName = "LPXX_" & Int(StringFormat("%03d\n", $Nip[4]))
Sleep(1000)
$_Return = DllCall("Kernel32.dll", "int", "SetComputerNameEx", "int", 5, "str", $NewName)
If $_Return[0] <> 0 Then MsgBox(0, "", "新的主机器名是：" & $NewName & @LF & "建议重启电脑生效！", 2)
TrayTip("结束", "完成进度的100%，所有信息设置完毕", 0)
Exit

可以了，thanks....