关于网友提出的“ WMI获取DNS出错”问题疑问，本网通过在网上对“ WMI获取DNS出错”有关的相关答案进行了整理，供用户进行参考，详细问题解答如下：
问题： WMI获取DNS出错
描述: uses ComObj, ActiveX;
var
WMi, Objs, Obj: OleVariant;
Enum: IEnumVariant;
C: Cardinal;
s: array of string;
i: Integer;
Name, DNS: string;
begin
Dns := '';
Wmi:= CreateOleObject('WbemScripting.SWbemLocator');
Objs := Wmi.ConnectServer('.','root\cimv2')
.ExecQuery('Select * from Win32_NetworkAdapterConfiguration where IPEnabled!=0');
Enum := IEnumVariant(IUnknown(Objs._NewEnum));
Enum.Reset;
C := 0;
while Succeeded(Enum.Next(1, Obj, C)) and (C > 0) do
begin
begin
Name := Obj.Properties_.Item('Description', 0).Value;
s := Obj.Properties_.Item('DNSServerSearchOrder', 0).Value;
begin
DNS := DNS + Name + #13#10;
for i := 0 to High(s) do Dns := DNS + (s[i]) + #13#10;
end;
DNS := DNS + #13#10;
end;
end;
ShowMessage(DNS);
end;
http://topic.csdn.net/u/20080619/00/91b00ba7-7c7f-4fe2-8f8e-b081b3d13610.html
老之 的 一运行就出错 希望高手能修改下
以上介绍了“ WMI获取DNS出错”的问题解答，希望对有需要的网友有所帮助。
本文网址链接：http://www.codes51.com/itwd/3698308.html
