--- In [email protected], "Syafruddin" <[EMAIL PROTECTED]> wrote:
>
> 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!!
>
Sory baru bales aku lupa. :)
abis e-mail yang masuk banyak banget.
sebenernya dengan menggunakan active DS itu bukan cuma info nama
komputer aja tapi juga info yang lain.
disini saya coba tambahkan untuk melihat info Sistem operasi dan
Processor semoga dapat membantu anda.
ini codenya untuk menampilkan pada listview
Private Sub MuatNetwork()
Dim sListItem As ListItem
'===================
' Bersihkan Listview
lvwNetwork.ListItems.Clear
lvwNetwork.ColumnHeaders.Clear
'===================
'===================
' Muat Header Listview
lvwNetwork.ColumnHeaders.Add , , "Komputer"
lvwNetwork.ColumnHeaders.Add , , "Domain"
lvwNetwork.ColumnHeaders.Add , , "Sistem Operasi"
lvwNetwork.ColumnHeaders.Add , , "Prosessor"
'===================
Set NameSpace = GetObject("WinNT:")
For Each Domain In NameSpace
sDomain = Domain.Name
Set Container = GetObject("WinNT://" & Domain.Name)
Set dso = GetObject("WinNT:")
Container.Filter = Array("Computer")
For Each Computer In Container
Set sListItem = lvwNetwork.ListItems.Add(, , Computer.Name)
sListItem.SubItems(1) = sDomain
sListItem.SubItems(2) = Computer.OperatingSystem & " " &
Computer.OperatingSystemVersion
sListItem.SubItems(3) = Computer.Processor
Next Computer
Next Domain
End Sub
Terima kasih
^Aiska Hendra^
