+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Form Üzerinden İp Denetimi? (/konu-form-uzerinden-ip-denetimi.html)
Sayfalar:
1
2
Cvp: Form Üzerinden İp Denetimi? - prtkl - 04/11/2019
ayrıca:
Aşağıdaki kodu formun açıldığında olayına yazınca, textbox a ip adresi otomatik geliyor. Tabi dosyanın açılması için uygulamanın olduğu bilgisayarla dosyaların olduğu bilgisayarın aynı olması gerekiyor ve bağlantı adresindeki dosyanın adını kendi bilgisayarınıza göre uyarlamanız gerekiyor. Örnek dosya ektedir.
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_NetworkAdapterConfiguration where IPEnabled=TRUE ", , 48)
For Each objItem In colItems
Me.ip = (objItem.IPAddress(0))
Next