Robcopy por fechas de la carpeta USERPROFILE

Escenario

Queremos realizar un robocopy de la carpeta %USERPROFILE% donde la carpeta destino tenga el siguiente formato: AAAAMMDD.%USERPROFILE% 

Donde:

  • AAAA: Año
  • MM: Mes
  • DD: Día

 

Sigue leyendo

Anuncios

Script para copiar Ficheros y/o Carpetas en los perfiles de un Equipo

Escenario

Tenemos un equipo con varios perfiles de usuarios y queremos copiar ficheros y/o carpetas en cada uno de los perfiles que han iniciado sesión en el equipo.
Sigue leyendo

Script para configurar obtención de servidores DNS mediante DHCP en un equipo con DNS estática

Escenario

Tenemos varios equipos con Windows XP SP2 donde se ha configurado las conexiones de área local con servidores DNS de forma estática y queremos cambiar la configuración de la conexión de área local para que obtenga las direcciones de los servidores DNS mediante DHCP

 

Procedimientos:

  • Crearemos un fichero DNS.vbs y le insertaremos el siguiente código:

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards

    ‘ Creamos la varibale para configurar los DNS
    ‘No asignamos valor a la variable ya que pordefecto el valor es Null
    ‘"Inyectamos" valor Null en el método SetDNSServerSearchOrder

    Dim arrDNSServers
    objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
WScript.Echo "Fin de la Ejecución…"

 

  • Ejecutamos el Script y comprobamos que los DNS se obtienen mediante DHCP
  • Video ejempl del funcionamiento del Script

 

Enlaces de Interés

Para más información consultar script Modify the DNS Server Search Order for a Network Adapter

 

Disclaimer

Este ejemplo de script no esta soportado por el autor del artículo. Este ejemplo de script es ta provisto sin garantía de ningún tipo.