Scandisk Subroutine

In Knowledge Base Blog by angeladmin

‘sub scandisk
‘ Set dc = fso.Drives
‘ For Each d in dc
‘ If d.DriveType = 2 Then
‘ ignore=0
‘ errorval=0
‘ line = “chkdsk.exe /i ” & d
‘ ‘message(line)
‘ Set oeo3 = wshshell.Exec(line)
‘ Do While Not oeo3.Stdout.AtEndOfStream
‘ Str = oeo3.Stdout.ReadLine
‘ ‘if instr(str,”Number of files”) then message(trim(str))
‘ If InStr(Str,”errors in the Volume Bitmap”) Then ignore=1
‘ if instr(Str,” found problems”) and ignore<>1 then
‘ message(“Critical – Chkdsk found Problems on Drive ” & d & ” Please run chkdsk /f to Fix the Problems”)
‘ errorval=1
‘ end If
‘ ‘message(str)
‘ Loop
‘ if errorval<>1 then message(“Good – Scandisk Analyse OK on Drive ” & d & “”)
‘ End If
‘ Next
‘end Sub
sub scandisk
Set dc = fso.Drives
For Each d in dc
If d.DriveType = 2 Then
errorval=0
line = “chkdsk.exe /i ” & d
‘message(line)
Set oeo3 = wshshell.Exec(line)
errorval2=0
Do While Not oeo3.Stdout.AtEndOfStream
str = oeo3.Stdout.ReadLine
If InStr(Str,”Correcting errors in the Volume Bitmap”) Then errorval2=1
‘if instr(str,”Number of files”) then message(trim(str))
if instr(str,” found problems”) Then
If errorval2<>1 Then
message(“Critical – Chkdsk found Problems on Drive ” & d & ” Please run chkdsk /f to Fix the Problems”)
errorval=1
End If
end if
‘message(str)
Loop
if errorval<>1 then message(“Good – Scandisk Analyse OK on Drive ” & d & “”)
End If
Next
end sub

Angel Computers – Contact Us