FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService := FSWbemLocator.ConnectServer('localhost',
    'root\WMI', '', '');
 
 
procedure GetNetworks;
var
  P: IUnknown;
  OEnum: IEnumvariant;
  iValue: LongWord;
 
  cnt: integer;
  f:cardinal;
  OutBufLen: ULONG;
 
  NumInterfaces: Cardinal;
 
    FWbemObjectSet: OLEVariant;
    FWbemObject: OLEVariant;
    AdapterInfo: array of TIpAdapterInfo;
 
 
    connected: integer;
 
    Instancename: string;
    aktiv: boolean;
 
begin;
  GetNumberOfInterfaces(NumInterfaces);
 
  OutBufLen := NumInterfaces * SizeOf(TIpAdapterInfo);
  try
    GetAdaptersInfo(@AdapterInfo[0], OutBufLen);
    try
      FWbemObject := form2.FWMIService.InstancesOf('MSNdis_MediaConnectStatus');
      try
        P := FWbemObject._NewEnum;
        try
          P.QueryInterface(IEnumvariant, OEnum);
          if FWbemObject.count > 0 then
          begin
            for cnt := 0 to FWbemObject.count - 1 do
            begin
             try
              OEnum.Next(1, FWbemObjectSet, f);
              connected := FWbemObjectSet.NdisMediaConnectStatus;
              aktiv := FWbemObjectSet.Active;
              Instancename := FWbemObjectSet.Instancename;
             finally
              FWbemObjectSet:=unassigned;
             end;
            end;
          end;
        except
 
        end;
      finally
        FWbemObject := Unassigned;
      end;
    except
 
    end;
  except
 
  end;
end;