Jan Damkjær Dahl <jdd@worldonline.dk> skrev i
news:tYJN6.20942$zv2.2671969@news010.worldonline.dk
> Brug adsi i et script
>
> Dette er godtnok fra VB, men kan sagtens laves til et VB Script
>
> Public Sub List_Computer()
> 'On Error GoTo slut
> Dim Container
> Dim DomainName
> Dim Computer
> Dim oItem As ListItem
> DomainName = frmIndstillinger.lblDomain
> Set Container = GetObject("WinNT://" & DomainName)
> Container.Filter = Array("Computer")
> For Each Computer In Container
> oItem = frmMain.ListView1.ListItems.Add(, , Computer.Name)
> Next
> slut:
>
> End Sub
Den var jo fin .... Men vet du hvordan man finner alle de delte resursene
som er tilgjengelige på et nettverk ???
--
Vennlig hilsen Erlend
erlendkb@c2i.net
http://www.kleggen.com/