viernes, 26 de febrero de 2010

Script para conocer los usuarios que fueron creados en cierta fecha

Este Script muestra los usuarios de directorio activo que fueron creados en determinada fecha. Solo hay que adecuar a nuestro entrono el script  para que funcione correctamente

las lineas en rojo son las que debemos de adecuar:
dtmCreationDate = "20071001000000.0Z"
Esta linea es la fecha en la que queremos verificar que usuarios fueron creados
 y el formato es “AAAMMDDHHMMSS.0Z” (año, mes, dia, hora, minuto, segundo)
En la linea 
"SELECT Name FROM 'LDAP://dc=fabrikam,dc=com' WHERE objectClass='user' "  & _
editamos la seccion roja deacuerdo al nombre de nuestro dominio ejemplo:
para nuestrodominio.local seria dc=nuestrodominio,dc=local
para patito.com  seria dc=patiro,dc=com
para cescom.monterrey.corp seria dc=cescom,dc=monterrey,dc=com
 
On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2

dtmCreationDate = "20071001000000.0Z"

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 Name FROM 'LDAP://dc=fabrikam,dc=com' WHERE objectClass='user' "  & _
"AND whenCreated>='" & dtmCreationDate & "'" 
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
Wscript.Echo objRecordSet.Fields("Name").Value
objRecordSet.MoveNext
Loop
Para ejecturar el script solo hay que pegar y grabar las lineas  en un archivo de text (*.txt) y renombrar la extencion TXT por VBS. En mi caso el archivo se llama usuarios.vbs  Este script te muestra en pantalla cada usuario , para tenerlos en un archivo el resultado del script hay que ejecutarlo desde una ventana de comandos (Command) mas los parametros cscript usuarios.vbs >c:\usuarios.txt esto lo que hace es que nos manda el resultado a un archivo de texto llamado usuarios.txt y que se encuentra en C raiz Cual quier duda estoy a sus ordenes Referencia: http://gallery.technet.microsoft.com/ScriptCenter/en-us/0988ca91-133a-4203-9a64-b7b64d8f4344

1 comentario:

  1. hola buen dia, espero tu me puedas ayudar necesito crear un script que mande un correo alos usuarios generados recientemente, cres que esta accion se pueda realizar me puedes apoyar???
    mi correos es kain.avatar@gmail.com

    de antemano gracias!!!

    ResponderEliminar