Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] [Hàm] Lấy địa chỉ IP của máy vi tính hiện hành
#1
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
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn minhtungph


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Tạo Menu thu gọn hoặc mở rộng (Ẩn/ Hiện các menu con) ongke0711 4 1,277 11-05-17, 09:32 PM
Bài mới nhất: quocbinh77dilang@gmail.com
  Làm sao hiện thanh công cụ tranmtam 0 165 09-03-17, 02:47 PM
Bài mới nhất: tranmtam
  [Thủ Thuật] Hiện thông báo nhắc nhở và gửi vào TASK của MS OUTLOOK ongke0711 5 840 16-01-16, 11:41 PM
Bài mới nhất: lamvanphung
  Không cho hiện thông báo khi xóa record nguyenbalai 13 5,430 07-01-15, 02:55 AM
Bài mới nhất: MTNQ
  Hiện duy nhất một cửa sổ khi mở nhiều form Noname 5 3,833 26-12-13, 02:22 PM
Bài mới nhất: Minh Tiên

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ