Tác giả: truongphu
Mô tả: Dùng Script Ping dò tìm các máy trong mạng LAN
Mã: Chọn hết
- Private Sub Command1_Click()
- Set objWMI = GetObject("winmgmts:\root\cimv2")
- For i = 0 To 20 '<-- Ping khá lâu, nên làm tu'` tu'`
- 'DoEvents
- Set colPingedComputers = objWMI.ExecQuery _
- ("Select * from Win32_PingStatus Where Address = '10.0.0." & i & "'")
- ' Ðia chi IP mang LAN là Ðia chi Modem ADSL, thuo'`ng khác sô' cuô'i. 10.0.0.2 là Modem CNet
- For Each objComputer In colPingedComputers
- If objComputer.StatusCode = 0 Then
- List1.AddItem "10.0.0." & i & vbTab & "X"
- Else
- List1.AddItem "10.0.0." & i
- End If
- Next
- Next
- MsgBox "Ðã Xong"
- End Sub
Tặng CoffeeShop