Defragger for Vista

By kiddingguy
in Microsoft (Windows)

 Share

Recommended Posts

Grand Master

kiddingguy

Posted
Posted

Hello,

I have bought a license for O&O Software's Defrag.

This version is also compatible with Vista.

I was wondering... is any 3rd party defragging tool better than Windows' Vista build-in one?

For XP I have noticed much improvement using O&O's Software version.

Link to comment
https://www.neowin.net/forum/topic/557923-defragger-for-vista/
Share on other sites
Grand Master

Doli

Posted
Posted

Wow, the 4th reply on that site.

Please, as a user, my highest priority is speed of defrag, not the efficiency...

:blink:

The only problem I have with Vista Defrag is that when I do a manual defrag my computer will go to sleep mode during the defrag so I have to set the sleep time to "never". Other than that my computer runs smooth when im defrag is running with other programs open.

Experienced

Kasteo

Posted
Posted

The problem of build in Vista defrager is that you can't select which drive you want it to defrag... when you click defragment, it will defrag every drive your system has at the moment... which is a really bad thing for me. Don't know why it is a step back from Windows XP.

Rising Star

Infinione

Posted
Posted

'Auslogics Disk Defrag' all the way!

I use it on Vista, and have turned off the built in defragger. I added a sheduled task to run Auslogics disk defrag once a month.

Reviews: http://www.snapfiles.com/opinions/auslogic...isk-defrag.html

Very very fast, you get a nice block graph, and it reports the improvement in your system speed when it's done. Best of all, it's completely free!

Download it here:-

http://www.auslogics.com/disk-defrag/index.php

screenshot.gif

Auslogics also do a registry defrag, which I haven't tried on Vista (little bit scared to do so), however I ran it on my XP work laptop with no problems at all.

Download it here: http://www.auslogics.com/registry-defrag/index.php

Community Regular

jake1eye

Posted
Posted

I just use Vista built in defrag and a VBS script to run it.

Save As DefragDrive.vbs

strComputer = "." 
 Dim Wmi : Set Wmi = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
 Dim Act : Set Act = CreateObject("Wscript.Shell")
 Dim ObjItem,ColItems,GB, Var1
  GB = Int(1073741824)
Set ColItems = Wmi.ExecQuery("SELECT * FROM Win32_LogicalDisk",,48) 
   For Each ObjItem in ColItems 
	If ObjItem.DriveType = 3 Then 
	Var1 = objItem.Size - objItem.FreeSpace
	 Act.Popup "Preparing To Defrag This Drive" & vbCrLf &_
	 Space(3) & "Drive Letter"& vbTab & ObjItem.Caption & vbCrLf &_
	 Space(3) & "Volume Name" & vbTab & objItem.VolumeName & vbCrLf &_
	 Space(3) & "Total Size" & vbTab & FormatNumber(objItem.Size/GB,2) & " GB" & vbCrLf &_
	 Space(3) & "Free Space" & vbTab & FormatNumber(objItem.FreeSpace/GB,2) & " GB" & vbCrLf &_
	 Space(3) & "Used Space" & vbTab & FormatNumber(Var1/GB,2) & " GB", 3,"Defrag",4128
	 Act.Run("Defrag.exe " & ObjItem.Caption &"\"),2,True 
	End If 
   Next
  Act.Popup "Finished The Defrag",7,"Finshed Defrag",4128

I use this script to clear resent, temp and Defrag all drives

Save As SysMaintence.vbs

 Const MY_RECENT_DOCUMENTS = &H8&
 Dim Arg1, ColItems, File, GB, ObjItem, StrF, StrFItem, strComputer, Var1
  strComputer = "." 
 Dim Shell :Set Shell = CreateObject("Shell.Application")
 Dim Act   :Set Act = CreateObject("Wscript.Shell")
 Dim Fso   :Set Fso = CreateObject("Scripting.FileSystemObject")
 Dim Wmi   :Set Wmi = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
  Set StrF = Shell.Namespace(MY_RECENT_DOCUMENTS)
  Set StrFItem = StrF.Self
  Set ColItems = StrF.Items
'/-> Clear Recent List 
   If ColItems.Count = 0 Then
	Act.Popup "Recent is Empty, Nothing To Delete",3,"Clear Recent",4128
   Else 
	Act.Popup "Preparing To Clean Up The Recent Folder",3,"Clear Recent",4128
   For Each ObjItem in ColItems
	Set Arg1 = Fso.GetFile(ObjItem.Path)
	Arg1.Delete()
   Next
  End If 
'/-> Clears User Tmp Folder
  Set Var1 = Fso.GetFolder(Fso.GetSpecialFolder(2))
  Set File = Var1.Files 
  Act.Popup "Preparing To Clean Up User Temp" & vbCrLf & Var1.Path,3,Var1.Name,4128 
  For Each StrF In File
   If InStr(StrF.Name,".bmp") Then 
	Else 
	 Set Arg1 = Fso.GetFile(StrF.Path) 
	 On Error Resume Next 
	Arg1.Delete()
   End If 
  Next
'/-> Defrag All Drives
  GB = Int(1073741824)
  Set ColItems = Wmi.ExecQuery("SELECT * FROM Win32_LogicalDisk",,48) 
  For Each ObjItem in ColItems 
   If ObjItem.DriveType = 3 Then 
	Var1 = objItem.Size - objItem.FreeSpace
	Act.Popup "Preparing To Defrag This Drive" & vbCrLf &_
	Space(3) & "Drive Letter"& vbTab & ObjItem.Caption & vbCrLf &_
	Space(3) & "Volume Name" & vbTab & objItem.VolumeName & vbCrLf &_
	Space(3) & "Total Size" & vbTab & FormatNumber(objItem.Size/GB,2) & " GB" & vbCrLf &_
	Space(3) & "Free Space" & vbTab & FormatNumber(objItem.FreeSpace/GB,2) & " GB" & vbCrLf &_
	Space(3) & "Used Space" & vbTab & FormatNumber(Var1/GB,2) & " GB", 3,"Defrag",4128
	Act.Run("Defrag.exe " & ObjItem.Caption &"\"),2,True 
   End If 
  Next
  Act.Popup "Finished The Defrag",7,"Finshed Defrag",4128
Community Regular

jake1eye

Posted
Posted
Does this only defrag disk C ?

It defrag all local drives on the computer.

If you want to only degrag C here is a script.

Save As Defrag_C.vbs

strComputer = "." 
Dim Wmi : Set Wmi = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
Dim Act : Set Act = CreateObject("Wscript.Shell")
Dim ObjItem,ColItems,GB, Var1
  GB = Int(1073741824)
Set ColItems = Wmi.ExecQuery("SELECT * FROM Win32_LogicalDisk",,48) 
   For Each ObjItem in ColItems 
	If ObjItem.DriveType = 3 Then 
	 If InStr(ObjItem.Caption,"C") Or InStr(ObjItem.Caption,"c") Then 
	  Var1 = objItem.Size - objItem.FreeSpace
	  Act.Popup "Preparing To Defrag This Drive" & vbCrLf &_
	  Space(3) & "Drive Letter"& vbTab & ObjItem.Caption & vbCrLf &_
	  Space(3) & "Volume Name" & vbTab & objItem.VolumeName & vbCrLf &_
	  Space(3) & "Total Size" & vbTab & FormatNumber(objItem.Size/GB,2) & " GB" & vbCrLf &_
	  Space(3) & "Free Space" & vbTab & FormatNumber(objItem.FreeSpace/GB,2) & " GB" & vbCrLf &_
	  Space(3) & "Used Space" & vbTab & FormatNumber(Var1/GB,2) & " GB", 3,"Defrag",4128
	  Act.Run("Defrag.exe " & ObjItem.Caption &"\"),2,True
	 End If  
	End If 
   Next
  Act.Popup "Finished The Defrag",7,"Finshed Defrag",4128
This topic is now closed to further replies.
 Share
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.