Discussion :

[gicinternational]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[gicinternational]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Overcrash]

Salut,

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