Change IP mode (Static/Dynamic)

Private Sub ChangeIPMode(ByVal iMode As Integer)
 
        ' This script runs in the following modes
        ' iMode = 0 Query mode.
        '       = 1 Static IP mode.
        '       = 2 Dynamic(DHCP) IP mode.
        ' To use this script, first run it in query mode to find out the network adapter index.
        ' Change iIndex according to the result from query mode. You can then create 2 scripts
        ' based upon this script. Name one script as staticip.vbs and the other dynamicip.vbs and
        ' change the iMode and static IP configuration accordingly.
 
        '// Adapter Index
        Const iIndex As Integer = 1
 
        Dim strIPAddress
        Dim strSubnetMask
        Dim strGateway
        Dim strDNSServerSearchOrder
        Dim strGatewayMetric
        Dim strComputer
        Dim blnQuery As Boolean
        Dim blnDHCPEnabled As Boolean
 
        Dim objWMIService
        Dim colNetAdapters
 
        ' The static IP address configuration here
        strIPAddress = "192.168.1.60"
        strSubnetMask = "255.255.255.0"
        strGateway = "192.168.1.1"
        strDNSServerSearchOrder = "192.186.1.103"
        strGatewayMetric = "1"
 
        'Do not change below.
        strComputer = "."
        objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
        colNetAdapters = objWMIService.ExecQuery _
            ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
 
        Select Case iMode
            Case 0
                blnQuery = True
            Case 1
                blnDHCPEnabled = False
            Case 2
                blnDHCPEnabled = True
        End Select
 
        Dim errDNSServerSearchOrder
        Dim errEnable
        Dim errGateways
 
        ' Try
 
 
        For Each objNetAdapter In colNetAdapters
            If blnQuery Then
                MessageBox.Show("Adpater index = " & " " & objNetAdapter.Index & vbTab & _
                objNetAdapter.Description)
            Else
                If objNetAdapter.Index = iIndex Then
                    If blnDHCPEnabled = True Then
                        errDNSServerSearchOrder = objNetAdapter.SetDNSServerSearchOrder()
                        errEnable = objNetAdapter.EnableDHCP()
                        errGateways = objNetAdapter.RenewDHCPLease()
                    Else
                        errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
                        errGateways = objNetAdapter.SetGateways(strGateway, strGatewayMetric)
                        errDNSServerSearchOrder = objNetAdapter.SetDNSServerSearchOrder(strDNSServerSearchOrder)
                    End If
                    If (errEnable = 0) And (errDNSServerSearchOrder = 0) And (errGateways = 0) Then
                        MessageBox.Show("The IP address has been changed.")
                    Else
                        MessageBox.Show("The IP address could not be changed.")
                    End If
                End If
            End If
        Next
 
        Dim s As String = "Win32_NetworkAdapterConfiguration WHERE IPEnabled = True"
        Dim WMISearcher As System.Management.ManagementObjectSearcher = _
                        New ManagementObjectSearcher("SELECT * FROM " + s)
        Dim para As ManagementBaseObject = Nothing
        Dim iface As String = Nothing
        For Each mo As ManagementObject In WMISearcher.Get
            iface = mo("Caption").ToString()
            If Not CBool(mo("DHCPEnabled")) AndAlso _
               MessageBox.Show(String.Format("Für das Interface "" {0} "" DHCP aktivieren?", iface), "", _
               MessageBoxButtons.YesNo) = DialogResult.Yes Then
                mo.InvokeMethod("EnableDHCP", New Object() {})
            End If
        Next
        'Catch ex As Exception
 
        'End Try
    End Sub