IP Adressen in Tabelle in DNS Name umwandeln

14/01/2009 - 13:42 von A. B. | Report spam
Hallo,

ich habe aus einem anderen Programm alle Rechner mit Informationen und auch
IP Adresse in eine Excel (2007) Liste kopiert.

Gibt es eine Möglichkeit diese IP Adressen automatisch umzuwandeln in den
DNS Namen? Die PC´s sind alle in einer Domàne.

Danke
 

Lesen sie die antworten

#1 Andreas Killer
15/01/2009 - 12:12 | Warnen spam
On 14 Jan., 13:42, A. B. wrote:

ich habe aus einem anderen Programm alle Rechner mit Informationen und auch
IP Adresse in eine Excel (2007) Liste kopiert.
Gibt es eine Möglichkeit diese IP Adressen automatisch umzuwandeln in den
DNS Namen? Die PCŽs sind alle in einer Domàne.


Hilft Dir das weiter?

schnipp
Option Explicit

Private Function GetNsLookupAnswer(ByVal strAdr As String) As String
Dim objShell As Object, objExec As Object
Dim strPingResults As String

Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec("nslookup " & strAdr)
GetNsLookupAnswer = objExec.StdOut.ReadAll
Set objExec = Nothing
Set objShell = Nothing
End Function

Private Function GetIpAndName(ByVal strIPOrName$, ByRef strIp$, ByRef
strName$) As Boolean
Dim objRegExp As Object, objMC As Object
Set objRegExp = CreateObject("vbscript.regexp")

objRegExp.Pattern = "^Name: +(.*?)$\s+^Address: +(.*?)$"
objRegExp.MultiLine = True

Set objMC = objRegExp.Execute(GetNsLookupAnswer(strIPOrName$))
If objMC.Count Then
GetIpAndName = True
strName = objMC(0).SubMatches(0)
strIp = objMC(0).SubMatches(1)
End If
Set objRegExp = Nothing
Set objMC = Nothing
End Function

Sub TestIt()
Dim strIp As String, strName As String

If GetIpAndName("COMPUTERNAME", strIp, strName) Then MsgBox strIp,
vbInformation, "IP from Name"
If GetIpAndName("192.168.1.1", strIp, strName) Then MsgBox strName,
vbInformation, "Name from IP"
End Sub
schnapp

Andreas.

Ähnliche fragen