"dave" <dave@xxxxxx> wrote in message
news:767DA0FC-D26E-42DB-AC07-778EF8AEACEA@xxxxxx
Quote:
> Title pretty much says it all
>
> I'm trying to find a script which will find the members of the rdp group
> from a list of PC's on a domain from a txt file
>
> Can anyone help?
I assume you mean the local "Remote Desktop Users" group on each computer.
You can use the FileSystemObject to read the text file of computer names,
then bind to the local group on each computer using the WinNT provider. You
can use the Members method of the group object to enumerate the direct
members and echo their names to the console. For example:
==========
Option Explicit
Dim objFSO, strFile, objFile
Dim strComputer, objGroup, objMember
Const ForReading = 1
strFile = "c:\Scripts\computers.txt"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(strFile, ForReading)
Do Until objFile.AtEndOfStream
strComputer = Trim(objFile.ReadLine)
If (strComputer <> "") Then
Wscript.Echo "Computer: " & strComputer
Set objGroup = GetObject("WinNT://" & strComputer _
& "/Remote Desktop Users,group")
For Each objMember In objGroup.Members
Wscript.Echo objMember.Name
Next
End If
Loop
objFile.Close
=======
This should be run at a command prompt using cscript. You can redirect the
output to a text file.
--
Richard Mueller
MVP Directory Services
Hilltop Lab -
http://www.rlmueller.net
--