اظهار عنوان IP

[eng aoff]

السلام عليكم اساتذتي الكرام

ممكن كود لاظهار عنوان جهاز الحاسوب على الشبكة ip

وجزاكم الله خيراً

[husamwahab]

تفضل اخي العزيز

ارجو ان يكون طلبك

IP_Address.rar

[jjafferr]

وعليكم السلام 🙂

 

من هنا : https://www.tek-tips.com/viewthread.cfm?qid=900952

 

يكون الكود:

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

 

 

ونناديه من النموذج او اي مكان في البرنامج هكذا :

A = getMyIP

جعفر

[eng aoff]

شكراً جزيلا اساتذتي الكرام ... هذا هو المطلوب

تحياتي للجميع