Vider le cache internet de tous les utilisateurs d'un serveur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 12 540 fois - Téléchargée 31 fois

Contenu du snippet

Vider le cache internet de tous les utilisateurs d'un serveur

Source / Exemple :


Module modMain
    Private Const csDir As String = "Temporary Internet Files"

    Sub Main()
        Try
            sbDeleteCache()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub sbDeleteCache()
        Try
            Dim D As String = Environment.GetFolderPath(Environment.SpecialFolder.System)
            D = IO.Path.GetPathRoot(D)
            sbDeleteCache(D)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub sbDeleteCache(ByVal Rep As String)
        Try
            Dim D As IO.DirectoryInfo
            D = New IO.DirectoryInfo(Rep)
            Dim dD() As IO.DirectoryInfo = D.GetDirectories
            Dim sD As IO.DirectoryInfo
            For Each sD In dD
                If sD.Name.StartsWith(csDir) Then
                    sbDeleteDir(sD)
                Else
                    sbDeleteCache(sD.FullName)
                End If
            Next
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub sbDeleteDir(ByVal D As IO.DirectoryInfo)
        Try
            Dim F As IO.FileInfo() = D.GetFiles
            Dim sF As IO.FileInfo
            For Each sF In F
                Try
                    Console.WriteLine(sF.FullName)
                    IO.File.SetAttributes(sF.FullName, IO.FileAttributes.Normal)
                    sF.Delete()
                Catch ex As Exception
                    Console.WriteLine(ex.Message)
                End Try
            Next
            Dim dD As IO.DirectoryInfo()
            dD = D.GetDirectories
            Dim sD As IO.DirectoryInfo
            For Each sD In dD
                Console.WriteLine(sD.FullName)
                sD.Delete(True)
            Next
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub
End Module

A voir également

Ajouter un commentaire

Commentaires

Messages postés
40
Date d'inscription
jeudi 23 octobre 2003
Statut
Membre
Dernière intervention
15 mai 2008

Marche pas du tout si tu es pas admin de ta machine !!! :(
Messages postés
956
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
21 août 2014
1
Merci
(Les GPO avec IE ne fonctionnent pas très bien il parait...)
Messages postés
6
Date d'inscription
dimanche 16 novembre 2003
Statut
Membre
Dernière intervention
29 septembre 2006

Pour vider le cache de tous les utilisateurs, tu peux aussi utiliser une GPO. on se sert de ça avec Citrix. En tout cas ton source est impec et il va surement me servir pour mes moulinettes... allez : 9/10 !
Messages postés
1447
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
23 septembre 2007
1
anthony39166 j'ai fait un spyware maintenant !
Messages postés
7
Date d'inscription
vendredi 24 février 2006
Statut
Membre
Dernière intervention
3 mars 2006

bonjour !
oui c'est vrai ! bien vu !
redman j'aurais besion de ton aide !
merci de faire acte de présence !

le savoir et la meilleure force de l'homme !
Afficher les 31 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.