mas dulu sampean pernah ngasih tau cara scan computer manetwork. Tapi
waktu itu sampean ngasih contoh nya dengan menggunakan treeview
Private Sub MuatNetwork()
i = 0
sComTree.Nodes.Clear
Set NameSpace = GetObject("WinNT:")
For Each Domain In NameSpace
j = 0
i = i + 1
sKEY = "Dom" & i
sDomain = Domain.Name
Set sNode = sComTree.Nodes.Add()
sNode.Key = sKEY
sNode.Image = 2
sNode.Text = LCase(sDomain)
sNode.Bold = True
sNode.Expanded = True
Set Container = GetObject("WinNT://" & Domain.Name)
Set dso = GetObject("WinNT:")
Container.Filter = Array("Computer")
For Each Computer In Container
j = j + 1
sChild = sKEY & "-Com" & j
Set sNode = sComTree.Nodes.Add(sKEY, tvwChild, sKEY &
sChild, LCase(Computer.Name), 1)
Next Computer
Next Domain
End Sub
Kalo saya mau pake listview apanya yg musti di rubah ya mas.?
mohon bantuannya mas.
makasih!!
