Wie kann ich die IP-Adresse meines Computers abrufen?

Question

Was die am wenigsten beschwerlich (Modul-Integration, Codelänge, etc.) ist Möglichkeit, die Maschine IP-Adresse abgerufen wird (von der ersten Schnittstelle offen)? Ich kenne einige Lösungen mit MSINET, aber ich glaube, wir können es besser machen. Sie antworten

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

nicht, weil es nicht so lustig ... oder zu korrigieren. Das Szenario ist eine Frage mit einem document ID feature Ich versuche, eine Antwort für zu erstellen.

Answer 1

Hier ist ein adaptiertes Beispiel aus 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 

Es erfordert, dass Microsoft WMI Scripting Library in den Referenzen des Projekts enthalten ist.

Answer 2

Sie könnten den Shell-Befehl ipconfig und analysieren die zurückgegebenen Ergebnisse ausführen?

Answer 3

Ein paar Beispiele, die ich gefunden: -

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

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

EDIT

Hier ist der Code von der ersten Verbindung mit einer leichten Modifikation

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 hat eine Schmiere d Artikel darüber, wie man dies mit .net: http://www.codeproject.com/KB/cs/network.aspx

Sie können immer eine ausführbare Konsole daraus erstellen, und rufen Sie es aus VBA.

RO

Answer 5

Es ist eine weitere einfache Möglichkeit, ipconfig verwenden. http://www.vbaexpress.com/kb/getarticle.php?kb_id=537

Answer 6

nbtstat -n könnte den Job auf XP sowieso tun. Nicht sicher über andere Windows-Versionen oder über die Lokalisierung in anderen Sprachen. Teilprobe Ausgabe:

C: \ Dokumente und Einstellungen \ colin> nbtstat -n

LAN-Verbindung: Knoten IpAddress: [192.168.1.100] Scope Id: []

  NetBIOS Local Name Table 

usw.

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