Você não precisa criar uma nova API. Use a classe WMI do VBScript.
link
De longe, a melhor maneira de fazer isso é não enumerar os NICs primeiro. Em vez disso, analise a tabela de roteamento. É o mesmo mecanismo que o computador usa para decidir para onde encaminhar pacotes à Internet, o que eu suponho ser seu objetivo principal.
Um exemplo
Set Host = "."
Set WMI = GetObject("winmgmts:\" & Host & "\root\CIMV2")
Set intIndex = WMI.ExecQuery("SELECT InterfaceIndex FROM Win32_IP4RouteTable WHERE Destination='0.0.0.0'")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter WHERE InterfaceIndex= " & intIndex)
Isso retornará quaisquer adaptadores no topo da tabela de roteamento.