یکی دیگر از نیازهای ثبت لاگ های برنامه های ساخته شده که چند یوزر روی آن کار می کنند 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
امیدوارم این موضوع نیز مفید واقع شود
درباره این سایت