Discussion :

[battit64]

je cherche à faire un script qui s'execute via ad qui sauvegarde des cles de registre et les restaure automatiquement pour des recréation de profil apres un master de windows xp
ces cle sont dans le hku
merci

[battit64]

pour ceuw que ça interesse:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
dim strcommand
dim intRC
dim objWshShell
dim cle
 
sub exporter (cle)
set objWshShell = WScript.CreateObject("WScript.Shell")
strCommand = "regedit /SE c:\test.reg " & """" & cle & """"
wscript.echo strCommand
intRC = objWshShell.Run (strCommand, 0, TRUE)
if intRC <> 0 then
WScript.Echo "Erreur renvoyée de l'exportation de Registre:" & intRC
else
'WScript.Echo "Pas d'erreurs retournés d'exporter le fichier de registre"
end if
end sub
 
 
sub supprimer (cle)
set objWshShell = WScript.CreateObject("WScript.Shell")
strCommand = "REG DELETE "  & cle & " /f"
wscript.echo strCommand
intRC = objWshShell.Run (strCommand, 0, TRUE)
end sub
 
sub importer (cle)
set objWshShell = WScript.CreateObject("WScript.Shell")
strCommand = "regedit /S c:\test.reg " & """" & cle & """"
wscript.echo strCommand
intRC = objWshShell.Run (strCommand, 0, TRUE)
end sub
 
cle = "HKEY_CURRENT_USER\Printers"
'exporter(cle)
'supprimer(cle)
importer(cle)