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

Регистрация
04.11.2018
Сообщения
252
Симпатии
67
Баллы
33
#1
для того что бы создать сие устройство понадобится установить
У вас нет разрешения на просмотр ссылки! Войти или зарегистрироваться
. скрипт не мой. как переделать понятия не имею)

Код:
#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
не парсит доменные учетки.

У вас нет разрешения на просмотр ссылки! Войти или зарегистрироваться

У вас нет разрешения на просмотр ссылки! Войти или зарегистрироваться
архив.
У вас нет разрешения на просмотр ссылки! Войти или зарегистрироваться
exe

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

Имя пользователя DefaultAccount
Полное имя
Комментарий Учетная запись пользователя, управляемая системой.
Комментарий пользователя
Код страны или региона 000 (Стандартный системный)
Учетная запись активна No
Учетная запись просрочена Никогда
Последний пароль задан ?Пн. ?12.?08.?2019 18:38:31
Действие пароля завершается Никогда
Пароль допускает изменение ?Пн. ?12.?08.?2019 18:38:31
Требуется пароль No
Пользователь может изменить пароль Yes
Разрешенные рабочие станции Все
Сценарий входа
Конфигурация пользователя
Основной каталог
Последний вход Никогда
Разрешенные часы входа Все
Членство в локальных группах *Управляемая системой
Членство в глобальных группах *Отсутствует
Команда выполнена успешно.
 
Последнее редактирование:
Регистрация
04.11.2018
Сообщения
252
Симпатии
67
Баллы
33
#2
Код:
$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
только локальные.
У вас нет разрешения на просмотр ссылки! Войти или зарегистрироваться
архив
У вас нет разрешения на просмотр ссылки! Войти или зарегистрироваться
архив
 
Похожие темы:
Ответы
4
Просмотры
570
Не актуально Продам Дедики
Ответы
2
Просмотры
402
Ответы
0
Просмотры
235
Ответы
8
Просмотры
595
Ответы
9
Просмотры
716

Пользователи, которые просматривали тему (Всего: 0)

Тема долгое время не просматривалась.