[求助]獲得ping返回問題

我在VBA中可以用代碼 application.system("cmd /k"  &"ping www.baidu.com")

來知道網絡是否暢通，我現在需要這樣的結果，就是如果能連通，返回1，不能連通，返回0，請問這個程序要怎么編寫啊？