Network Properties (Ağ Özellikleri)

Ağ özelliklerini aşağıdaki kodlarla öğrenebilirsiniz... 

Sub Ağ_Özellikleri()
    Dim objAdapter As Object, colAdapters As Object
    Dim NetworkProp As Object, objWMIService As Object
    Set NetworkProp = CreateObject("WScript.Network")
    Set objWMIService = GetObject("winmgmts:" & "!\\" & "." & "\root\cimv2")
    Set colAdapters = objWMIService.ExecQuery _
       ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=True")
      For Each objAdapter In colAdapters
        If objAdapter.IPAddress(0) <> "0.0.0.0" Then
          MsgBox "UserName " & vbTab & "= " & NetworkProp.UserName & vbCrLf & _
            "Host name: " & vbTab & "= " & UCase(objAdapter.DNSHostName) & vbCrLf & _
            "IP address: " & vbTab & "= " & objAdapter.IPAddress(0) & vbCrLf & _
            "IP subnet: " & vbTab & "= " & objAdapter.IPSubnet(0) & vbCrLf & _
            "Description: " & vbTab & "= " & objAdapter.Description & vbCrLf & _
            "User Domain: " & vbTab & "= " & NetworkProp.UserDomain & vbCrLf & _
            "Physical address: " & vbTab & "= " & objAdapter.MACAddress & vbCrLf & _
            "DHCP enabled: " & vbTab & "= " & objAdapter.DHCPEnabled, _
            vbInformation + vbOKOnly + vbMsgBoxSetForeground, "Ağ Özellikleri"
        End If
      Next objAdapter
      Set objAdapter = Nothing: Set colAdapters = Nothing
      Set NetworkProp = Nothing: Set objWMIService = Nothing
End Sub

Hoşça kalın !