بدست آوردن IP جاری سیستم و استفاده در فرم های Access

یکی دیگر از نیازهای ثبت لاگ های برنامه های ساخته شده که چند یوزر روی آن کار می کنند IP سیستمی است که با آن برنامه باز شده و یا ویرایش می شود. برای بدست آوردن IP سیستم بهتر است ابتدا کد مربوط به پیدا کردن 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

me.text1=getMyIP

امیدوارم این موضوع نیز مفید واقع شود