Shared Function CheckDisc(ByVal Laufwerksbuchstabe As String) As Boolean
        LogFile.WriteLogFile("Check Disc")
        CheckDisc = False
 
        Try
 
            Dim ClassInstance As New Management.ManagementObject("root\CIMV2", _
              "Win32_LogicalDisk.DeviceID='" & Laufwerksbuchstabe & ":'", _
              Nothing)
            Dim inParams As Management.ManagementBaseObject = _
            ClassInstance.GetMethodParameters("Chkdsk")
 
            inParams("FixErrors") = False
            inParams("ForceDismount") = False
            inParams("OkToRunAtBootUp") = False
            inParams("RecoverBadSectors") = False
            inParams("VigorousIndexCheck") = True
 
 
            Dim outParams As Management.ManagementBaseObject = _
              ClassInstance.InvokeMethod("Chkdsk", inParams, Nothing)
            Dim Ergebnis As String = ""
            For Each Itm As Management.PropertyData In outParams.Properties
                LogFile.WriteLogFile(Itm.Name & " = " & Itm.Value)
            Next
            Ergebnis = outParams("ReturnValue")
            Select Case Ergebnis
                Case Is = "0"
                    LogFile.WriteLogFile(, "CheckDisc ergab keine Fehler auf " _
                      & Laufwerksbuchstabe & ":\")
                    CheckDisc = True
                Case Else
                    LogFile.WriteLogFile(, "CheckDisc ergab: Es wurden Fehler" & _
                      "gefunden. " & Laufwerksbuchstabe, New Exception( _
                      "CheckDisc hat Fehler auf " & Laufwerksbuchstabe & ":" & _
                      "gefunden. Checkdisc manuell durchführen! Fehlercode: " & _
                      Ergebnis))
                    CheckDisc = False
            End Select
        Catch ex As Exception
            LogFile.WriteLogFile(, "Fehler beim CheckDisc ", ex)
        End Try
           End Function