Enumerating computer names in a domain (LAN)

[FaneDuru]

How is it possible to enumerate all computer names or user names logged on a domain in a local network using VBScript?

Thanks,
Fane

 

[EngDaveS]

Hi you can do it by the script below. This will ask you for a domain and a path and filename for the log

'System variables - dont change
Dim TempFile, computer, domain, DomainSub, inputfile, outputfile
Const HKEY_LOCAL_MACHINE = &H80000002
Const ForWriting = 2
Const ForReading = 1
Const ForAppending = 8
Const TristateFalse = 0


Set wshshell = CreateObject("WScript.Shell&quot
Set fso = CreateObject("Scripting.FileSystemObject&quot


Domain = inputbox ("Type Your Domain&quot
listdes = InputBox ("type destination for log&quot
if Domain = "" Then
MsgBox("Nothing Typed&quot
Else
Call GetDomain
Set infile = fspenTextFile (listdes, ForReading, True) 'opens file for reading
Do While infile.AtEndOfStream <> True
If infile.AtEndOfStream <> True Then
strServername = Trim(infile.ReadLine)

End if
Loop



Sub GetDomain 'Gets a list of servers from the defined domain and writes to a file
Const TemporaryFolder = 2
Set TempFile = fspenTextFile (listdes, ForWriting, True)
Set DomainObj = GetObject(&quot;WinNT://&quot; & domain)
For Each Object In DomainObj
If Object.class = &quot;Computer&quot; then
'WScript.Echo(Object.name)
TempFile.Writeline(Object.name)
Else
End If
whyme = Wscript.Echo(Object.Name)
Next
End Sub

End If

 

[EngDaveS]

sorry remove the bit that says whyme = wscript.echo because that gives you the usernames and the other wscript command in there will bring up the box. Otherwise it should log all computer accounts on the domain to the file you specify