local admin kullanı...
 
Bildirimler
Hepsini Temizle

local admin kullanıcılarını bulma  

  RSS
 Anonim

Merhaba

domain ortamında local admin olan kullanıcıları sorgu ile nasıl buluruz. 

Alıntı
Gönderildi : 05/01/2015 10:21
CozumPark
(@cozumpark)
Onursal Üye Yönetici

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

CevapAlıntı
Gönderildi : 05/01/2015 11:59
 Anonim
hocam bu şekilde getirmiyor. başka bir yolu varmı.
CevapAlıntı
Gönderildi : 05/01/2015 13:09
Rıza ŞAHAN
(@rizasahan)
Değerli Üye Forum Yöneticisi

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

CevapAlıntı
Gönderildi : 05/01/2015 16:47
 Anonim

sağol hocam

CevapAlıntı
Gönderildi : 05/01/2015 22:09
Rıza ŞAHAN
(@rizasahan)
Değerli Üye Forum Yöneticisi

Merhaba,
Son durum nedir?

CevapAlıntı
Gönderildi : 06/01/2015 21:35
 Anonim

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

CevapAlıntı
Gönderildi : 07/01/2015 11:20
Emre Gökmen
(@EmreGokmen)
Üye

Merhabalar,

 

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

CevapAlıntı
Gönderildi : 02/09/2015 19:20
Paylaş: