Informace se sit.adapteru (Delphi)

Zdravím.
Jelikož jsem lama,měl bych 2 dotazy na Ty zkušenější ohledně sit,adaptéru.
Našel jsem toto http://delphi.cjcsoft.net/viewthread.php?tid=43310
Trochu upravene.

function GetIpConfig : iIPResult;
var Retvar : integer;
x: string;
oBindObj : IDispatch;
i,iValue : longword;
oEnum : IEnumvariant;
oCtx : IBindCtx;
oMk : IMoniker;
sFileObj : widestring;
dnsArray: array of string;
begin
Retvar := 0;
sFileObj := 'winmgmts:\\.\root\cimv2';
//------------------------------------------------ ------------------------------
OleCheck(CreateBindCtx(0,oCtx));
OleCheck(MkParseDisplayNameEx(oCtx,PWideChar(sFile Obj),i,oMk));
OleCheck(oMk.BindToObject(oCtx,nil,IUnknown,oBindO bj));
oWMIService := oBindObj;
oNetAdapters := oWMIService.ExecQuery('Select * from ' +
'Win32_NetworkAdapterConfiguration ' +
'where IPEnabled=TRUE');
oEnum := IUnknown(oNetAdapters._NewEnum) as IEnumVariant;
while oEnum.Next(1,oNetAdapter,iValue) = 0 do
begin
If copy(oNetAdapter.Caption,12,length(oNetAdapter.Cap tion)) <> 'Řadič Realtek PCIe GBE Family Controller' then exit
else
try
StavAdapteru := oNetAdapter.DHCPEnabled;
If oNetAdapter.DHCPEnabled = false then

begin
result.DNS := oNetAdapter.DNSServerSearchOrder;
result.IPAdress := oNetAdapter.IPAddress;
result.SubnetMask := oNetAdapter.IPSubnet;
result.Gateway := oNetAdapter.DefaultIPGateway;
end;
except
Retvar := -1;
end;
oNetAdapter := Unassigned;
end;
oGateWay := Unassigned;
oSubnetMask := Unassigned;
oIpAddress := Unassigned;
oNetAdapters := Unassigned;
oWMIService := Unassigned;
end;

Dotaz1:
Když zavolám tuto funkcí a je vše nastavené,tak je to OK.
Když ji však zavolám, a nejsou nastavená DNS tak to vyhodí chybu.
Proč?
Dá se to nějak vyřešíte aby mi to vypisovalo IP,masku a branu i bez nastavených DNS?

Dotaz2:
Je tam StavAdapteru := oNetAdapter.DHCPEnabled;
Ještě jsem netestoval, ale mělo by to vracet stav adaptéru.
Co se dá s oNetAdapter ještě vytáhnout za informace?