VB如何判断局域网内机器是否开机

Question

有一个text，一个command，在text中填写IP然后点击command按钮，如果开机了，就在窗体中打印出“开机”反之，就是打印“关机”。我是VB初学者，希望能给注解，谢谢了。
谢谢一楼，可是我是初学者，不知道，如何调用，怎么使用，求求大家教教我。

Answer 1

下面这个是Ping 的脚本 成功返回true 不成功返回false
Public Function Pings(strMachines As String) As Boolean
aMachines = Split(strMachines, ";")
For Each machine In aMachines
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & machine & "'")
For Each objStatus In objPing
If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
Debug.Print ("machine " & machine & " is not reachable")
Pings = False
Else
Pings = True
End If
Next
Next
End Function
ping通就是开机，否则就关机了