Public Sub ChangeIP(ByVal sNewIP As String, ByVal old_ip As String, _
  Optional ByVal sSubNetMask As String = "255.255.255.0")
 
  Dim sSQL As String
  Dim oWMI As Object
  Dim oResult As Object
  Dim oCard As Object
  Dim nStatus As Long
 
  Set oWMI = GetObject("winmgmts:")
   sSQL = "SELECT * FROM win32_NetworkAdapterConfiguration WHERE IPAddress = '" _
     & old_ip & "'"
  Set oResult = oWMI.ExecQuery(sSQL)
 
 Dim temp As Object
  For Each oCard In oResult
    With oCard
    'temp = oCard.ipadress
      If IsArray(.IPAddress) Then
         nStatus = .EnableStatic(Array(sNewIP), Array(sSubNetMask))
 
      End If
    End With
  Next
End Sub