Autodefragmentace přes wscript

Ahoj lidi,
našel jsem po delšim hledání na netu script na autodefragmentaci ve win2000prof CZ, do 2 disků běhá ok,ale ja to potřebuji na komp kde jsou 4 disky. stahoval jsem to z této stránky: http://www.windowsitpro.com/Articles/Index.cfm?Arti cleID=8276 a upravil jsem jen české názvy, programovat neumim a teď ten problém- zkoušel jsem asi 3 scripty jeden mi ze 4 disků zdefragmentuje 3x ten druhej, další nepřešel ani na druhý disk, třetí zase přeskakuje 3 disk,pastnu sem třeba ten co 3x udělá 2 disk:

/Tak bohužel nepastnu, je to moc řádek a neodešle to dotaz,ale pokud se najde někdo kdo by mi mohl poradit tak zašlu na mail/

Nevidíte někdo problém?? Já fakt ne
Předem moc dík a omlovám se za tak dlohou otázku

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
tohle by mělo fungovat: Set WshShell = WScript.CreateObject("WScript.Shell") Dim fso, d, dc Set fso… touchwood 11.04.2006 15:21	touchwood	11.04.2006 15:21
tohle by mělo fungovat na systémech, kde je defrag.exe (nejsem si jist, že je na W2000): Set WshShe… touchwood 11.04.2006 15:40	touchwood	11.04.2006 15:40
Jo taak, no tam nejni to uz jsem tedy přepsal- je tam dfrg.msc,ale vim že jsem otravnej ale ten scri… Maverick 11.04.2006 15:46	Maverick	11.04.2006 15:46
jeslti to je na jednu mašinu, tak to udělej napřímo a můžeš použít i parametr -f touchwood 11.04.2006 16:00	touchwood	11.04.2006 16:00
To ale přeci nejde, dvoulitry nemaj defrag ale dfrg.msc a tam prepinace nebehaj (tedy na zadne jsem… nový Maverick 11.04.2006 16:19	Maverick	11.04.2006 16:19
defrg.msc a defrag.exe jsou dva rozdílné nástroje a v XP jsou oba. Viz: http://support.microsoft.co… nový touchwood 11.04.2006 19:42	touchwood	11.04.2006 19:42
Super,sice jsem toho vygooglil dost ale na tohle jsem nenarazil, teď jsem se nedostanu na ten se 4 d… nový Maverick 12.04.2006 10:15	Maverick	12.04.2006 10:15
Bomba tak to běhá jak má,dokonce neni problém upravit to pro víc disků,pro toho kdo by to potřeboval… poslední Maverick 13.04.2006 12:00	Maverick	13.04.2006 12:00

tohle by mělo fungovat:

Set WshShell = WScript.CreateObject("WScript.Shell")

Dim fso, d, dc
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 Then
Return = WshShell.Run("defrag " & d, 1, TRUE)
End If
Next

Set WshShell = Nothing

tohle by mělo fungovat na systémech, kde je defrag.exe (nejsem si jist, že je na W2000):

Set WshShell = WScript.CreateObject("WScript.Shell")

Dim fso, d, dc
Set fso = CreateObject("Scripting.FileSystemObject")
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 Then
Return = WshShell.Run("defrag " & d, 1, TRUE)
End If
Next

Set WshShell = Nothing

C:\>defrag
Defragmentace disku systému Windows
Copyright (c) 2001 Microsoft Corp. and Executive Software International, Inc.
Použití:
defrag <svazek> [-a] [-f] [-v] [-?]
 svazek písmeno jednotky nebo připojovací bod (d: nebo
        d:\svazek\připojovací_bod)
 -a     Provede pouze analýzu
 -f     Vynutí defragmentaci i v případě nedostatku místa
 -v     Zobrazí podrobný výstup
 -?     Zobrazí text této nápovědy

Jo taak, no tam nejni to uz jsem tedy přepsal- je tam dfrg.msc,ale vim že jsem otravnej ale ten script udělá toto- pustí defragmentaci a nic vic (uz nezacne defrag ani analýza),křížkem ji zavřu,on ji otevře znova ale na druhym disku a takhle dal a dal ale na tretim a ctvrtym disku

jeslti to je na jednu mašinu, tak to udělej napřímo a můžeš použít i parametr -f

To ale přeci nejde, dvoulitry nemaj defrag ale dfrg.msc a tam prepinace nebehaj (tedy na zadne jsem neprisel), proto přes ty scripty

defrg.msc a defrag.exe jsou dva rozdílné nástroje a v XP jsou oba. Viz:

http://support.microsoft.com/default.aspx?scid=kb;e n-us;Q227463

dále jsem ti vygooglil tohle:

W2KDfrag.htm

je tam i prográmek "autodefrag," který by měl dělat přesně to, co potřebuješ

P.S.:BTW, další důkaz nedodělanosti Win2k...

Super,sice jsem toho vygooglil dost ale na tohle jsem nenarazil, teď jsem se nedostanu na ten se 4 diskama ale později to určitě zkusim.
Během zítra písnu zda to běhá a jestli jo tak jsi nejlepší (jako vždy)
zatim dík
P.S. sice nějaké ty problémy na win2k jsou ale mam je raději než xpčka, tedy alespoň zatím

Bomba tak to běhá jak má,dokonce neni problém upravit to pro víc disků,pro toho kdo by to potřeboval,tak jsou tam scipty i pro xpčka a pro 1 až 4 disky.
Touchwoode moc dík

Zpět do poradny Odpovědět na původní otázku Nahoru