Consulta ldap para extraer cuentas bloqueadas?

Del Technet Script Repository. Ponlo en un archivo con extensión .vbs y le
cambias el fabrikam.com por tu dominio.
Saludos


Const ADS_UF_ACCOUNTDISABLE = 2

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider­sDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"<GC://dc=fabrikam,dc=com>;(objectCategory=User)" & _
";userAccountControl,distinguishedName;subtree"
Set objRecordSet = objCommand.Execute

intCounter = 0
Do Until objRecordset.EOF
intUAC=objRecordset.Fields("userAccountControl")
If intUAC AND ADS_UF_ACCOUNTDISABLE Then
WScript.echo objRecordset.Fields("distinguishedName") & " is
disabled"
intCounter = intCounter + 1
End If
objRecordset.MoveNext
Loop

WScript.Echo VbCrLf & "A total of " & intCounter & " accounts are disabled."

objConnection.Close


____________________________________________________________
"Alexandra L." escribió en el mensaje
de noticias:

Hola:

Necesito realizar una consulta para saber que cuentas estan bloqueadas.
Alguien me puedo ayudar??
Gracias
AL

Hola Jose:

Gracias por la informacion, tambien me sirve, pero necesito es que me
muestre las cuentas que aoarecen como "ACCOUNT IS LOCKED OUT" no DISABLED.

Saludos
AD

"José Antonio Quílez [MS MVP]" wrote:

Del Technet Script Repository. Ponlo en un archivo con extensión .vbs y le
cambias el fabrikam.com por tu dominio.
Saludos


Const ADS_UF_ACCOUNTDISABLE = 2

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider­sDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"<GC://dc=fabrikam,dc=com>;(objectCategory=User)" & _
";userAccountControl,distinguishedName;subtree"
Set objRecordSet = objCommand.Execute

intCounter = 0
Do Until objRecordset.EOF
intUAC=objRecordset.Fields("userAccountControl")
If intUAC AND ADS_UF_ACCOUNTDISABLE Then
WScript.echo objRecordset.Fields("distinguishedName") & " is
disabled"
intCounter = intCounter + 1
End If
objRecordset.MoveNext
Loop

WScript.Echo VbCrLf & "A total of " & intCounter & " accounts are disabled."

objConnection.Close


____________________________________________________________
"Alexandra L." escribió en el mensaje
de noticias:
> Hola:
>
> Necesito realizar una consulta para saber que cuentas estan bloqueadas.
> Alguien me puedo ayudar??
> Gracias
> AL

Sólo hay que hacer un par de cambios

Const ADS_UF_LOCKOUT = 16

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider­sDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"<GC://dc=fabrikam,dc=com>;(objectCategory=User)" & _
";userAccountControl,distinguishedName;subtree"
Set objRecordSet = objCommand.Execute

intCounter = 0
Do Until objRecordset.EOF
intUAC=objRecordset.Fields("userAccountControl")
If intUAC AND ADS_UF_LOCKOUT Then
WScript.echo objRecordset.Fields("distinguishedName") & " is
disabled"
intCounter = intCounter + 1
End If
objRecordset.MoveNext
Loop

WScript.Echo VbCrLf & "A total of " & intCounter & " accounts are locked."

objConnection.Close


______________________________________________________
"Alexandra L." escribió en el mensaje
de noticias:

Hola Jose:

Gracias por la informacion, tambien me sirve, pero necesito es que me
muestre las cuentas que aoarecen como "ACCOUNT IS LOCKED OUT" no DISABLED.

Saludos
AD

"José Antonio Quílez [MS MVP]" wrote:

Del Technet Script Repository. Ponlo en un archivo con extensión .vbs y
le
cambias el fabrikam.com por tu dominio.
Saludos


Const ADS_UF_ACCOUNTDISABLE = 2

Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider­sDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = _
"<GC://dc=fabrikam,dc=com>;(objectCategory=User)" & _
";userAccountControl,distinguishedName;subtree"
Set objRecordSet = objCommand.Execute

intCounter = 0
Do Until objRecordset.EOF
intUAC=objRecordset.Fields("userAccountControl")
If intUAC AND ADS_UF_ACCOUNTDISABLE Then
WScript.echo objRecordset.Fields("distinguishedName") & " is
disabled"
intCounter = intCounter + 1
End If
objRecordset.MoveNext
Loop

WScript.Echo VbCrLf & "A total of " & intCounter & " accounts are
disabled."

objConnection.Close


____________________________________________________________
"Alexandra L." escribió en el
mensaje
de noticias:
> Hola:
>
> Necesito realizar una consulta para saber que cuentas estan bloqueadas.
> Alguien me puedo ayudar??
> Gracias
> AL