Rename AD Domain name

1.  rendom /list
2. notepad Domainlist.xml 
3. (edit file and save)
4. rendom /showforest (show changes)
5. rendom /upload 
6. rendom /prepare
7. rendom /execute
8. Domain controllers restarts themselves
9. Workstations and servers must be rebooted twice to change their names
10. Rename manually domains controllers 
• netdom computername DC01.dominio.com /add:DC01:newdomain.com 
• netdom computername DC01.dominio.com /makeprimary:DC01:newdomain.com 
11. Reboot domain controllers to apply changes
12. gpfixup /olddns:dominio.com /newdns:newdomain.com
13. rendom /clean
14. rendom /end

If DNS problems... (From Changing Domain and Updating DNS (microsoft.com))

Create a new zone for the domain name:

• Create whatever the domain name is called, nedomain.local or newdomain.com (whatever the new AD DNS domain name is).
• Make the zone AD integrated.
• For the replication scope select the center button (To all DNS servers running on domain controllers in the domain), and allow Secure and Unsecure Updates.

Then create the _msdcs zone:

• Create an _msdcs.newdomain.local or _msdcs.newdomain.com zone (as above, whatever the new AD DNS domain name is.
• Make the zone AD integrated.
• For replication scope, select the top button (To all DNS servers running on domain controllers in the forest), and allow Secure and Unsecure updates.

Then either restart the DC, or run the following (which is my usual option):

• ipconfig /registerdns
• Net stop netlogon
• net start netlogon

Script para desbloqueo de cuentas de Active Directory

Desbloquea los usuarios de AD de todo el directorio

'nivel de subárbol
Const ADS_SCOPE_SUBTREE = 5
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") = 10000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
objCommand.CommandText = _
"SELECT distinguishedName,AdsPath FROM 'LDAP://dc=depo,dc=es' WHERE objectCategory='user'"
Set objRecordSet = objCommand.Execute
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set Flog = oFSO.CreateTextFile("cuentas.log")
'CANTIDAD = objRecordSet.RecordCount
if not objRecordset.eof then
    objRecordset.Movefirst
    while not objRecordset.eof
        Set objuser = GetObject(objRecordSet.Fields("AdsPath").Value)
              if objUser.IsAccountLocked = TRUE Then               
                Flog.Writeline("desbloqueando " & objRecordSet.Fields("distinguishedName").Value)
                objuser.put "lockoutTime", 0
                objUser.SetInfo
            end if             
              objRecordSet.MoveNext
    wend
end if
Flog.close

El mediasense del dhcp y los problemas de LOGON y GPO

Después de darle muchas vueltas en un entorno de red Gigabits con switch cisco, de esos que cuestan un dineral y cansado de ver el application EventId: 1054 y sus primos EventId: 5719 y otros en plan "no puedo obtener el nombre del dominio" y "no hay controlador de dominio disponible"...




Resulta que para redes Gigabit en un entorno con DHCP a veces el "Media Sense" no funciona bien para mi caso en equipos nuevecitos con XP contra servidores AD 2003.


Una vez deshabilitado el individuo según "Cómo deshabilitar la característica de detección de medios para TCP/IP en Windows"

1. Inicie el Editor del Registro.
2. Busque la siguiente subclave del Registro:
   
   
   HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters
   
   
   
   
3. Agregue la siguiente entrada de Registro a la subclave Parameters:
   
   
   Nombre: DisableDHCPMediaSense
   Tipo de datos: REG_DWORD (booleano)
   Valor: 1
   
   
   
   

Reiniciamos el equipo y alá todo como la seda, a mí que me digan lo que quieran pero esto en Linux no me pasa....