AdminCount

[broodplank]

ok this is what i have but i want to make the loop working good, if i uncomment the loop and comment the ifs then it always shows the msgbox 10 times but it must only show it the times from 7 to $second

get it ?

expandcollapse popup

#include <Process.au3>
#include <File.au3>

_AdminCount()


Func _AdminCount()

FileDelete("output.txt")
_RunDOS("net localgroup administrators >> output.txt")
$countline = _FileCountLines("output.txt")

;~ for $count = 10 to 20
;~ for $lines = 8 to 18

;~ if $countline = $count Then
;~  $second = $lines
;~  
;~ EndIf
;~ Next
;~ Next


if $countline = 8 Then 
    $second = 6
EndIf

if $countline = 9 Then 
    $second = 7
EndIf

if $countline = 10 Then 
    $second = 8
EndIf

if $countline = 11 Then 
    $second = 9
EndIf

if $countline = 12 Then 
    $second = 10
EndIf

if $countline = 13 Then 
    $second = 11
EndIf

if $countline = 14 Then 
    $second = 12
EndIf

if $countline = 15 Then 
    $second = 13
EndIf

if $countline = 16 Then 
    $second = 14
EndIf

if $countline = 17 Then 
    $second = 15
EndIf

if $countline = 18 Then 
    $second = 16
EndIf

if $countline = 19 Then 
    $second = 17
EndIf

if $countline = 20 Then 
    $second = 18
EndIf

for $i = 7 to $second
    $adminread = FileReadLine("output.txt", $i)
    MsgBox(0, "POSIBLE ADMINISTRATORS FOUND", $adminread)
Next
$admincount = MsgBox(64, "ADMIN COUNT", $second - 6)
FileDelete("output.txt")
EndFunc

Edited November 14, 2006 by broodplank

[lod3n]

Try this:

$admins = ""
$count = 0
$objGroup = ObjGet("WinNT://" & @ComputerName & "/Administrators")
For $objUser in $objGroup.Members
    $count += 1
    $admins &= $objUser.Name & @crlf
Next
msgbox(0,"Admins Found: " & $count, $admins)

[lod3n]

Or this is much faster:

#include <Constants.au3>

$foo = Run("net localgroup administrators", @SystemDir, @SW_HIDE, $STDOUT_CHILD)
$output = ""
While 1
    $output &= StdoutRead($foo)
    If @error Then ExitLoop
Wend
$aOutput = StringSplit($output,@crlf,1)

$admins = ""
$count = 0

$valid = false
for $i = 1 to $aOutput[0]
    $line = $aOutput[$i]
    if stringinstr($line,"The command") then $valid = false
    if $valid then
        $admins &= $line & @CRLF
        $count += 1
    EndIf
    if stringinstr($line,"----------") then $valid = true
Next

msgbox(0,"Admins Found: " & $count, $admins)