Sub MyAgdakiPCler()
On Error Resume Next
Set PcSistem = GetObject("WinMgmts:").instancesOf("win32_computersystem")
For Each Domainlerim In PcSistem
Localim = Domainlerim.Domain
Next
Set LocalDomain = GetObject("WinNT://" & Localim)
LocalDomain.Filter = Array("Computer")
For Each PC In LocalDomain
msgbox PC.Name
Next
End Sub

Yukarıdaki kod ile ağdaki pclerin adlarını alabiliyorum. Peki bu Pclerin IP ve mac adreslerini nasıl alabilirim?

Pc ait bilgileri Metin kutusu yardımıyla alıp veri tabanına kaydetmek istiyorum. Ama bir türlü yapamadım. Liste kutusuna IP ve Mac Bilgileri geliyor ama birden fazla geldiği için tek bir alana kaydedemiyorum. Yardımcı olursanız sevinirim şimdiden teşekkürler.