Option Explicit
 
 strGateway As Variant, strGatewaymetric As Variant, strDNSServers As Variant
 
Dim objWMIService As Object
 
Dim objItem As Object, colItems As Object
 
 
Private Sub Form_Load()
 
'On Error Resume Next
 
strComputer = "."
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set colItems = objWMIService.ExecQuery("Select * from" & _
  "Win32_NetworkAdapterConfiguration where IPEnabled = true")
 
End Sub
 
 
Sub goDHCP()
 
For Each objItem In colItems
 
Dim errEnable As Long, errDNS, errDDNS, errRenew
 
errEnable = objItem.EnableDHCP()
 
    If errEnable = 0 Then
 
        MsgBox "DHCP has been enabled"
 
    Else
 
        MsgBox "DHCP could not be enabled: " & errEnable
 
    End If
 
    MsgBox "setting DNS"
 
    errDNS = objItem.SetDNSServerSearchOrder()
 
    errDDNS = objItem.SetDynamicDNSRegistration
 
        MsgBox "DNS Set"
 
    errRenew = objItem.RenewDHCPLease
 
    MsgBox "renew called"
 
    If errRenew = 0 Then
 
        MsgBox "DHCP lease renewed."
 
    Else
 
        MsgBox "DHCP lease could not be renewed." & Err.Number & Err.Description
 
    End If
 
Next
 
End Sub

>> <<