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?

Merhaba
aşağıdaki linki inceleyiniz...
http://www.access-sql.com/Konu-IP-Adresi-Almak

Ben Tüm Domaindeki IP adreslerini listelemek istiyorum.

Merhaba, dhcp ile ip adreslerini revervasyonlu şekilde dağıtıyorsanız bunu server üzerinden görebilirsiniz. Aşağıdaki program ise ağdaki bütün kullanılan ve kullanılmayan ip adreslerini gösteriyor.


http://www.tamindir.com/kategoriler.asp?...net&ref=dl