Deframentar.

Con el Programador de Tareas (es un asistente). Lo encontrarás en el Panel
de Control.


Saludos!
Miguel

"macarrascosa2uni2.es" escribió en el
mensaje news:0a0e01c39488$b7ba0330$
Cómo se puede programar una deframentación?

Pego un script que se envió por aquí.

<pego>
'Progamado por Marcial Carlés [MS MVP]
'Este script ejecuta el defrag y lanza unas llamadas al entorno gráfico para
automatizar el proceso de defrag.
set WshShell = CreateObject("WScript.Shell")

'Lanza el Defrag desde la linea de comandos y espera un segundo.
WshShell.Run "dfrg.msc"
WScript.Sleep 2000

'Envia un ALT-A para abrir el menú del degrag y espera un poco.
WshShell.SendKeys "%A"
WScript.Sleep 2000

'Una vez abierto el menú envia una F para iniciar el defrag.
WshShell.SendKeys "F"

'Espera hasta que el defrag halla terminado, chequeando el programa cada 5
segundos.
While WshShell.AppActivate("Desfragmentación Completada") = FALSE
wscript.sleep 5000
Wend

'Manda la aplicación al fondo de la pantalla y espera un poco.
WshShell.AppActivate "Desfragmentación Completada"
WScript.Sleep 5000

'Envia una tabulación para mover el foco desde el botón de ver el report
hasta el botón de cerrar y espera un poco.
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 2000

'Envia la clave para cerrar la ventana de defragmentación completada y
espera un poco.
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 1000

'Envia la clave para cerrar la ventana del defrag y espera un poco.
WshShell.Sendkeys "%{F4}"
</pego>

Saludos !
"Miguel González" escribió en el mensaje
news:%

Con el Programador de Tareas (es un asistente). Lo encontrarás en el Panel
de Control.


Saludos!
Miguel

"macarrascosa2uni2.es" escribió en

el

mensaje news:0a0e01c39488$b7ba0330$
Cómo se puede programar una deframentación?

Este script sólo funcionará si el equipo no está bloqueado, cosa que no debe
pasar en el caso de servidores, por lo que no resulta de utilidad. Para
poder programar defrags hay que utilizar el software Diskeeper.

Un saludo
Fernando Reyes [MS MVP]
cañña.mvps.org
(Tómate dos cañas si quieres escribirme)

Visita news://marcmcoll.net cortesía de Marc Martínez Coll

"Rafael Márquez Guillén" escribió en
el mensaje news:

Pego un script que se envió por aquí.

<pego>
'Progamado por Marcial Carlés [MS MVP]
'Este script ejecuta el defrag y lanza unas llamadas al entorno
gráfico para automatizar el proceso de defrag.
set WshShell = CreateObject("WScript.Shell")

'Lanza el Defrag desde la linea de comandos y espera un segundo.
WshShell.Run "dfrg.msc"
WScript.Sleep 2000

'Envia un ALT-A para abrir el menú del degrag y espera un poco.
WshShell.SendKeys "%A"
WScript.Sleep 2000

'Una vez abierto el menú envia una F para iniciar el defrag.
WshShell.SendKeys "F"

'Espera hasta que el defrag halla terminado, chequeando el programa
cada 5 segundos.
While WshShell.AppActivate("Desfragmentación Completada") = FALSE
wscript.sleep 5000
Wend

'Manda la aplicación al fondo de la pantalla y espera un poco.
WshShell.AppActivate "Desfragmentación Completada"
WScript.Sleep 5000

'Envia una tabulación para mover el foco desde el botón de ver el
report hasta el botón de cerrar y espera un poco.
WshShell.Sendkeys "{TAB}"
Wscript.Sleep 2000

'Envia la clave para cerrar la ventana de defragmentación completada y
espera un poco.
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 1000

'Envia la clave para cerrar la ventana del defrag y espera un poco.
WshShell.Sendkeys "%{F4}"
</pego>

Saludos !
"Miguel González" escribió en el mensaje
news:%

Con el Programador de Tareas (es un asistente). Lo encontrarás en el
Panel de Control.


Saludos!
Miguel

"macarrascosa2uni2.es"
escribió en el mensaje news:0a0e01c39488$b7ba0330$
Cómo se puede programar una deframentación?

Gracias por la acalaración.

Saludos !

"Fernando Reyes [MS MVP]"
escribió en el mensaje news:

Este script sólo funcionará si el equipo no está bloqueado, cosa que no

debe

pasar en el caso de servidores, por lo que no resulta de utilidad. Para
poder programar defrags hay que utilizar el software Diskeeper.

Un saludo
Fernando Reyes [MS MVP]
cañña.mvps.org
(Tómate dos cañas si quieres escribirme)

Visita news://marcmcoll.net cortesía de Marc Martínez Coll

"Rafael Márquez Guillén" escribió en
el mensaje news:
> Pego un script que se envió por aquí.
>
> <pego>
> 'Progamado por Marcial Carlés [MS MVP]
> 'Este script ejecuta el defrag y lanza unas llamadas al entorno
> gráfico para automatizar el proceso de defrag.
> set WshShell = CreateObject("WScript.Shell")
>
> 'Lanza el Defrag desde la linea de comandos y espera un segundo.
> WshShell.Run "dfrg.msc"
> WScript.Sleep 2000
>
> 'Envia un ALT-A para abrir el menú del degrag y espera un poco.
> WshShell.SendKeys "%A"
> WScript.Sleep 2000
>
> 'Una vez abierto el menú envia una F para iniciar el defrag.
> WshShell.SendKeys "F"
>
> 'Espera hasta que el defrag halla terminado, chequeando el programa
> cada 5 segundos.
> While WshShell.AppActivate("Desfragmentación Completada") = FALSE
> wscript.sleep 5000
> Wend
>
> 'Manda la aplicación al fondo de la pantalla y espera un poco.
> WshShell.AppActivate "Desfragmentación Completada"
> WScript.Sleep 5000
>
> 'Envia una tabulación para mover el foco desde el botón de ver el
> report hasta el botón de cerrar y espera un poco.
> WshShell.Sendkeys "{TAB}"
> Wscript.Sleep 2000
>
> 'Envia la clave para cerrar la ventana de defragmentación completada y
> espera un poco.
> WshShell.Sendkeys "{ENTER}"
> Wscript.Sleep 1000
>
> 'Envia la clave para cerrar la ventana del defrag y espera un poco.
> WshShell.Sendkeys "%{F4}"
> </pego>
>
> Saludos !
> "Miguel González" escribió en el mensaje
> news:%
>> Con el Programador de Tareas (es un asistente). Lo encontrarás en el
>> Panel de Control.
>>
>>
>> Saludos!
>> Miguel
>>
>> "macarrascosa2uni2.es"
>> escribió en el mensaje news:0a0e01c39488$b7ba0330$
>> Cómo se puede programar una deframentación?