Este Script es para eliminaciond e usuarios, pero no lo entiendo.

Deberías crearte una función que abriera el fichero, leyera los datos en el formato que toque (LDAP://OU=, OU=, DC=, DC= y luego con el CN del usuario) y ejecutara ese Delete.


Saludos,

Marc
MVP Windows Server System - Directory Services
MCSA/MCSE Windows Server 2003
Citrix CCA PS 4.0
Oracle9i Certified Associate (OCA)

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no otorga ningún derecho.

This posting is provided "AS IS" with no warranties, and confers no rights. You assume all risk for your use.

"Penta" escribió en el mensaje news:

Estimados.
Alguien me podria explicar el script ?

Set objOU = GetObject("LDAP://ou=Management,dc=NA,dc=fabrikam,dc=com")
objOU.Delete "User", "cn=MyerKen"


Se supone que tengo un archivo con los usuarios que quiero eliminar
donde va eso ??

Atte.
Penta.

Gracias.
Pero donde creo la funcion ??

Atte.
Penta.

Podría ser una cosa de este estilo (esto es parte de un script mío, que deberías adaptar)

Lo que hace es abrir un .csv, cargar los datos a memoria y cambiar una propiedad de los usuarios del AD.

' Filename: modifyAD.vbs
' Revision: v1.0
' Author: Marc [MCSE - MVP Windows]
'
' Modified:
'
' Date: 08/07/2005
' Revised: 09/08/2005
' Sintaxis: modifyAD pathCSV

OPTION EXPLICIT

Dim fso, fso2, objTextFile, file, linea, typeR, txtRead
Dim arrayUsers(2,2000)
Dim usersAD, oContainer, oADobject

'********************************** Declaracion constantes ******************************************

Const ForReading = 1, ForWriting = 2, ForAppending = 8

'********************************** Comprobación de argumentos **************************************
If WScript.Arguments.count > 0 Then
usersAD = WScript.Arguments.item(1)
Else
usersAD = InputBox("Nombre del archivo de usuarios a usar (.csv)", "Archivo .csv")
End If

'******************************************* ITERACION **********************************************

Call leerDatosCSV

Dim oRootDSE, oDomain

Set oRootDSE = GetObject("LDAP://RootDSE")
Set oDomain = GetObject("LDAP://" & oRootDSE.Get("DefaultNamingContext"))

Call EnumOUs(oDomain.ADsPath)


'****************************************************************************************************
Sub EnumOUs(sADsPath)

Dim oOU

Set oContainer = GetObject(sADsPath)
oContainer.Filter = Array("OrganizationalUnit")
For Each oOU in oContainer
'WScript.Echo oOU.ADsPath
EnumUsers(oOU.ADsPath)
EnumOUs(oOU.ADsPath)
Next

End Sub

'****************************************************************************************************
Sub EnumUsers(sADsPath)

Dim changeMade, Descr, Nombre, Descrip

changeMade = False

Set oContainer = GetObject(sADsPath)
oContainer.Filter = Array("User")
For Each oADobject in oContainer
If oADobject.Class = "user" Then
Nombre = oADobject.SAMAccountName
Descr = BuscaUser(Trim(LCase(Nombre)))
If Descr <> "" Then
'wscript.Echo Nombre & " - " & Descrip & " / " & Descr
oADObject.Put "Description", Descr
changeMade = True
End If
End If
If (changeMade = True) Then
oADObject.setInfo
changeMade = False
'Wscript.Echo "changeMade"
End If
Next
End Sub

'****************************************************************************************************
Private Function BuscaUser(byval UName)

Dim bucle
For bucle = 0 to 2000
If UCase(UName) = Trim(UCase(arrayUsers(0,bucle))) Then
BuscaUser = arrayUsers(1,bucle)
arrayUsers(2,bucle) = 2
'Wscript.Echo "BuscaUsuario " & UName
Exit For
End If
Next
End Function

'****************************************************************************************************
Private sub leerDatosCSV

Dim fso1, file1, linea, bucleL

Set fso1 = CreateObject("Scripting.FileSystemObject")
Set file1 = fso1.openTextfile(usersAD, ForReading, False)

Do Until file1.AtEndOfStream
linea = file1.Readline
call buscarDatos(linea, bucleL)
bucleL=bucleL+1
Loop

End Sub

'****************************************************************************************************
Private sub buscarDatos(lineaCSV, bucle)

Dim nombreUsuario, tipoUsuario, primerDato

primerDato = instr (lineaCSV,";")
If primerDato <> 0 then
nombreUsuario = mid(lineaCSV,primerDato+1)
tipoUsuario = mid(lineaCSV,1,primerDato-1)
arrayUsers(0,bucle)= trim(nombreUsuario)
arrayUsers(1,bucle)= trim(tipoUsuario)
arrayUsers(2,bucle)=1
End If

End Sub



Saludos,

Marc
MVP Windows Server System - Directory Services
MCSA/MCSE Windows Server 2003
Citrix CCA PS 4.0
Oracle9i Certified Associate (OCA)

Este mensaje se proporciona "como está" sin garantías de ninguna clase, y no otorga ningún derecho.

This posting is provided "AS IS" with no warranties, and confers no rights. You assume all risk for your use.

"Penta" escribió en el mensaje news:

Gracias.
Pero donde creo la funcion ??

Atte.
Penta.