Dans une feuille j'ai un bouton initulé « Scanner » qui déclenche la commande
"Sfc /scannow" par l'intermédiaire d'un process. J'utilise un sous-programme "RunCommand"
trouvé sur le Net.
Cette procédure fonctionne parfaitement avec l'utilitaire Dism /OnLine.... Mais pour exécuter
la commande Sfc /scannow il y a blocage avec le message « La Protection des Ressources n' pas
réussi à démarrer le service de réparation bien que je sois en Administrateur.

Voir image Cmd.jpg ci-joint

Si quelqu'un a une idée - Merci de vos réponses.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Scan_Click(sender As Object, e As EventArgs) Handles Scan.Click ' Scanne l'intégrité avec Sfc.exe /scannow
        MyUtilities.RunCommandCom("Sfc", "/Scannow", True)
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Class MyUtilities
        Shared Sub RunCommandCom(command As String, arguments As String, permanent As Boolean)
            Try
                Dim p As New Process()
                Dim pi As New ProcessStartInfo With {
                    .Arguments = " " + If(permanent = True, "/K", "/C") + " " + command + " " + arguments,
                    .FileName = "cmd.exe"
                }
                p.StartInfo = pi
                p.Start()
                p.Close()
            Catch Ex As Exception
                MsgBox(Ex.Message)
            End Try
        End Sub
    End Class