'*** 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 )