Script Suppression DRM – Microsoft AD RMS

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

Une réflexion sur « Script Suppression DRM – Microsoft AD RMS »

  1. 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

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *