如何在VBA中ping某一台電腦?

程式碼如後:
若ping成功則blnOK為true, 否則為false.
blnOK = GetObject("winmgmts:").Get("NetDiagnostics=@").Ping(strAddr, Ping)