[решено] Проверить какая УЗ подходит к компьютеру вне домена

HFShak · Отправлено: **10:27, 13-09-2014** | #11

Цитата Iska:

HFShak, теперь примерно ясно. То есть, нам надо перебрать весь массив машин, последовательно подставляя для соединения к ним каждую пару логин/пароль комбинированного множества, составленного из набора учётных записей и набора возможных паролей — так? »

Да, надо к каждой машине перебрать пару логин/пароль (получился около 30 пар) и понять, какая пара является правильной.

Iska · Отправлено: **14:23, 16-09-2014** | #12

HFShak, на WSH:

Если очень принципиально надо на AutoIt — перепишу. Обратите внимание: если у Вас установлена политика блокировки учётных записей при вводе нескольких неправильных паролей — скрипт наверняка не отработает до конца корректно.

HFShak · Отправлено: **15:00, 16-09-2014** | #13

На autoit очень желательно, если это не сложно, т.к. мне не понятен синтаксис WSH.
Надо, чтобы в нормальном виде записывал, я потом сам доделаю, просто как на autoit сделать переход на \\pc\C$ ?

Ну вроде работает работает:

Iska · Отправлено: **15:59, 16-09-2014** | #14

Цитата HFShak:

На autoit очень желательно, если это не сложно, т.к. мне не понятен синтаксис WSH. »

Очень неохота делать ;(. Может, будет достаточно и WSH?

Цитата HFShak:

Ну вроде работает работает:
« скрыть
C:\Users\User\Desktop>cscript 1.vbs
…
\\192.168.1.60\c$
----------------------
Unknown error: 80070035 Не найден сетевой путь. »

«192.168.1.60» был отключён/недоступен/не настроен для доступа?

HFShak · Отправлено: **16:22, 16-09-2014** | #15

Цитата HFShak:

«192.168.1.60» был отключён/недоступен/не настроен для доступа? »

Да, он просто выключен. Спасибо!
А можно вывести запись в файл, а не в консоль?
Так, а как на автоите сделать переход на \\pc\C$ ? Какой функцией? DriveMapAdd?

Iska · Отправлено: **17:08, 16-09-2014** | #16

Цитата HFShak:

А можно вывести запись в файл, а не в консоль? »

Код:

cscript.exe //nologo "1.vbs" >"c:\Мой путь\file.txt"

Цитата HFShak:

Так, а как на автоите сделать переход на \\pc\C$ ? Какой функцией? »

Либо той же — если использовать «ObjCreate("WScript.Network")», либо родной «DriveMapAdd()», а затем анализировать ошибку, если функция вернула «0».

HFShak · Отправлено: **10:49, 17-09-2014** | #17

Добрый день!
На autoit получается выглядит вот так?:

Код:

#include <Array.au3>

_CheckAdministration()

Func _CheckAdministration()
Local $avArrayAccaunt[3] = ["Администратор", "Administrator", "Admin"]
Local $avArrayPassword[5] = ["1234", "4321", "qwerty", "Admin123!"]
Local $sAccauntSum = UBound($avArrayAccaunt)
Local $sPasswordSum = UBound($avArrayPassword)
Local $sFilePC = FileOpen(@ScriptDir & "\pc.txt")

While 1
	$sLine = FileReadLine($sFilePC)
	If @error = -1 Then ExitLoop
	For $i=0 To $sAccauntSum-1
		For $j=0 To $sPasswordSum-1
	 		$objNet = DriveMapAdd("", "\\" & $sLine & "\C$", 0, $sLine & "\" & $avArrayAccaunt[$i], $avArrayPassword[$j])
	 		If $objNet = 1 Then
	 			ConsoleWrite($sLine & @TAB & $avArrayAccaunt[$i] & @TAB & $avArrayPassword[$j] & @CRLF)
	 		Else
				ConsoleWrite("Error = " & $objNet & @CRLF)
	 		EndIf
			DriveMapDel("\\" & $sLine & "\C$")
		Next
	Next
WEnd
FileClose($sFilePC)
EndFunc

Iska · Отправлено: **12:07, 17-09-2014** | #18

Цитата HFShak:

На autoit получается выглядит вот так?: »

Если код работает (и работает корректно) — то так

.

HFShak · Отправлено: **10:11, 22-09-2014** | #19

Цитата Iska:

Если код работает (и работает корректно) — то так . »

Да, работает вроде корректно.
Скажите, а если в пароле русские буквы, drivemapadd отработает?

Iska · Отправлено: **14:36, 22-09-2014** | #20

Цитата HFShak:

Скажите, а если в пароле русские буквы, drivemapadd отработает? »

Не проверял, но, полагаю, должно отработать. Впрочем, Вы ведь сами вполне можете проверить на какой-нибудь тестовой машине, а затем отписаться сюда по результатам.