Visual Basic - Script para IPs

Tengo el siguiente problemita.
Tengo este script para modificar la ips de la placa, que funciona bien
Pero ahora voy a colocar el script en una notebook y como tiene dos placas una Fija y otra inalambrica, lo que quiero hacer es seleccionar la placa a la que quiero asignarla la ip fija.
Mi codigo es el sigiente:

¿Que propiedad del objeto objNetAdapter o otro objeto tendria que usar para poder asignarle a la que yo quiero la ip?
Me han dicho que use objNetAdapter.Name pero no anda, ademas no se donde colocar la seleccion de la placa de red a usar

Private Sub cmd_fija_2_Click()

strComputer = "."

DomainDNSRegistrationEnabled = False

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=true")

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
errEnable = objNetAdapter.SetDNSServerSearchOrder(Null)
Next

If errEnable = 0 Then
strAnswer = MsgBox("La direcion IP a sido borrada.", vbOKOnly + vbInformation)
If strAnswer = vbOK Then
fra1.Enabled = False
fra2.Enabled = False
cmd_eliminar.Enabled = True
cmd_asignar.Enabled = True
End If
Else
strAnswer = MsgBox("La direcion IP no a sido borrada.", vbOKOnly + vbCritical)
fra1.Enabled = False
fra2.Enabled = False
cmd_eliminar.Enabled = True
cmd_asignar.Enabled = True
End If

End Sub