فهمیدن نام اینترنت کانکشن!

[niksalehi]

چطوری میتونیم اسم کانکشنی رو که باهاش کانکتیم رو به دست بیاریم؟:لبخندساده:

[niksalehi]

جدیدا هرچی تاپیک میزنم به جواب نمیرسم، یعنی سوالای من مشکل دارن؟ لول

[محسن واژدی]

سلام علیکم
کد زیر را بررسی کنید:
Private Sub Command1_Click()
On Error Resume Next
Dim Items, WMIService, SubItems
Set WMIService = GetObject("winmgmts:\\.\root\cimv2")
Set Items = WMIService.ExecQuery("Select * from Win32_NetworkAdapter WHERE NetConnectionID IS NOT NULL", , 48)
For Each SubItems In Items
MsgBox "NetConnectionID: " & SubItems.NetConnectionID
Next
End Sub


موفق باشید

[niksalehi]

خیلی ممنونم از عنایتتون اقای واژدی
کدی که گذاشتین اسم local area connections رو بر میگردونه... اسم کانکشن فعال ( کانکت شده)رو بر نمیگردونه.

[niksalehi]

الته من تونستم اسم همه کانکشن ها رو که توی کامپیوتر هست رو از طریق رجیستری و مسیر: HKEY_CURRENT_USER/RemoteAccess/Profile پیدا کنم، اما نمیدونم چطوری بفهمم که کدوم کانکشن اصلی و فعال هستش؟