Hent IP adresse i Excel med VBA

Kan du selv rette til

Public Sub test2()
Dim NIC1, Nic, StrIP, CompName

Set NIC1 = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each Nic In NIC1

If Nic.IPEnabled Then

StrIP = Nic.IPAddress(I)

Set WshNetwork = CreateObject("WScript.Network")

CompName = WshNetwork.Computername

MsgBox "IP Address: " & StrIP & vbNewLine _
& "Computer Name: " & CompName, 4160, "IP Address and Computer Name"


End If

Next
End Sub

som funktion

Public Function MinIP() As String

Dim NIC1, Nic, StrIP, CompName

Set NIC1 = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each Nic In NIC1

If Nic.IPEnabled Then

MinIP = Nic.IPAddress(I)
Exit Function
End If

Next
End Function

Kaldes med
=MinIP()

;-))

Det er oversejt, mange tak for din ekspertise, og meget hurtige tilbagemelding :) Men kære Kabbak kan du ikke give et eksempel på den public sub, hvor adressen ikke kommer i msgbox, men ind i en celle, og ipadressen i sin egen celle og comp. name i en anden? Du får naturligvis dine velfortjente point :)

#2 giver IP

her er computermame

Public Function CompName() As String
    Set WshNetwork = CreateObject("WScript.Network")
    CompName = WshNetwork.Computername
End Function

Kaldes i cellen med
=CompName()

Tak tak endnu en gang :)