local admin kullanıcılarını bulma

merhabalar,

aşağıdaki iki komutu kullanabilirsin;

1)

$Result = @()

foreach($server in (gc C:\servers1.txt)){

$computer = [ADSI](”WinNT://” + $server + “,computer”)
$Group = $computer.psbase.children.find(”Administrators”)

function getAdmins
{$members = ($Group.psbase.invoke(”Members”) | %{$_.GetType().InvokeMember(”Adspath”, ‘GetProperty’, $null, $_, $null)}) -replace ('WinNT://DOMAIN/' + $server + '/'), '' -replace ('WinNT://DOMAIN/', 'DOMAIN\') -replace ('WinNT://', '')
$members}

$Result += Write-Output "SERVER: $server"
$Result += Write-Output ' '
$Result += ( getAdmins )
$Result += Write-Output '____________________________'
$Result += Write-Output ' '
}

$Result > D:\results.txt

Invoke-Item d:\results.txt

2)

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

Option Explicit

Const LogFile = "LocalAdmins.log"
Const resultFile = "LocalAdministratorsMembership.csv"
Const inputFile = "d:\scripts\workstations.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.Write line & ",Administrators,"
       
        For Each member In grp.Members
'            WScript.Echo     "Administrators: " & member.Name
            WriteToLog line & ": Administrators - " & member.Name
            results.Write ",," & member.Name
               
           
        Next
        results.Writeline
    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

Merhaba,
https://gallery.technet.microsoft.com/Query-members-of-Local-d0f393a6 bu sayfadan yararlanabilirsiniz.

sağol hocam

Merhaba,
Son durum nedir?

sağolun hocam ddiğiniz gibi çözdüm

Merhabalar,

Script çalışıyor ama clientları tek tek .txt olarak kaydediyor tek bir txt altında nasıl toplayabiliriz acaba bu script üzerinden