خواند IP با ویژوال بیسیک

[ashkan]

سلام
یه برنامه نوشتم برای اینکه امنیت ان بالا بره میخوام قبل از اجرا IP سیستم رو چک کنه اگه درست بود اجرا کنه
کسی میدونه چجوری میشه از ویژوال بیسیک تحت اکسل اطلاعات سیستم رو خواند.
ممنون
اشکان:heart:

[m_d6712]

RE: خواند IP با ویژوال بیسیک

سلام دوست عزیز.
این تابع کد تمام اطلاعات مورد نیاز شما درباره IP کامپیوتر رو بهت برمیگرداند.

Function GetIPAddress()
Const strComputer As String = "." ' Computer name. Dot means local computer
Dim objWMIService, IPConfigSet, IPConfig, IPAddress, i
Dim strIPAddress As String

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set IPConfigSet = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")

For Each IPConfig In IPConfigSet
IPAddress = IPConfig.IPAddress
If Not IsNull(IPAddress) Then
strIPAddress = strIPAddress & Join(IPAddress, ", ")
End If
Next

GetIPAddress = strIPAddress
End Function

Sub a()
MsgBox GetIPAddress
End Sub

[ashkan]

RE: خواند IP با ویژوال بیسیک

ممنون عزیز کارم راه افتاد امید وارم خیر ببینی:heart:

[ashkan]

RE: خواند IP با ویژوال بیسیک

سلام
میشه اطلاعات دیگری غیر از IP رو هم از کامپی.تر خواند؟ چیزی که مختص اون باشه مثل Default

Gateway
:heart:

[~M*E*H*D*I~]

RE: خواند IP با ویژوال بیسیک

سلام
تو فایل پیوست میشه برخی دیگه از اطلاعات سیستمی رو هم بدست اورد

[sohrabahmadi]

RE: خواند IP با ویژوال بیسیک

با درود به اساتيد و دوستان گرامي كدي رو كه جنلب داوري زحمتش رو كشيدن تو ويندوز 7 جواب نميده آ. اگه از دوستان براشون امكان داره لطف كنن بگن تو ويندوز سون 64 بيتي براي تشخيص ip چكار بايد كرد ؟ با تشكر