'*** v4.B *** www.dieseyer.de ******************************* 

' 

' Datei:  ip-aus-name2.vbs 

' Autor:  dieseyer@gmx.de  

' Auf:    www.dieseyer.de 

' 

' Programm ermittelt die IP-Adressen aus einem PC-Name 

' 

'************************************************************ 

 

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

 

  Dim WSHNet      : Set WSHNet    = WScript.CreateObject("WScript.Network") 

 

  Dim PCName 

 

  PCName = wshnet.ComputerName 

  PCName = "Server01" 

  PCName = InputBox( vbCRLF & vbCRLF & "Von welchem PC soll IP-Adresse ermittelt werden?", WScript.ScriptName, PCName ) 

 

MsgBox IPAdr(PCName), ,WScript.ScriptName 

 

'*** v4.B *** www.dieseyer.de ******************************* 

Function IPAdr( PC )  

'************************************************************ 

  Dim WSHShell    : Set WSHShell  = WScript.CreateObject("WScript.Shell") 

  Dim oExec       : Set oExec     = WshShell.Exec("%comspec% /c Ping " & PC & " -n 1 -w 500" )  

 

  Do While Not oExec.StdOut.AtEndOfStream  

    IPadr = oExec.StdOut.ReadLine 

     

    If InStr( IPadr, "TTL=") Then  

 

      IPadr = Mid( IPAdr, 1, InStr(   IPAdr, ":")-1)              

        ' Löscht alles hinter ":" und das ":" 

 

      IPadr = Mid( IPAdr, InStrRev(IPAdr, " ") +1   )   

        ' von Rechts beginnend (InStrRev) wird alles vor dem 

        ' ersten Leerzeichen gelöscht 

      IPadr = "==>" & IPadr & "<==" 

      Exit Do  

    End If 

     

  Loop  

 

End Function ' IPAdr( PC )