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… 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… touchwood 11.04.2006 19:42	touchwood	11.04.2006 19:42
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...

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