• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Dùng Script Ping dò tìm các máy trong mạng LAN

Các thủ thuật về hệ thống, thư mục, tập tin và mạng
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4763
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Dùng Script Ping dò tìm các máy trong mạng LAN

Gửi bàigửi bởi truongphu » T.Năm 13/08/2009 8:19 pm

Thủ thuật: Dùng Script Ping dò tìm các máy trong mạng LAN
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

  1. Private Sub Command1_Click()
  2. Set objWMI = GetObject("winmgmts:\root\cimv2")
  3. For i = 0 To 20 '<-- Ping khá lâu, nên làm tu'` tu'`
  4. 'DoEvents
  5.     Set colPingedComputers = objWMI.ExecQuery _
  6.     ("Select * from Win32_PingStatus Where Address = '10.0.0." & i & "'")
  7. ' Ðia chi IP mang LAN là Ðia chi Modem ADSL, thuo'`ng khác sô' cuô'i. 10.0.0.2 là Modem CNet
  8.         For Each objComputer In colPingedComputers
  9.             If objComputer.StatusCode = 0 Then
  10.                 List1.AddItem "10.0.0." & i & vbTab & "X"
  11.             Else
  12.                 List1.AddItem "10.0.0." & i
  13.             End If
  14.         Next
  15. Next
  16. MsgBox "Ðã Xong"
  17. End Sub


Tặng CoffeeShop
Tập tin đính kèm
Script Ping máy LAN.rar
(1.41 KiB) Đã tải 773 lần


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Quay về “[VB] Hệ thống - Tập tin - Thư mục và Mạng”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách