Access & API functions

[Sparxy]

Может кто пользовался через VBA API функциями?
Точнее мне надо сменить ip адрес программно.

[EducatedFool]

Для смены IP-адреса совсем необязательно использовать WinAPI.
Гораздо проще использовать WMI.

Считать все назначенные сетевым картам IP-адреса можно так:

Function Get_All_IP_Addresses() As Collection
    Set Get_All_IP_Addresses = New Collection
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

    For Each objAdapter In colAdapters
        If Not IsNull(objAdapter.IPAddress) Then
            For i = 0 To UBound(objAdapter.IPAddress)
                Get_All_IP_Addresses.Add objAdapter.IPAddress(i)
            Next
        End If
    Next
End Function

Sub test_Get_All_IP_Addresses()
    For Each i In Get_All_IP_Addresses
        Debug.Print i
    Next
End Sub

Сменить адрес ненамного сложнее.
К примеру, можно выполнить bat-файл из одной строки:

netsh interface ip set address local static 192.168.1.123 255.255.255.0

Здесь local - название сетевой карты

Почитайте про Win32_NetworkAdapterConfiguration

[Abrakadabra]

Сообщение от Sparxy

мне надо сменить ip адрес программно.

можно просто

Shell "netsh interface ip set address "Подключение по локальной сети" static 192.168.0.55 255.255.255.0 192.168.0.1 1", vbHide

[Sparxy]

спасибо, буду пробовать