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 |
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???
ResponderEliminarmi correos es kain.avatar@gmail.com
de antemano gracias!!!