Защити свои аккаунты качественными и приватными прокси форматов IPv4 и IPv6! - Proxy-seller

список пользователей компьютера c выгрузкой в текстовый файл

Strell

ГУРУ

для того что бы создать сие устройство понадобится установить AutoIt. скрипт не мой. как переделать понятия не имею)

Код:
#include <Array.au3>
RunWait(@ComSpec & ' /c net user > "' & @ScriptDir & '\1.txt"', '', @SW_HIDE)
If Not FileExists(@ScriptDir & '\converter.bat') Then
    $bat = FileOpen(@ScriptDir & '\converter.bat', 2)
    $bat_content = '@echo off' & @CRLF & _
        'if [%2]==[] (' & @CRLF & _
            @TAb & 'echo Convert dos866 to win1251' & @CRLF & _
            @TAb & 'echo Usage: dos2win input.file output.file' & @CRLF & _
            @TAb & 'exit /b 1' & @CRLF & _
        ')' & @CRLF & _
        'set out=%2' & @CRLF & _
        'chcp 866 >nul' & @CRLF & _
        'for /f "tokens=*" %%a in (%1) do call :convert %%a' & @CRLF & _
        'goto :eof' & @CRLF & _
        '' & @CRLF & _
        ':convert' & @CRLF & _
        'chcp 1251 >nul' & @CRLF & _
        'echo %*>>%out%' & @CRLF & _
        'chcp 866 >nul'
    FileWrite($bat, $bat_content)
    FileClose($bat)
EndIf
FileChangeDir(@ScriptDir)
ShellExecuteWait(@ScriptDir & '\converter.bat', '1.txt 2.txt', @ScriptDir, '', @SW_HIDE)
;Sleep(100)
$hUsers = FileOpen(@ScriptDir & '\2.txt', 0)
$sum = ''
While 1
    $line = FileReadLine($hUsers)
    If @error = -1 Then ExitLoop
    $line = StringStripWS($line, 4)
    If StringInStr($line, 'Учетные') OR _
        StringInStr($line, '---') OR _
        StringInStr($line, 'Команда выполнена') Then
            ContinueLoop
    Else
        $sum &= $line & ' '
        ;For $i = 1 to $a
    EndIf
WEnd
;MsgBox(0, '', $sum)
FileClose($hUsers)
FileDelete(@ScriptDir & '\2.txt')
$sum = StringStripWS($sum, 2)
$aUsers = StringSplit($sum, ' ')
For $i = 1 to $aUsers[0]
    RunWait(@ComSpec & ' /c net user ' & $aUsers[$i] & ' > "' & @ScriptDir & '\' & $aUsers[$i] & '.txt"', '', @SW_HIDE)
    FileChangeDir(@ScriptDir)
    ShellExecuteWait(@ScriptDir & '\converter.bat', $aUsers[$i] & '.txt ' & $aUsers[$i] & '_mod.txt', @ScriptDir, '', @SW_HIDE)
Next
не парсит доменные учетки.

MEGA
VirusTotal архив.
VirusTotal exe

на каждого пользователя создается txt файл .
лог файла выглядит так.

Имя пользователя DefaultAccount
Полное имя
Комментарий Учетная запись пользователя, управляемая системой.
Комментарий пользователя
Код страны или региона 000 (Стандартный системный)
Учетная запись активна No
Учетная запись просрочена Никогда
Последний пароль задан ?Пн. ?12.?08.?2019 18:38:31
Действие пароля завершается Никогда
Пароль допускает изменение ?Пн. ?12.?08.?2019 18:38:31
Требуется пароль No
Пользователь может изменить пароль Yes
Разрешенные рабочие станции Все
Сценарий входа
Конфигурация пользователя
Основной каталог
Последний вход Никогда
Разрешенные часы входа Все
Членство в локальных группах *Управляемая системой
Членство в глобальных группах *Отсутствует
Команда выполнена успешно.
 
Последнее редактирование:

Strell

ГУРУ

Код:
$sUser = @UserName

$objADSI=ObjGet("WinNT://./"&$sUser)
$obj = $objADSI.Groups
$temp = ""

Dim $Array[1]
$Container=ObjGet("WinNT://.")
_ArrayAdd( $Array,"User")
$Container.Filter = $Array
$Info = ""
For $User in $Container
$users_d = $User.Name
$sUser = $User.Name
$Info &= "@: " & $users_d & " :Gruppa: " & GroupInfo($sUser) & @CRLF
Next
MsgBox(0, "VSE", $Info)

Func GroupInfo($sUser)
$objADSI=ObjGet("WinNT://./"&$sUser)
$obj = $objADSI.Groups
$InfoGroup = ""
For $element In $obj
$InfoGroup &= $element.Name
Next
If $InfoGroup = "" Then
$InfoGroup = "net grupp"
EndIf
Return $InfoGroup
EndFunc
только локальные.
VirusTotal архив
MEGA архив
 
Сверху Снизу