-
[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!