Имя машины - SYS(0), а можно узнать IP - адрес (IPconfig).
Спасибо.

MSDN - тока я такими вещами не занималься - да у меня например 3 сетервых карты с казными IP адресами - какой выбирать ? А тк смотри в сторону

Цитата:

GetIpAddrTable
The GetIpAddrTable function retrieves the interface–to–IP address mapping table.

DWORD GetIpAddrTable(
PMIB_IPADDRTABLE pIpAddrTable, // buffer for mapping table
PULONG pdwSize, // size of buffer
BOOL bOrder // sort the table
);

------------------

И еще это еще для какого интерфейса ? А то глянут тут одну свою прогу по расчету трафика а там вот такие декларации стоят




------------------

PIVA можно по подробнее:

Declare Integer GetNumberOfInterfaces in iphlpapi.dll integer @
Declare Integer GetIfTable in iphlpapi.dll string @, integer @, integer

где здесь взять адрес, у меня возращается 0, в обоих случаях, может что ни так делаю.

Вот прога по просмотру трафика по интерфейсам - там тока надо сделать свои функции преобразования чисел в винарный формат




------------------

А вообщето в решениях был пример Андрея Петрова как перехватывать StdOut там же можно запустить IPConfig и прочитать буфер вывода - это для простоты




------------------

В ХР можно так:
os=createObject( "rcbdyctl.setting" )
ip = oS.GetIPAddress

Попробуй такой вариант:

LOCAL lcComputer, loWMIService,loItemCollection
lcComputer = "."
loWMIService = GetObject("winmgmts:\\" + lcComputer + "\root\cimv2")
loItemCollection = loWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration",,48)
For Each loItem in loItemCollection
IF !ISNULL(loItem.IPAddress)
? "Caption: " + loItem.Caption
? "DatabasePath: " + loItem.DatabasePath
? "Description: " + loItem.Description
? "Index: " + STR(loItem.Index)
For i = 0 To ALEN(loItem.IPAddress,2)
? "IP address:" + loItem.IPAddress(i)
Next
? "MACAddress: " + ;
IIF(!IsNull(loItem.MACAddress),loItem.MACAddress,"Not defined for this type of adapters!")
? "ServiceName: " + loItem.ServiceName
? "SettingID: " + loItem.SettingID
ENDIF
Next

Для W2k и выше.

От модератора: источник www.hot.ee

Спасибо!!!

Можно проще узнать IP !

_o=CREATEOBJECT( "MSWinsock.Winsock" )
?_o.LocalIP

Им-же можно и имя машины узнать:

?_o.LocalHostName

Смотри код от mrozowski в FoxTalk 2002/06

Причем в решении если немного подправить то можно и обойтись без маргания окна. Ща напишу прям туда...




------------------