Recommended Posts

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

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.

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.

'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

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
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.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • >defenders of AI-generated artworks often claim that AI is just a tool It is not. It is the inhuman artist replacement. The human writing the prompt is the employer/manager requesting the work product of the artist -- a supervisory/descriptive job that doesn't carry with it any rights to the copyright of that work product at all. And since AI is not human itself, it can't gain copyright for anything it is asked to regurgitate or hallucinate, so it can't transfer that copyright to the employer/manager/human who asked for the output. This was all legally reaffirmed last year. So, no, while there are AI tools, AI slopware generation is NOT a "tool" in the legal definition of that word.
    • As long as i get to play GTA 6 before it ends 😂😂
    • Google is opening the world's first AI museum in Los Angeles by Ivan Jenic Image via: Google Ever since AI image generators went mainstream, the debate over whether AI-generated art is real art hasn't let up. Those who don’t consider AI to be art say that if a machine does the creating and anyone can prompt it, there’s no skill involved, and therefore no art is produced. The counter-argument is equally persistent, as defenders of AI-generated artworks often claim that AI is just a tool, and that every major technological breakthrough, like the camera or the computer, was met with the same skepticism before eventually being accepted as a legitimate creative medium. Google’s position in this debate is clear. Which is no surprise, as the company is investing billions in AI infrastructure. And now, in efforts to encourage people to use its AI even more, Google is opening Dataland on June 20, which it's calling the world's first AI arts museum. Located inside The Grand LA, a Frank Gehry-designed building in Los Angeles, the museum spans 25,000 square feet. The museum is built around a collaboration with media artist Refik Anadol, who has worked with Google since 2016. The inaugural exhibition is called Machine Dreams: Rainforest, and is powered by an AI model trained on “an extensive dataset of the natural world.” It generates 1.2 billion pixels of visuals in real time and reacts to visitors dynamically. The space also generates soundscapes, real-time emotion sensing, and algorithmically produced scents. Image via: Refik Anadol Studio / Google Google says that the museum is powered by its Gemini models, which run on Google Cloud. So, everything is generated inside one of Google’s AI data centers and is streamed to the museum. Alongside the museum opening, Google Arts & Culture is funding an AI Artist Residency, giving four artists $25,000 grants each, along with mentorship from Refik Anadol Studio and access to Google's machine learning tools. Their work will be shown at Dataland and on the Google Arts & Culture website later this year. Google’s AI museum will undoubtedly initiate a fired-up debate on social media, and we can’t wait to see the first reactions. Via: Smithsonian Magazine
    • Calling GTA 6 overhyped crap doesn’t make you edgy, it just makes you sound like someone who hasn’t enjoyed anything since the PS2 era.
    • I’m not arguing whether Rockstar likes money. Obviously, they do, they’re a business. I’m saying this isn’t new. They’ve always launched console first. This is just how Rockstar operates.
  • Recent Achievements

    • First Post
      AndreaB earned a badge
      First Post
    • Week One Done
      Huge Trailer earned a badge
      Week One Done
    • Week One Done
      Classifyskilleducation earned a badge
      Week One Done
    • One Month Later
      eurospharma62 earned a badge
      One Month Later
    • Week One Done
      With What earned a badge
      Week One Done
  • Popular Contributors

    1. 1
      +primortal
      570
    2. 2
      +Edouard
      178
    3. 3
      PsYcHoKiLLa
      74
    4. 4
      Michael Scrip
      68
    5. 5
      neufuse
      64
  • Tell a friend

    Love Neowin? Tell a friend!