Enklast möjliga och inte speciellt snyggt.
set wsn = createobject("wscript.network")
set wshsdfsdf = createobject("wscript.shell")
set ping = wshsdfsdf.Exec("ping -n 1 -w 1000 " & wsn.ComputerName)
set ipconfig = wshsdfsdf.Exec("ipconfig")
v_ping = ping.StdOut.ReadAll
v_start = instr(1,v_ping,"[")
v_end = instr(v_start,v_ping,"]")
v_ipconfig = ipconfig.StdOut.ReadAll
msgbox mid(v_ping,v_start+1,v_end-v_start-1)
v_start = instr(1,v_ipconfig,"IP Address. . . . . . . . . . . . :")+len("IP Address. . . . . . . . . . . . :")
v_end = instr(v_start,v_ipconfig,vbcrlf)
msgbox mid(v_ipconfig,v_start+1,v_end-v_start-1)
/red. ändrade lite