怎么在VB程序中实现IP地址/子网掩码/网关/DNS的更改 急
如何在VB程序中实现IP地址/子网掩码/网关/DNS的更改 急急急...
如题，就是为了修改本地连接中TCP/IP的属性，那位高人有现成的程序，急用。。。
------解决方案--------------------
Option Explicit
Function ChangeIP(IP As String, NM As String, GW As String, MDNS As String, SDNS As String) As String
'杩斿洖鍊艰鏄?杩斿洖涓€涓缃殑涓枃璇存槑.
Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask
Dim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNS
strComputer = ". "
Set objWMIService = GetObject( "winmgmts:\\ " & strComputer & "\root\cimv2 ")
Set colNetAdapters = objWMIService.ExecQuery( "Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE ")
strIPAddress = Array(IP) 'ip鍦板潃
strSubnetMask = Array(NM) '瀛愮綉鎺╃爜
strGateway = Array(GW) '缃戝叧
MsgBox TypeName(strGateway)
strDNS = Array(MDNS, SDNS) '涓籇NS鍚勫DNS
strGatewaymetric = Array(1)
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS) 'DNS涓虹┖鐨勮瘽锛屾敼涓篹rrDNS = objNetAdapter.SetDNSServerSearchOrder()
If errEnable = 0 And errGateways = 0 And errDNS = 0 Then
ChangeIP = "璁剧疆鎴愬姛 "
Else
If errEnable = 0 Then
ChangeIP = "IP鍦板潃鍜屽瓙缃戞帺鐮佽缃垚鍔? "
Else
ChangeIP = "IP鍦板潃鎴栧瓙缃戞帺鐮佽缃け璐? "
End If
If errGateways = 0 Then
ChangeIP = ChangeIP & "榛樿缃戝叧璁剧疆鎴愬姛, "
Else
ChangeIP = ChangeIP & "榛樿缃戝叧璁剧疆澶辫触, "
End If
If errDNS = 0 Then
ChangeIP = ChangeIP & "DNS璁剧疆鎴愬姛 "
Else
ChangeIP = ChangeIP & "DNS璁剧疆澶辫触 "
End If
End If
Next
End Function
Private Sub Command1_Click()
MsgBox ChangeIP( "192.168.17.115 ", "255.255.255.0 ", "192.168.17.1 ", "202.99.160.68 ", "202.99.166.4 ")
End Sub
如题，就是为了修改本地连接中TCP/IP的属性，那位高人有现成的程序，急用。。。
------解决方案--------------------
Option Explicit
Function ChangeIP(IP As String, NM As String, GW As String, MDNS As String, SDNS As String) As String
'杩斿洖鍊艰鏄?杩斿洖涓€涓缃殑涓枃璇存槑.
Dim strComputer, objWMIService, colNetAdapters, strIPAddress, strSubnetMask
Dim strGateway, strGatewaymetric, strDNS, objNetAdapter, errEnable, errGateways, errDNS
strComputer = ". "
Set objWMIService = GetObject( "winmgmts:\\ " & strComputer & "\root\cimv2 ")
Set colNetAdapters = objWMIService.ExecQuery( "Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE ")
strIPAddress = Array(IP) 'ip鍦板潃
strSubnetMask = Array(NM) '瀛愮綉鎺╃爜
strGateway = Array(GW) '缃戝叧
MsgBox TypeName(strGateway)
strDNS = Array(MDNS, SDNS) '涓籇NS鍚勫DNS
strGatewaymetric = Array(1)
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS) 'DNS涓虹┖鐨勮瘽锛屾敼涓篹rrDNS = objNetAdapter.SetDNSServerSearchOrder()
If errEnable = 0 And errGateways = 0 And errDNS = 0 Then
ChangeIP = "璁剧疆鎴愬姛 "
Else
If errEnable = 0 Then
ChangeIP = "IP鍦板潃鍜屽瓙缃戞帺鐮佽缃垚鍔? "
Else
ChangeIP = "IP鍦板潃鎴栧瓙缃戞帺鐮佽缃け璐? "
End If
If errGateways = 0 Then
ChangeIP = ChangeIP & "榛樿缃戝叧璁剧疆鎴愬姛, "
Else
ChangeIP = ChangeIP & "榛樿缃戝叧璁剧疆澶辫触, "
End If
If errDNS = 0 Then
ChangeIP = ChangeIP & "DNS璁剧疆鎴愬姛 "
Else
ChangeIP = ChangeIP & "DNS璁剧疆澶辫触 "
End If
End If
Next
End Function
Private Sub Command1_Click()
MsgBox ChangeIP( "192.168.17.115 ", "255.255.255.0 ", "192.168.17.1 ", "202.99.160.68 ", "202.99.166.4 ")
End Sub