Lo del handle yo lo haria con getnextwindow creo era asi :- los resultados los colocaria en un list, luego un bucle con cada handle y la API GetWindowText- luego utilizar un code para colocar los pass
Set Variable = CreateObject("WScript.Shell") c = InputBox("Ingrese IP") d = InputBox("Numero de peticiones:") Variable.Run ("cmd.exe /c ping " & c & " -n " & d & "")