Solved

VB script

Posted on 2009-07-06
4
443 Views
Last Modified: 2012-05-07
I am trying to defrag all drives on a windows 2003 server box. When I try to run the script below it does not work. Can anyone recomend a new script or how to fix this one?
'Defrags all drives
 

Const LogFile = "f:\log\Defrag.log"
 

Const DriveTypeRemovable = 1

Const DriveTypeFixed = 2

Const DriveTypeNetwork = 3

Const DriveTypeCDROM = 4

Const DriveTypeRAMDisk = 5
 

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Drives = FSO.Drives
 

For each Drive in Drives

 if Drive.DriveType = 2 then

  RunCmd Drive

 end if

Next
 

Sub RunCmd(DriveString)

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

RunString = "%comspec% /c echo " & WeekDayName(WeekDay(Now), True) & " " & Now & " " & DriveString

Return = WshShell.Run(RunString & " >> " & LogFile & " 2>&1", 0, TRUE)

RunString = "%comspec% /c %WINDIR%\System32\Defrag.exe " & DriveString & " -f"

Return = WshShell.Run(RunString & " >> " & LogFile & " 2>&1", 0, TRUE)

Set WshShell = Nothing

End Sub

Open in new window

0
Comment
Question by:ipcipher
  • 2
  • 2
4 Comments
 
LVL 47

Accepted Solution

by:
Donald Stewart earned 500 total points
ID: 24791693
I use the second script on this page with great success

http://www.dougknox.com/utility/scripts_desc/defrag_all.htm

'defrag_all2.vbs

'Defrags all hard disks - Can be run as a Scheduled Task

'Modified to create an error log and display it

'© Doug Knox - 4/13/2002
 

Option Explicit
 

Dim WshShell, fso, d, dc, ErrStr(), Return, X, A(), MyFile, I, MyBox, Drive
 

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

Set fso = CreateObject("Scripting.FileSystemObject")

X = 0
 

   Set dc = fso.Drives

For Each d in DC 

	If d.DriveType = 2 Then

	   X = X + 1
 

'Determine drive letter of first fixed disk

'This is the drive that the error report will be placed on

		If X = 1 Then

		   Drive = d

		End If

	End If

Next
 

ReDim A(X)

ReDim ErrStr(X)
 

X = 0

For Each d in dc

      If d.DriveType = 2 Then

      X = X + 1

      Return = WshShell.Run("defrag " & d & " -f", 1, TRUE)
 

'Determine the Error code returned by Defrag for the current drive and save it

If return = 0 then

  ErrStr(x) = ErrStr(x) &  "Drive " & d & " Defrag completed successfully" & vbCRLF

elseif return = 1 then

  ErrStr(x) = ErrStr(x) &  "Drive " & d & " Defrag aborted with error level " & return & " (defrag was cancelled manually) " & vbCRLF

elseif return = 2 then

  ErrStr(x) = ErrStr(x) &  "Drive " & d & " Defrag aborted with error level " & return & " (there was a command line error. Check your command line for valid switches and drives)" & vbCRLF

elseif return = 3 then

  ErrStr(x) = ErrStr(x) &  "Drive " & d & " Defrag aborted with error level " & return & " (there was an unknown error)" & vbCRLF

elseif return = 4 then

  ErrStr(x) = ErrStr(x) &  "Drive " & d & " Defrag aborted with error level " & return & " (defrag could not run due to insufficient memory resources)" & vbCRLF

  'errorlevel 5 is not currently used

elseif return = 5 then

  ErrStr(x) = ErrStr(x) &  "Drive " & d & " Defrag aborted with error level " & return & " (general error)" & vbCRLF

elseif return = 6 then

  ErrStr(x) = ErrStr(x) &  "Drive " & d & " Defrag aborted with error level " & return & "(System error: either the account used to run defrag is not an administrator, there is a problem loading the resource DLL, or a defrag engine could not be accessed. Check for proper user permissions and run Sfc.exe to validate system files)" & vbCRLF

elseif return = 7 then

  ErrStr(x) = ErrStr(x) &  "Drive " & d & " Defrag aborted with error level " & return & " (There is not enough free space on the drive. Defrag needs 15% free space to run on a volume)" & vbCRLF

else

  ErrStr(x) = ErrStr(x) &  "Drive " & d & " Defrag aborted with an unknown error level: " & return & vbCRLF

end if
 

       End If

   Next
 

'Create the Error Report in the root of the first fixed disk.

Set MyFile = fso.OpenTextFile(Drive & "\defragreport.txt", 2, True)

MyFile.WriteLine(Date) & vbCRLF

MyFile.WriteLine(Time) & vbCRLF

   For I = 1 to X

      MyFile.WriteLine(ErrStr(I))

   Next

   MyFile.Close
 

Return = WshShell.Run(Drive & "\defragreport.txt",3,True)
 

Set WshShell = Nothing

Set fso = Nothing

Open in new window

0
 
LVL 1

Author Closing Comment

by:ipcipher
ID: 31600130
Hey thanks! Your script works good. Do you know any good scripting editors?
0
 
LVL 47

Expert Comment

by:Donald Stewart
ID: 24798467
0
 
LVL 1

Author Comment

by:ipcipher
ID: 24798776
Thank you for your help..... I wish I could give you more points..... Keep up the good work.
0

Featured Post

Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Build VS2015 project in bat command 3 80
OWA and AppPool problem 20 127
Using SCCM 2012 R2 v1607 to deploy Office 365 ? 2 90
Post a good COM tutorial 1 50
Many admins will agree: WSUS is is a nice invention but using it on the client side when updating a newly installed computer is still time consuming as you have to do several reboots and furthermore, the procedure of installing updates, rebooting an…
A theme is a collection of property settings that allow you to define the look of pages and controls, and then apply the look consistently across pages in an application. Themes can be made up of a set of elements: skins, style sheets, images, and o…
Windows 8 came with a dramatically different user interface known as Metro. Notably missing from that interface was a Start button and Start Menu. Microsoft responded to negative user feedback of the Metro interface, bringing back the Start button a…
With the advent of Windows 10, Microsoft is pushing a Get Windows 10 icon into the notification area (system tray) of qualifying computers. There are many reasons for wanting to remove this icon. This two-part Experts Exchange video Micro Tutorial s…

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now