|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » [решено] Проверить какая УЗ подходит к компьютеру вне домена |
|
|
[решено] Проверить какая УЗ подходит к компьютеру вне домена
|
Пользователь Сообщения: 144 |
Профиль | Отправить PM | Цитировать Добрый день!
Есть много компьютеров вне домена и так же есть много административных УЗ и много паролей к ним. Можно ли как нибудь проверить на соответствие, к какому компьютеру какая УЗ подходит? Вот начал делать , не знаю что дальше, не могу найти какую-либо функцию для проверки авторизации: #include <Array.au3> Local $avArrayAccaunt[6] = ["Администратор", "Admin", "Admin1", "User", "Adm", "TEMP"] Local $avArrayPassword[4] = ["12345", "54321", "qwerty", "12345678"] Local $ASum = UBound($avArrayAccaunt) Local $PSum = UBound($avArrayPassword) For $i=0 To $ASum-1 For $j=0 To $PSum-1 ConsoleWrite($avArrayAccaunt[$i] & $avArrayPassword[$j] & @CRLF) ... Next Next |
|
Отправлено: 17:37, 11-09-2014 |
Пользователь Сообщения: 144
|
Профиль | Отправить PM | Цитировать Да, я уже проверил, все работает. Спасибо.
Вот код, если кому понадобится: #include <Array.au3> #include <File.au3> _CheckAdministration() Func _CheckAdministration() ; Функция проверяет какая административная УЗ заведена на компьютере Local $avArrayAccaunt[4] = ["Администратор", "Administrator", "Admin", "User"] ; Задаем массив с аккаунтами Local $avArrayPassword[3] = ["P@ssw0rd", "Admin!#", "Админ123"] ; Задаем массив с паролями Local $sAccauntSum = UBound($avArrayAccaunt) Local $sPasswordSum = UBound($avArrayPassword) Local $arrDevices Local $arrPC FileDelete(@ScriptDir & "\reportPassword.txt") $sReportFile = FileOpen(@ScriptDir & "\reportPassword.txt", 2) _FileReadToArray(@ScriptDir & "\pc.txt", $arrPC) _FileReadToArray(@ScriptDir & "\devices.txt", $arrDevices) $arrDevices = _ExcludeDevices($arrDevices) ; Исключаем принтеры и т.п. $arrPC = _ExcludeDevices($arrPC) For $k = 0 To Ubound($arrPC)-1 If Ping($arrPC[$k], 250) Then For $i=0 To $sAccauntSum-1 For $j=0 To $sPasswordSum-1 $objNet = DriveMapAdd("", "\\" & $arrPC[$k] & "\C$", 0, $avArrayAccaunt[$i], $avArrayPassword[$j]) If $objNet = 1 Then ConsoleWrite($arrPC[$k] & @TAB & $avArrayAccaunt[$i] & @TAB & $avArrayPassword[$j] & @CRLF) FileWriteLine($sReportFile, $arrPC[$k] & @TAB & $avArrayAccaunt[$i] & @TAB & $avArrayPassword[$j]) Else ConsoleWrite($arrPC[$k] & " error" & @CRLF) EndIf DriveMapDel("\\" & $arrPC[$k] & "\C$") Next Next Else ConsoleWrite($arrPC[$k] & " offline"& @CRLF) EndIf Next FileClose($sReportFile) EndFunc Func _ExcludeDevices($Array) Local $k = 0 For $i = 1 To Ubound($Array)-1 Assign($Array[$i] & "_3j5d2f8k_", Eval($Array[$i] & "_3j5d2f8k_") + 1, 2) ; создаём глобальные переменные или увеличиваем значение для уже созданных If Eval($Array[$i] & "_3j5d2f8k_") = 1 Then $Array[$k] = $Array[$i] $k+=1 EndIf Next ReDim $Array[$k] Return $Array EndFunc |
Отправлено: 16:42, 22-09-2014 | #21 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 144
|
Профиль | Отправить PM | Цитировать Еще один вопрос, а можно данную функцию использовать от имени найденного администратора?
_User('192.168.51.1') Func _User($strComputer) $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") $colItems = $objWMIService.ExecQuery("Select UserName From Win32_ComputerSystem") $sResult = '' For $objItem in $colItems $sResult &= "UserName: " & $objItem.UserName & @CRLF Next ConsoleWrite($sResult) EndFunc |
Отправлено: 12:19, 26-09-2014 | #22 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата HFShak:
|
|
Отправлено: 21:49, 26-09-2014 | #23 |
|
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
Установка - [решено] какая версия наиболее подходит для офиса | renspeaker | Лицензирование продуктов Microsoft | 12 | 05-06-2011 13:44 | |
[решено] Какая видеокарта подходит? | ceber | Выбор отдельных компонентов компьютера и конфигурации в целом | 10 | 04-11-2010 17:51 | |
Любой язык - Проверить подключение usb накопителя к компьютеру | migunov | Скриптовые языки администрирования Windows | 2 | 19-01-2010 11:23 | |
Какая память подходит для Asus P5KR | Andre79 | Материнские платы и память | 1 | 16-06-2009 13:30 | |
[решено] какая прога лучше подходит для определения частот и шейдеров? | DIDIDIDIMA | Видеокарты | 8 | 17-11-2008 14:30 |
|