sábado, enero 01, 2011

VBScript - Crear usuarios, unidades organizativas para Windows Server por codigo


"Si usa algún código del siguiente tutorial, den el icono de ME GUSTA del Facebook que se encuentra en su mano derecha, para que se vuelva Seguidor del Blog y también comentenos que tal les pareció el tutorial"

VBScript es un lenguaje que apoya a la administración de servidores que corren bajo la plataforma Windows. El siguiente código sirve para darles una introducción de como crear unidades organizativas, sub unidades organizativas, crear usuarios, eliminar usuarios de toda una unidad organizativa y eliminar cierto usuario especifico. El dominio en el cual se ejecuta la sentencia es "hwongu.net".

set odom=getobject("LDAP://dc=hwongu,dc=net")
do
 msgbox(" ***** MENU PARA CREAR UNA ESTRUCTURA DE OUS ***** " & vbcrlf & _
       vbcrlf & "[1] Crear unidades organizativas " & vbcrlf & _
     vbcrlf & "[2] Crear sub ou " & vbcrlf & _
     vbcrlf & "[3] Crear Cuenta de Usuarios " & vbcrlf & _
     vbcrlf & "[4] Eliminar todos Usuarios en una unidad organizativa" & vbcrlf & _
     vbcrlf & "[5] Eliminar Usuarios especifico en una unidad organizativa" & vbcrlf & _
    vbcrlf & "[6] Salir del programa " & vbcrlf   )
 opcion=inputbox("Ingrese una opcion [1-6]")
 Select Case opcion
    Case "1"
        Do
         set odom=getobject("LDAP://dc=hwongu,dc=net")
         nombre=inputbox("Ingrese nombre de la unidad organizacional")
         set ou=odom.create("OrganizationalUnit", "ou=" & nombre)
         ou.setinfo
         resp=inputbox("Desea seguir creando unidades(S/N)")    
        Loop While resp="s"
    Case "2"
        nombre=inputbox("Ingrese nombre de la unidad organizacional")
        set odom=getobject("LDAP://" & nombre & ",dc=hwongu,dc=net")
        Do
         nombre=inputbox("Ingrese nombre de la sub unidad organizacional")
         set ou=odom.create("OrganizationalUnit", "ou=" & nombre)
         ou.setinfo
         resp=inputbox("Desea seguir creando sub unidaddes S/N")    
        Loop While resp="s"
    Case "3"
        nombre=inputbox("Ingrese nombre de la unidad organizacional")
        set odom=getobject("LDAP://" & nombre & ",dc=hwongu,dc=net")
        Do
         nuser=inputbox("ingrese el nombre del usuario")
         set ouser=odom.create("user", "cn=" & nuser)
         ouser.setinfo
         resp=inputbox("Desea seguir creando usuarios s/n")
        Loop While resp="s"
    Case "4"
        Const ADS_SCOPE_ONELEVEL = 1
        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_ONELEVEL 
        nombre=inputbox("Ingrese nombre de la unidad organizacional contenedora")
        objCommand.CommandText ="SELECT Name FROM 'LDAP://" & nombre & ",dc=hwongu,dc=net' WHERE objectCategory='user'"  
        Set objRecordSet = objCommand.Execute
        objRecordSet.MoveFirst
        Do Until objRecordSet.EOF
         usuario=objRecordSet.Fields("Name").Value
         set odom=getobject("LDAP://" & nombre & ",dc=hwongu,dc=net")
         odom.Delete "User", "cn=" & usuario
         objRecordSet.MoveNext
        Loop
    case "5"
        nombre=inputbox("Ingrese nombre de la unidad organizacional")    
        usuario=inputbox("Ingrese nombre de usuario a eliminiar")        
        Set odom=getobject("LDAP://" & nombre & ",dc=hwongu,dc=net")
        odom.Delete "User", "cn=" & usuario
 End Select
Loop While opcion<>6     

1 comentarios:

Buen recurso. Gracias.