Need Script to view who has local admin rights on domain xp pro workstations.

Script to Collect Local Administrators Membership from List of Machines
http://briandesmond.com/blog/script-to-collect-local-administrators-membership-from-list-of-machines/

Popular answer here....

John,
Thank you very much for your post!  Sorry for the delay!  The client stated that they are looking for something like what is pasted below.  The code is almost complete but it needs the ability to write in the file over and over again.  Can you see what it is missing?

'create an instance of the Wscript Network object; using the (2) objects
Set objNetwork = CreateObject("Wscript.Network")

'set your strings
strComputer = objNetwork.ComputerName
strUser = objNetwork.UserName

'set variables for the write process
Dim Filesys, WriteFiletxt

Set Filesys = CreateObject("Scripting.FileSystemObject") 
Set WriteFiletxt = Filesys.CreateTextFile("c:\local-admin.txt", false)

'use the WinNT provider to bind to the Administrators group on the computer in question
Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")

'set up For Each loop to walk through the group membership
For Each objUser in objGroup.Members
    If objUser.Name = strUser Then

'Write output to the text file listed above
     WriteFiletxt.WriteLine strUser & " Has Administrator Rights. "

 End If
Next

Select allOpen in new window

Thank you Krishna.

Do I put the workstations in the txt document instead of server names?  Also, will the workstations need Powershell installed on them?  Thank you!

Worked well enough for me.  Thank you very much!

Hi,

Yes, you can put Workstation name in place of desktop. You don't need to install powershell on the work stations.

Regards,
Krishna