'v2.5***************************************************
' File:   ip-aus-name.vbs
' Autor:  dieseyer@gmx.de 
'         http://dieseyer.de
'
' Programm ermittelt die IP-Adressen aus einem PC-Name
'*******************************************************

' Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl

Set WSHShell  = WScript.CreateObject("WScript.Shell")
Set FSO       = CreateObject("Scripting.FileSystemObject")
Set WSHNet    = WScript.CreateObject("WScript.Network")

Ziel          = "~tmp~.tmp"
PCname        = "MeinPC"
PCname        = InputBox("Von welchen PC soll die IP-Adr. ermittelt werden?", WScript.ScriptName, PCname)

WSHShell.run ("%comspec% /c Ping " & PCname & " -n 1 -w 500 > " & Ziel), 0, True     ' Ping nur einmal ausführen
set WSHShell = nothing

Set FileIn = fso.OpenTextFile(Ziel, 1 )                  ' Datei zum Lesen öffnen 
  TextX = FileIn.ReadAll                                      ' alles lesen
          FileIn.Close
Set FileIn = nothing
  if fso.FileExists(Ziel) Then fso.DeleteFile(Ziel), True     ' Datei löschen 
  
TextX = Split(TextX, vbCRLF)                                  ' alles gelesene in Zeilen aufteilen

for i1 = 0 to ubound(TextX)                                   ' jede Zeile überprüfen
  If InStr(UCase(TextX(i1)), "TTL=")  Then                    ' ob TTL= enthalten ist, wenn ja (PING war erfolgreich)

' Bei der Ping-Ausgabe befindet sich hinter der IP-Adresse ein ":" - was links  vom ":" steht, ist interessant
  EndIPadr   = Mid(TextX(i1), 1, InStr(UCase(TextX(i1)), ":") -1 )  

' Bei der Ping-Ausgabe befindet sich   vor  der IP-Adresse ein " " - was rechst vom " " steht, ist die IP-Adr.
  IPadr = Mid(EndIPadr, InStrRev(EndIPadr, " ") +1 )

    End If
  next

if     IPadr = "" then MsgBox "Von   " & PCname & "   konnte die IP-Adr. nicht ermittelt werden!", , WScript.ScriptName
if not IPadr = "" then MsgBox PCname & "   hat IP-Adr.   " & IPadr                               , , WScript.ScriptName