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