Form Üzerinden İp Denetimi?

ayrıca:

Aşağıdaki kodu formun açıldığında olayına yazınca, textbox a ip adresi otomatik geliyor. Tabi dosyanın açılması için uygulamanın olduğu bilgisayarla dosyaların olduğu bilgisayarın aynı olması gerekiyor ve bağlantı adresindeki dosyanın adını kendi bilgisayarınıza göre uyarlamanız gerekiyor.  Örnek dosya ektedir.

On Error Resume Next



strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colItems = objWMIService.ExecQuery( _

    "SELECT * FROM Win32_NetworkAdapterConfiguration where IPEnabled=TRUE ", , 48)

    

For Each objItem In colItems

   

        Me.ip = (objItem.IPAddress(0))

Next