title image


Smiley Re: Defragmentierung automatisch starten
Hier die Erweiterung:



'Win2000 Defragmentierung für Taskplaner, mit VB-Script



'Shell-Objekt initialisieren

Set WshShell = CreateObject("WScript.Shell")



'Defrag-Management-Console mit gewünschtem Laufwerk starten

WshShell.Run "dfrg.msc c:"



'Warteschleife, bis das Fenster "Defragmentierung" erscheint

While WshShell.AppActivate("Defragmentierung") = FALSE

Wscript.Sleep 1000

Wend



'Defragmentierungs-Fenster zur Sicherheit nochmal aktivieren

WshShell.AppActivate "Defragmentierung"

Wscript.Sleep 200



'Tastenfolge zum Start der Defragmentierung senden

WshShell.SendKeys "%OD"



'Warten, bis Defragmentierung beendet ist oder Frage nach verfügbarem Speicherplatz erscheint (alle 5 Sek. auf Erscheinen der



Meldungsbox testen)

While (WshShell.AppActivate("Defragmentierung abgeschlossen") = FALSE And WshShell.AppActivate("Defragmentierungsprogramm") =



FALSE)

Wscript.Sleep 5000

Wend



'Bei Frage nach verfügbarem Speicherplatz mit "Ja" antworten

If WshShell.AppActivate("Defragmentierungsprogramm") = TRUE Then

WshShell.AppActivate "Defragmentierungsprogramm"

Wscript.Sleep 200

WshShell.SendKeys "J"

'Erneut warten, bis Defragmentierung beendet ist

While WshShell.AppActivate("Defragmentierung abgeschlossen") = FALSE

Wscript.Sleep 5000

Wend

End If



'Meldungsbox zur Sicherheit nochmal aktivieren

WshShell.AppActivate "Defragmentierung abgeschlossen"

WScript.Sleep 200



'Tastenkombination ALT+F4 zum Schliessen der Meldungsbox senden

WshShell.Sendkeys "%{F4}"

WScript.Sleep 200



'Tastenkombination ALT+F4 zum Beenden von Defrag senden

WshShell.Sendkeys "%{F4}"





Gruß

I. Seibold

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: