Comment récupérer l'adresse IP de cet ordinateur?

Question

Quelle est la méthode la moins encombrante (module-inclusion, longueur de code, etc.) pour récupérer l'adresse IP de la machine (de la première interface ouverte)? Je connais certaines solutions utilisant MSINET, mais je crois que nous pouvons faire mieux. Ne répondez pas

Function HomeIP() as Atring 
HomeIP= "127.0.0.1" 
End Function 

parce que c'est pas drôle ... ou corriger. Le scénario est une question avec un document ID feature J'essaye de créer une réponse pour.

Answer 1

Voici un exemple adapté de Technet:

Function GetIPAddress() 
    Const strComputer As String = "." ' Computer name. Dot means local computer 
    Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i 
    Dim strIPAddress As String 

    ' Connect to the WMI service 
    Set objWMIService = GetObject("winmgmts:" _ 
     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

    ' Get all TCP/IP-enabled network adapters 
    Set IPConfigSet = objWMIService.ExecQuery _ 
     ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE") 

    ' Get all IP addresses associated with these adapters 
    For Each IPConfig In IPConfigSet 
     IPAddress = IPConfig.IPAddress 
     If Not IsNull(IPAddress) Then 
      strIPAddress = strIPAddress & Join(IPAddress, ", ") 
     End If 
    Next 

    GetIPAddress = strIPAddress 
End Function 

Vous devez disposer de Microsoft WMI Scripting Library dans les références du projet.

Answer 2

Vous pouvez exécuter la commande shell ipconfig et analyser les résultats renvoyés?

Answer 3

Quelques exemples que je trouve: -

http://www.everythingaccess.com/tutorials.asp?ID=Get-all-IP-Addresses-of-your-machine

http://puremis.net/excel/code/079.shtml

EDIT

Voici le code de la première liaison avec une légère modification

Option Explicit 

' VBA MODULE: Get all IP Addresses of your machine 
' (c) 2005 Wayne Phillips (http://www.everythingaccess.com) 
' Written 18/05/2005 
' 
' REQUIREMENTS: Windows 98 or above, Access 97 and above 
' 
' Please read the full tutorial here: 
' http://www.everythingaccess.com/tutorials.asp?ID=Get-all-IP-Addresses-of-your-machine 
' 
' Please leave the copyright notices in place. 
' Thank you. 
' 
'Option Compare Database 

'A couple of API functions we need in order to query the IP addresses in this machine 
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) 
Public Declare Function GetIpAddrTable Lib "Iphlpapi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long 

'The structures returned by the API call GetIpAddrTable... 
Type IPINFO 
    dwAddr As Long   ' IP address 
    dwIndex As Long   ' interface index 
    dwMask As Long   ' subnet mask 
    dwBCastAddr As Long  ' broadcast address 
    dwReasmSize As Long ' assembly size 
    Reserved1 As Integer 
    Reserved2 As Integer 
End Type 

Public Function ConvertIPAddressToString(longAddr As Long) As String 

    Dim IPBytes(3) As Byte 
    Dim lngCount As Long 

    'Converts a long IP Address to a string formatted 255.255.255.255 
    'Note: Could use inet_ntoa instead 

    CopyMemory IPBytes(0), longAddr, 4 ' IP Address is stored in four bytes (255.255.255.255) 

    'Convert the 4 byte values to a formatted string 
    While lngCount < 4 

     ConvertIPAddressToString = ConvertIPAddressToString + _ 
            CStr(IPBytes(lngCount)) + _ 
            IIf(lngCount < 3, ".", "") 

     lngCount = lngCount + 1 

    Wend 

End Function 

Public Function GetFirstNonLocalIPAddress() 

    Dim Ret As Long, Tel As Long 
    Dim bytBuffer() As Byte 
    Dim IPTableRow As IPINFO 
    Dim lngCount As Long 
    Dim lngBufferRequired As Long 
    Dim lngStructSize As Long 
    Dim lngNumIPAddresses As Long 
    Dim strIPAddress As String 

On Error GoTo ErrorHandler: 

    Call GetIpAddrTable(ByVal 0&, lngBufferRequired, 1) 

    If lngBufferRequired > 0 Then 

     ReDim bytBuffer(0 To lngBufferRequired - 1) As Byte 

     If GetIpAddrTable(bytBuffer(0), lngBufferRequired, 1) = 0 Then 

      'We've successfully obtained the IP Address details... 

      'How big is each structure row?... 
      lngStructSize = LenB(IPTableRow) 

      'First 4 bytes is a long indicating the number of entries in the table 
      CopyMemory lngNumIPAddresses, bytBuffer(0), 4 

      While lngCount < lngNumIPAddresses 

       'bytBuffer contains the IPINFO structures (after initial 4 byte long) 
       CopyMemory IPTableRow, _ 
          bytBuffer(4 + (lngCount * lngStructSize)), _ 
          lngStructSize 

       strIPAddress = ConvertIPAddressToString(IPTableRow.dwAddr) 

       If Not ((strIPAddress = "127.0.0.1")) Then 

        GetFirstNonLocalIPAddress = strIPAddress 
        Exit Function 

       End If 

       lngCount = lngCount + 1 

      Wend 

     End If 

    End If 

Exit Function 

ErrorHandler: 
    MsgBox "An error has occured in GetIPAddresses():" & vbCrLf & vbCrLf & _ 
      Err.Description & " (" & CStr(Err.Number) & ")" 

End Function 

Answer 4

CodeProject a un goo d article sur la façon de le faire avec .net: http://www.codeproject.com/KB/cs/network.aspx

Vous pouvez toujours créer un exécutable de console à partir de ceci, et l'appeler à partir de VBA.

RO

Answer 5

Il y a un autre moyen facile en utilisant ipconfig. http://www.vbaexpress.com/kb/getarticle.php?kb_id=537

Answer 6

nbtstat -n peut faire le travail sur XP de toute façon. Vous n'êtes pas sûr des autres versions de Windows ou de la localisation dans d'autres langues. sortie partielle de l'échantillon:

C: \ Documents and Settings \ colin> nbtstat -n

Local Area Connection: Adresse IP du noeud: [192.168.1.100] Champ d'application Id: []

  NetBIOS Local Name Table 

etc.

Answer 7

Option Explicit 
Sub Main() 

Dim wsh As Object 
Dim strIPOutputFile As String, strSingleLine As String, strIP As String, strToFind As String 
Dim intSourceFile As Integer, intLocation As Integer 

    Set wsh = CreateObject("WScript.Shell") 

    strIPOutputFile = "C:\Users\MeMeMeMe\Desktop\txtfile.txt" 

'Save ipconfig info to file 
    wsh.Run "%comspec% /c ipconfig/all> """ & strIPOutputFile & """ 

'Close any open text files 
    Close 

'Get the number of the next free text file 
    intSourceFile = FreeFile 

    Open strIPOutputFile For Input As intSourceFile 

    strToFind = "IPv4 Address. . . . . . . . . . . :" 'This will probably depend on your file 
    Do Until EOF(intSourceFile) 
     Input #intSourceFile, strSingleLine 
     If InStr(1, strSingleLine, strToFind) > 0 Then 
     Exit Do 
     End If 
    Loop 

    intLocation = Len(strToFind) 
    strIP = Trim(Mid(strSingleLine,1 + intLocation,Len(strSingleLine) - intLocation)) 

    intLocation = Len(strIP) 
    While Not IsNumeric(Mid(strIP,intLocation,1)) 
     strIP = Left(strIP, Len(strIP) - 1) 
     intLocation = Len(strIP) 
    Wend 

    Close 

    MsgBox strIP 

End Sub