Indsamle maskin navne

kan man ikke bare lave en net view til .txt..???

b.b >> ved du hvor tit denne opdater ?

men ok...der kommer selvfølgelig kun de maskiner som pt. er på netværket..

jeg kan kun se min egen maskine med net view kommandoen og ikke min bærbar :(

b.b, jeg kan godt bruge denne netview til mit formål så det er bare 10-4 smørklat men nu vil jeg gerne have at den kører dette via et vbs script og tager alle maskin navenene (uden \\) og smider i en txt fil, der må kun være et maskin navn pr. linje, ved du hvordan man gør det ?

Hejsa drukkenbolden
Jeg har lige bikset det sammen du forespurgte:

    Const ForWriting = 2
    Const Create = True
   
    Dim MyFile
    Dim FSO ' FileSystemObject
    Dim TSO ' TextStreamObject

MyFile = "c:\temp\machines.txt"
   
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set TSO = FSO.OpenTextFile(MyFile, ForWriting, Create)

Set Network = Wscript.CreateObject("Wscript.Network")

StrDomain = Network.UserDomain

Set DomainObj = GetObject("WinNT://" & StrDomain)
DomainObj.Filter = Array("Computer")

For Each UserObj In DomainObj
If UserObj.Class = "Computer" Then
StrList = StrList & UserObj.Name & Vbcrlf
TSO.Write StrList
end If
Next

Håber du kan bruge det:):)

det er total nice !!!

der er bare enkel ting, den første maskine skriver den 2 gange i filen :(

Nu er jeg ikke spørger men ka' bruge funktionen alligevel.

Jeg har nogle gange 5-10 spilledåser tilsluttet mit LAN styret af en W2K Server og ka' så bruge NET VIEW på Server for at 'se' hvem der er 'på'. Men der går et stykke tid (flere minuter) før de ka' ses i listen samt samme hvis en lukker af.

Hvor tit bliver denne
NET VIEW
opdateret ?

maximus25 >> jeg har et lille problem med dit script, den genere dubletter af maskin navne :( har du et råd ?

hej drukkenbolden
Du skal bare checke for dubletter ved hvert gennemløb.