SCRIPT Désactiver / Activer Point de restauration

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

je souhaiterais réaliser un script qui permettent d'activer ou de désactiver les points de restaurations sous windows. J'ai trouvé le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 onoff = inputbox ("Souhaitez-vous désactiver ou activer la restauration du système ?", "Restauration du système") Drive = inputbox ("Sur quel lecteur souhaitez-vous agir ? Vous devez utiliser le format 'c:\'", "Lecteur à activer/désactiver") set SRP = GetObject("winmgmts:\\.\root\default:SystemRestore") If onoff = "enable" then GetObject("winmgmts:\\.\root\default:SystemRestore").enable(drive) end if If onoff = "disable" then GetObject("winmgmts:\\.\root\default:SystemRestore").disable(drive) end if
Malheureusement ce code ne fonctionne pas du tout sous windows vista et 7 ! Mais il fonctionne très bien sous windows XP.

Pourriez vous m'aider.
NB : vous trouverez en pièce jointe le message d'erreur générée.

Merci

02/05/2010, 13h30
Overcrash

Bonjour,

Tu le lance bien avec "Exécuter en tant que ?"
Sinon essaye de modifier dans les paramètres de compatibilité :)

Ça règle souvent le problème.

En faite très simple il faut lancer le script pour vista et 7 en administrateur

Code:

1
2
3
4
5
6
7
8
9
If WScript.Arguments.length =0 Then
		Set objShell = CreateObject("Shell.Application")
			objShell.ShellExecute "wscript.exe", Chr(34) & _
			WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
		Else
 
                       ' Mettre votre code ICI !
 
		End If

04/05/2010, 14h46
Overcrash

Salut,

Pense a mettre le tag Résolu si cela a régler ton probleme :)