script para desbloquear usuarios del AD

Para estos dias de bloqueo......

Esto lo pillamos en la Web

pero por si lo eliminan lo copie a continuacion.

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT distinguishedName FROM 'LDAP://dc=bg,dc=com,dc=bo' WHERE objectCategory='user' AND lockoutTime>=1"
Set objRecordSet = objCommand.Execute ' Si el recordset esta vacio es porque no hay usuarios bloqueados.
CANTIDAD = objRecordSet.RecordCount
if CANTIDAD <> 0 then  
objRecordSet.MoveFirst  
Do Until objRecordSet.EOF    
DN = objRecordSet.Fields("distinguishedName").Value    
set objUSER = getobject("LDAP://" & DN)    
objUser.IsAccountLocked = false    
objUSER.SetInfo    
objRecordSet.MoveNext  
loop end if

Lo copian a un archivo con extencion .vbs y lo ejecutan

Salu2