Listing ALL users that have admin authority?

[sparkbyte]

I have been looking for a way to get a list of all users, locan and domain, that have admin priv's on our servers but have not been able to locate a script to do this. I know I must not be searching correctly because this is a common required task and there "must" be something out there that I could use as a starting point.

Thanks!!

Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com

 

[mrmovie]

you will need to do a recursive search through the members of the administrators group on each box.

there is an ADS.dll knocking around which might make like easier

 

[sparkbyte]

Can you please elaborate on the ADS.dll?

Thanks

John Fuhrman
Titan Global Services

http://www.titangs.com

 

[markdmac]

You could run net localgroup against each of your member servers. For DCs you just need to look at the Domain Admins group to see who has membership since there is no local admin group.

I hope you find this post helpful.

Regards,

Mark

Check out my scripting solutions at

http://www.thespidersparlor.com/vbscript

Work SMARTER not HARDER. The Spider's Parlor's Admin Script Pack is a collection of Administrative scripts designed to make IT Administration easier! Save time, get more work done, get the Admin Script Pack.

 

[dm4ever]

Hi sparkbyte,

This might do what I think you are looking for.

Option Explicit

Main()

Sub Main
	Dim strComputer : strComputer = "."
	Dim strGroupName : strGroupName = "Administrators"
	GetGroupMembers GetObject("WinNT://" & strComputer & _
					"/" & strGroupName & ",Group")
End Sub

Sub GetGroupMembers(objGroup)
	Dim objGrpMember
	For Each objGrpMember In objGroup.Members
		Select Case UCase(objGrpMember.Class)
			Case "USER"
				WScript.Echo Replace(Replace(objGrpMember.ADSPath, "WinNT://", ""), "/", "\")
			Case "GROUP"
				GetGroupMembers GetObject(objGrpMember.ADSPath)
		End Select
	Next
End Sub

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid