Voilà le script pour supprimer les droits numériques de Microsoft RMS sur les postes clients.
On Error Resume Next Const ForWriting = 2 Dim LocalAppData Dim fs,WshShell Dim f Set WshShell = CreateObject("Wscript.Shell") LocalAppData = WshShell.ExpandEnvironmentStrings("%LocalAppData%") cheminrepertoire = LocalAppData & "\Microsoft\DRM" cheminfichierdrm = LocalAppData & "\Microsoft\DRM\GIC-*.drm" cheminfichiertemoin = LocalAppData & "\KB2584066.txt" Set fs = Wscript.Createobject("Scripting.FileSystemObject") ' Test si le fichier temoin est présent wscript.Echo "Début suppresion DRM" If Not fs.FileExists(cheminfichiertemoin) Then ' Test si le répertoire existe wscript.Echo "Premier lancement du script" If fs.FolderExists(cheminrepertoire) Then wscript.Echo "Suppression des DRM" fs.DeleteFile cheminfichierdrm,True wscript.Echo "Création du fichier témoin" Set f = fs.OpenTextFile(cheminfichiertemoin, ForWriting,true) f.write("Ok!") End If Else wscript.Echo "Script déjà lancé" End If Set fs = Nothing
Bonjour demande d’aide mon image photos vidéos et cybermalvence sont sur les reseaux sociaux sont mon accord des insultes de menaces de mort de haines en ligne tout les jours pour me contater par mail merci cordialement