AutoIt IP修改器，IPv4專用 WMI DEMO

rictirse

1. #include <GuiConstantsEx.au3>
   
2. #include <GuiIPAddress.au3>
   
3. #include <WindowsConstants.au3>
   
4. #include <Array.au3>
   
5. 
   
6. Opt ( "GUIOnEventMode", 1)
   
7. 
   
8. Dim $Cnt = 5
   
9. Dim $hIPAddress[$Cnt]
   
10. Dim $Test[$Cnt] = [ "IP Address", "Subnet Mask", "GateWay", "DNS 1", "DNS 2"]
    
11. Dim $ini = @ScriptDir&"IPList.ini"
    
12. 
    
13. $hgui = GUICreate ( " IP Switch", 195, 240, Default, Default, 1)
    
14. 
    
15. GUISetOnEvent ( $GUI_EVENT_CLOSE, "_Exit")
    
16. 
    
17. For $i = 0 To ($Cnt-1)
    
18.   GUICtrlCreateLabel ( $Test[$i], 10, 24+($i*30), 65)
    
19.   $hIPAddress[$i] = _GUICtrlIpAddress_Create ( $hgui, 75, 20+($i*30), 100, 20)
    
20.   _GUICtrlIpAddress_Set ( $hIPAddress[$i], IniRead ( $ini, "IP Address", "IP_Address"&$i, ""))
    
21. Next
    
22. 
    
23. GUICtrlCreateButton ( "Start", 30, 175, 60,25)
    
24.   GUICtrlSetOnEvent ( -1, "_Start")
    
25. 
    
26. GUICtrlCreateButton ( "Exit", 100, 175, 60,25)
    
27.   GUICtrlSetOnEvent ( -1, "_Exit")
    
28. 
    
29. GUISetState ()
    
30. 
    
31. While True
    
32.   For $i = 0 To ($Cnt-1)
    
33.     _Save( $hIPAddress[$i], "IP_Address"&$i)
    
34.   Next
    
35.   Sleep (50)
    
36. WEnd
    
37. 
    
38. Func _Save($hIPAddress, $iniName)
    
39.   $ipData = _GUICtrlIpAddress_Get($hIPAddress)
    
40.   If $ipData = 0 Then Return
    
41. 
    
42.   If $ipData <> IniRead ( $ini, "IP Address", $iniName, "") Then
    
    
43.     IniWrite ( $ini, "IP Address", $iniName, $ipData)
    
44.   EndIf
    
45. EndFunc
    
46. 
    
47. Func _Start()
    
48.   Local $InterFace="區域連線"
    
49.   Local $IPX = '00004444'
    
50. 
    
51.   Local $IpADD = _GUICtrlIpAddress_Get($hIPAddress[0])
    
52.   Local $SubMask = _GUICtrlIpAddress_Get($hIPAddress[1])
    
53.   Local $GateWay = _GUICtrlIpAddress_Get($hIPAddress[2])
    
54.   Local $DNS1 = _GUICtrlIpAddress_Get($hIPAddress[3])
    
55.   Local $DNS2 = _GUICtrlIpAddress_Get($hIPAddress[4])
    
56. 
    
57.   _WMI_SetNetworkAdapterInfo( $InterFace, $IpADD, $SubMask, $GateWay, $DNS1, $DNS2, $IPX)
    
58. 
    
59.   MsgBox ( 0, "", "完成")
    
60. EndFunc
    
61. 
    
62. Func _Exit()
    
63.   Exit
    
64. EndFunc
    
65. 
    
66. Func _WMI_SetNetworkAdapterInfo($HostName, $IpADD, $SubMask, $GateWay, $DNS1, $DNS2, $IPX)
    
67.   Dim $SetDns[2], $SetIPAddress[1], $SetSubnetmask[1], $SetGateway[1]
    
68.   $SetDns[0] = $DNS1
    
69.   $SetDns[1] = $DNS2
    
70.   $SetIPAddress[0] = $IpADD
    
71.   $SetSubnetmask[0] = $SubMask
    
72.   $SetGateway[0] = $GateWay
    
73.   Local $objWMIService = ObjGet("winmgmts:\localhostrootCIMV2")
    
74.   Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = TRUE", "WQL", 0x10 + 0x20)
    
75.   Local $colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    
76.   Local $objNetworkSettings = $objWMIService.Get("Win32_NetworkAdapterConfiguration")
    
77.   For $objNetAdapter In $colComputers
    
78.     $objNetAdapter.Rename($HostName)
    
    
79.   Next
    
80.   If IsObj($colItems) Then
    
81.     For $objNetAdapter In $colItems
    
82.       $objNetAdapter.EnableStatic($SetIPAddress, $SetSubnetmask)
    
83.       $objNetAdapter.SetGateways($SetGateway)
    
84.       $objNetAdapter.SetDNSServerSearchOrder($SetDns)
    
85.     Next
    
86.   EndIf
    
87.   $objNetworkSettings.SetIPXVirtualNetworkNumber($IPX)
    
88. EndFunc

複製代碼