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