Автор Тема: Пользователи группы Администраторы  (Прочитано 211 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Эта тема содержит сообщение, помеченное как лучший ответ. Кликните здесь для перехода к этому сообщению.

Оффлайн SavickiyAV [?]

  • Новичок
  • *
  • Сообщений: 6
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Помогите поправить скрипт суть в том что нужно перечислить всех пользователей или группы пользователей из группы Администраторы
вот что я делаю но скрипт почему то не работает =(
Код: AutoIt [Выделить]
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$strComputer = "localhost"
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\ROOT\CIMV2")

$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_GroupUser WHERE GroupComponent LIKE '%Администраторы%'", "WQL", $wbemFlagReturnImmediately + $wbemFlagForwardOnly)

$count=0
For $objItem in $colItems
      msgbox('','',$objItem.PartComponent)
      $count=$count + 1
Next

MsgBox('','',$count)
 

« Последнее редактирование: Июнь 12, 2018, 13:27:14 от SavickiyAV »

Русское сообщество AutoIt

Пользователи группы Администраторы
« Отправлен: Июнь 12, 2018, 11:03:41 »

Оффлайн sngr [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 871
  • Репутация: 355
    • Награды
  • Версия AutoIt: 3.3.8.1
Re: Пользователи группы Администраторы
« Ответ #1, Отправлен: Июнь 12, 2018, 12:54:43 »
Код: AutoIt [Выделить]
$strComputer = "."
$objWMIService = ObjGet("WinNT://" &$strComputer & "/Администраторы")
$aa=''
 For $oGroups In $objWMIService.Members
        $aa&=StringRegExpReplace($oGroups.AdsPath,'.*?'&$strComputer&'/',@CRLF)
    Next
MsgBox('','',$aa)

Код autoit заключи в тег autoit.

Оффлайн SavickiyAV [?]

  • Новичок
  • *
  • Сообщений: 6

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Пользователи группы Администраторы
« Ответ #2, Отправлен: Июнь 12, 2018, 13:59:37 »
Код: AutoIt [Выделить]
$strComputer = "."
$objWMIService = ObjGet("WinNT://" &$strComputer & "/Администраторы")
$aa=''
 For $oGroups In $objWMIService.Members
        $aa&=StringRegExpReplace($oGroups.AdsPath,'.*?'&$strComputer&'/',@CRLF)
    Next
MsgBox('','',$aa)

Код autoit заключи в тег autoit.
Да код работает! Спасибо! но есть один нюанс который я забыл оговорить сразу =( в общем ПК в домене и хотелось бы видеть пользователей группы Администраторы в виде domian\admin или PC-name\admin
и еще если не сложно подскажите где почитать про такое обращение к WMI как вы используете ($objWMIService.Members) что бы лучше понимать как работает скрипт и что еще от туда можно вытащить

Помечен как лучший ответ пользователем SavickiyAV Отправлен Июнь 13, 2018, 08:11:09

Оффлайн sngr [?]

  • AutoIt Гуру
  • *****
  • Сообщений: 871
  • Репутация: 355
    • Награды
  • Версия AutoIt: 3.3.8.1
Re: Пользователи группы Администраторы
« Ответ #3, Отправлен: Июнь 12, 2018, 17:05:33 »
Код: AutoIt [Выделить]
$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$user='1';юзверь на удалённой машине
$pasw='2';его пароль
$comp='111';сетевое имя компьютера
$cre = ObjCreate("WbemScripting.SWbemLocator")
$obj=$cre.ConnectServer ($comp, "root\cimv2", $user, $pasw)
$que=$obj.ExecQuery("Select * from Win32_GroupUser Where GroupComponent=""Win32_Group.Domain='" & _
    $comp & "',Name='Администраторы'""", "WQL", 0x30)
$res=''
For $o In $que
    $res&=$o.PartComponent&@CRLF
Next
MsgBox(0,'',$res)
Func MyErrFunc()
    MsgBox(4096, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
            "err.description is: " & @TAB & $oMyError.description & @CRLF & _
            "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
            "err.number is: " & @TAB & hex($oMyError.number, 8) & @CRLF & _
            "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
            "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
            "err.source is: " & @TAB & $oMyError.source & @CRLF & _
            "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
            "err.helpcontext is: " & @TAB & $oMyError.helpcontext)
    Exit 1
EndFunc

На msdn находишь Win32_GroupUser и читаешь.

Русское сообщество AutoIt

Re: Пользователи группы Администраторы
« Ответ #3 Отправлен: Июнь 12, 2018, 17:05:33 »

Оффлайн SavickiyAV [?]

  • Новичок
  • *
  • Сообщений: 6

  • Автор темы
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
Re: Пользователи группы Администраторы
« Ответ #4, Отправлен: Июнь 13, 2018, 08:11:49 »
Код: AutoIt [Выделить]
$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$user='1';юзверь на удалённой машине
$pasw='2';его пароль
$comp='111';сетевое имя компьютера
$cre = ObjCreate("WbemScripting.SWbemLocator")
$obj=$cre.ConnectServer ($comp, "root\cimv2", $user, $pasw)
$que=$obj.ExecQuery("Select * from Win32_GroupUser Where GroupComponent=""Win32_Group.Domain='" & _
    $comp & "',Name='Администраторы'""", "WQL", 0x30)
$res=''
For $o In $que
    $res&=$o.PartComponent&@CRLF
Next
MsgBox(0,'',$res)
Func MyErrFunc()
    MsgBox(4096, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
            "err.description is: " & @TAB & $oMyError.description & @CRLF & _
            "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
            "err.number is: " & @TAB & hex($oMyError.number, 8) & @CRLF & _
            "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
            "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
            "err.source is: " & @TAB & $oMyError.source & @CRLF & _
            "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
            "err.helpcontext is: " & @TAB & $oMyError.helpcontext)
    Exit 1
EndFunc

На msdn находишь Win32_GroupUser и читаешь.
спасибо!

Русское сообщество AutoIt

Re: Пользователи группы Администраторы
« Ответ #4 Отправлен: Июнь 13, 2018, 08:11:49 »

 

Похожие темы

  Тема / Автор Ответов Последний ответ
0 Ответов
11798 Просмотров
Последний ответ Июль 19, 2009, 10:59:09
от CreatoR
18 Ответов
6587 Просмотров
Последний ответ Январь 20, 2010, 10:05:35
от ynbIpb
8 Ответов
4866 Просмотров
Последний ответ Ноябрь 27, 2010, 04:05:09
от drd0s
6 Ответов
2341 Просмотров
Последний ответ Февраль 11, 2011, 16:42:04
от `p r o x y
0 Ответов
3151 Просмотров
Последний ответ Июнь 12, 2012, 04:53:03
от redwert
5 Ответов
2321 Просмотров
Последний ответ Март 03, 2013, 18:23:22
от Belfigor
5 Ответов
3142 Просмотров
Последний ответ Апрель 09, 2013, 20:07:34
от madmasles
0 Ответов
2090 Просмотров
Последний ответ Июнь 17, 2013, 00:41:36
от CreatoR
1 Ответов
3757 Просмотров
Последний ответ Сентябрь 28, 2015, 16:20:56
от CreatoR
1 Ответов
1145 Просмотров
Последний ответ Январь 31, 2016, 21:43:18
от inververs