Set objShell = WScript.CreateObject("WScript.Shell")

getIP("localhost")

Function getIP(strComputer)

op = runCMD("ping " & strComputer & " -n 1")

op = Right(op,Len(op)-inStr(op,"["))

op = Left(op,inStr(op,"]")-1)

Wscript.Echo op

End Function

Function runCMD(strRunCmd)

 
 Set oExec = objShell.Exec(strRunCmd)
 
 strOut = ""

 Do While Not oExec.StdOut.AtEndOfStream

  strOut = strOut & oExec.StdOut.ReadLine()
 
 Loop

 runCMD = strOut

End Function