‘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
Is It Time to Migrate from G Suite to Microsoft 365?
Google’s G Suite (now called Google Workspace) and Microsoft 365 are the major productivity software players competing for attention, and both are worthy of consideration for entirely different reasons. However, many companies eventually leave the startup phase and outgrow G Suite. This is when you know it’s time to migrate to Microsoft 365.