طريقه اضافه ip جهاز المستخدم في صفحه تسجيل الدخول او اي فورم اخر

[Mohamed Khaled Galal]

السلام عليكم

لو سمحتم اريد طريقه اضافه ip جهاز المستخدم في صفحه تسجيل الدخول او اي فورم اخر

وشكرا لكم

[ابو جودي]

اتفضل 

Public Function getMyIP()
Dim myWMI As Object, myobj As Object, itm
    Set myWMI = GetObject("winmgmts:\\.\root\cimv2")
    Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
        For Each itm In myobj
          getMyIP = itm.IPAddress(0)
          Exit Function
        Next
End Function

 

[Mohamed Khaled Galal]

اضفها ازاي لوسمحت

[Mohamed Khaled Galal]

43 دقائق مضت, ابو جودي said:

اتفضل 

Public Function getMyIP()
Dim myWMI As Object, myobj As Object, itm
    Set myWMI = GetObject("winmgmts:\\.\root\cimv2")
    Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
        For Each itm In myobj
          getMyIP = itm.IPAddress(0)
          Exit Function
        Next
End Function

 

اضفها ازاي لو سمحت في الفورم او التقرير

[ابو جودي]

اتفضل قم بالاطلاع على المرفق الاتى 

يتم وضع الروتين العام فى موديول ويتم استدعاءه من خلال اسمه حسب الحاجة كالاتى 

getMyIP()

 

GetLocalIP.mdb

تم تعديل يناير 16, 2022 بواسطه ابو جودي