• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

[Hàm] Lấy địa chỉ IP của máy vi tính hiện hành

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • [Thủ Thuật] [Hàm] Lấy địa chỉ IP của máy vi tính hiện hành
• [Hàm] Lấy địa chỉ IP của máy vi tính hiện hành

• [Hàm] Lấy địa chỉ IP của máy vi tính hiện hành

  maidinhdan > 09-09-17, 11:47 PM

  Trích dẫn:nguyenhungcuong (Hôm nay tại 01:34 PM)
  chào maidinhdan.
  bạn cho mình hỏi: trong access 2007, để lấy địa chỉ IP của máy vi tính hiện hành thì viết code VBA như thế nào? Bạn có thể hướng dẫn cho minh hoặc bài viết nào trên diễn đàn ko? Cảm ơn bạn nhiều.

  
  Để lấy IP bạn dùng hàm dưới đây, chèn vào Modules
  

  Mã PHP:

  Function LayIP()
Dim objWMIService As Object
Dim colItems As Object
Dim itm As Object
 
    Set objWMIService = GetObject("winmgmts:\root\cimv2")
    Set colItems = objWMIService.ExecQuery _
                   ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
    For Each itm In colItems
        LayIP = LayIP & itm.Properties_("IPAddress")(0) ' & vbCrLf
    Next
End Function 


  
  Hàm này dùng đã Test trên Access 2003, 2007, 2010....
  Ghi chú: Trong Demo phân quyền phần II cũng có đoạn hàm này để áp dụng.
  Thông thường ta sẽ chèn đoạn gọi hàm nay ra sử dụng ở màn hình đăng nhập và cho nó nạp vào table Lịch sử đăng nhập
  
  Thân mến

• RE: [Hàm] Lấy địa chỉ IP của máy vi tính hiện hành

  chautanhue > 03-11-18, 09:19 AM

  Nếu muốn lấy hết chỉ số IP đang có trong mạng LAN thì mình phải làm như thế nào ?

• RE: [Hàm] Lấy địa chỉ IP của máy vi tính hiện hành

  maidinhdan > 03-11-18, 02:17 PM

  (03-11-18, 09:19 AM)chautanhue Đã viết: Nếu muốn lấy hết chỉ số IP đang có trong mạng LAN thì mình phải làm như thế nào ?

  
  Dùng hàm này [Hàm] [Demo] Hàm kiểm tra IP tắt hay mở để duyệt IP từ 2 đến 254 .
  
  Thân mến!
• Bài trước Bài tiếp