NT Clients

[aaudette]

How can I retreive a list of all the clients on a given domain? (either by name or ip)

[Ianf]

First of all download and install ADSI from
http://www.microsoft.com/ntworkstation/downloads/Other/ADSI25.asp?FinishURL=%2Fdownloads%2Frelease%2Easp%3FReleaseID%3D22984%26redirect%3Dno

Then try this code as a VBScript


Set WshNetwork = CreateObject("WScript.Network")
Set WshGroups = CreateObject("Scripting.Dictionary")
WshGroups.CompareMode=vbTextCompare

DomName = WshNetwork.UserDomain
msgbox "Domain Name = " & DomName
Set DomComp = GetObject("WinNT://" & WshNetwork) ' DomName
DomComp.filter = Array("computer")

For each Computer in DomComp

msgbox Computer.Name
Set ComputerLogon = GetObject("WinNT://" & DomName & "/" & Computer.Name)
ComputerLogon.filter = Array("user")

For each User in ComputerLogon

msgbox Computer.Name & "-" & User.Name

Next

Next


Hope this helps

[Ianf]

Set WshNetwork = CreateObject("WScript.Network")
Set WshGroups = CreateObject("Scripting.Dictionary")
WshGroups.CompareMode=vbTextCompare

DomName = WshNetwork.UserDomain
msgbox "Domain Name = " & DomName
Set DomComp = GetObject("WinNT://" & DomName) '
DomComp.filter = Array("computer")

For each Computer in DomComp

msgbox Computer.Name
Set ComputerLogon = GetObject("WinNT://" & DomName & "/" & Computer.Name)
ComputerLogon.filter = Array("user")

For each User in ComputerLogon

msgbox Computer.Name & "-" & User.Name

Next

Next


Regards