Set objLAN = GetObject("WinMgmts:Win32_NetworkAdapterConfiguration")
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}\\COMP")
Set ObjLAN = WMI.InstancesOf("Win32_NetworkAdapterConfiguration")
for each LANBoard in objlan
msgbox lanboard.ipaddress
next lanboard
SergS писал(а):Почему???
Изменения в регистре вступают в силу сразу!!!
В ХР вовсяком случае...
RayShade писал(а):А можно узнать, в каокм месте кода он тебе ошибку пишет?
zzoom писал(а):Леонид Ильич писал(а): Учится, батенька, учится и еще г'аз учится...
RayShade писал(а):А ты имя компа в моемм примере поменять то удосужился?
X-BOND писал(а):А с каких это пор Вождя мирового пролитариата Лёней зовут?
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 3