D(one) IT

IT Tips, Tricks & Such

List Local Admins from list of computers

I came across this Blog posting: Brian Desmond, while looking for a simple script to list all the users that had Local Administrator rights to their computer.

 

DumpLocalAdministrators.vbs (click “show source” below)

'==========================================================================
' NAME: Dump Local Administrators Membership
'
' AUTHOR: Brian Desmond,
' DATE  : 4/16/2007
'==========================================================================

Option Explicit

Const LogFile = "LocalAdmins.log"
Const resultFile = "LocalAdministratorsMembership.csv"
Const inputFile = "computers.txt"

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

Dim shl
Set shl = WScript.CreateObject("WScript.Shell")

Dim fil
Set fil = fso.OpenTextFile(inputFile)

Dim results
Set results = fso.CreateTextFile(resultFile, True)

WriteToLog "Beginning Pass of " & inputFile & " at " & Now()
'WScript.Echo "Beginning Pass of " & inputFile & " at " & Now()
'On Error Resume Next

Dim grp
Dim line
Dim exec
Dim pingResults
Dim member

While Not fil.AtEndOfStream
	line = fil.ReadLine

	Set exec = shl.Exec("ping -n 2 -w 1000 " & line)
  	pingResults = LCase(exec.StdOut.ReadAll)

 	If InStr(pingResults, "reply from") Then
 		WriteToLog line & " responded to ping"
 		'WScript.Echo line & " responded to ping"

 		'On Error Resume Next

		Set grp = GetObject("WinNT://" & line & "/Administrators")

		'WScript.Echo line & ", Administrators"
		results.WriteLine line & ",Administrators,"

		For Each member In grp.Members
			'WScript.Echo 	"Administrators: " & member.Name
			WriteToLog line & ": Administrators - " & member.Name
			results.WriteLine ",," & member.Name
		Next
	Else
		WriteToLog line & " did not respond to ping"
		'WScript.Echo line & " did not respond to ping"
	End If
Wend

results.Close

Sub WriteToLog(LogData)
	On Error Resume Next

	Dim fil
	'8 = ForAppending
	Set fil = fso.OpenTextFile(LogFile, 8, True)

	fil.WriteLine(LogData)

	fil.Close
	Set fil = Nothing
End Sub
Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: