>>315
失礼しました
これだけ省いたらわからないですね。
WMIでIPアドレスを取得しようとしています

Variant Locator = CreateOleObject("WbemScripting.SWbemLocator");
Variant Service = Locator.Exec(Function("ConnectServer"));
Variant Set = Service.Exec(Function("ExecQuery") <<

"Select IPAddress
From Win32_NetworkAdapterConfiguration \
WHERE IPEnabled = true");

IUnknown* EnumUnknown = (IUnknown*)Set.Exec(PropertyGet("_NewEnum"));
IEnumVARIANT* Enum = 0;

if(EnumUnknown->QueryInterface(IID_IEnumVARIANT, (void**)&Enum) == S_OK) {
tagVARIANT tag;
unsigned long ret;
while(Enum->Next(1, &tag, &ret) == S_OK) {
Variant Result = &tag;

AnsiString IPAdress;

IPAdress = Result.Exec(PropertyGet("IPAdress"));
}