VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "線路切換"
   ClientHeight    =   3090
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   StartUpPosition =   2  'CenterScreen
   Begin VB.TextBox Text2 
      Height          =   495
      Left            =   120
      TabIndex        =   3
      Text            =   "192.168.124.2"
      Top             =   1560
      Width           =   2055
   End
   Begin VB.TextBox Text1 
      Height          =   495
      Left            =   120
      TabIndex        =   2
      Text            =   "192.168.124.1"
      Top             =   720
      Width           =   2055
   End
   Begin VB.CommandButton Command2 
      Caption         =   "SA"
      Height          =   615
      Left            =   2760
      TabIndex        =   1
      Top             =   1560
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "SA"
      Height          =   615
      Left            =   2760
      TabIndex        =   0
      Top             =   720
      Width           =   1455
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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) '網關
strDNS = Array(MDNS, SDNS) '主DNS各備DNS
strGatewaymetric = Array(1)

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNS = objNetAdapter.SetDNSServerSearchOrder(strDNS)
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()

bResult = MsgBox(ChangeIP("", "", Text1.Text, "", ""), , "提示")

End Sub

Private Sub Command2_Click()
bResult = MsgBox(ChangeIP("", "", Text2.Text, "", ""), , "提示")

End Sub