Question Déployer un fichier REG sur serveur distant

Slt,

C'est ce que je pense aussi... c'est pour cela que je demandais pourquoi ne pas utiliser regedit ?

Si tu cherches absolument à interprêter ton .reg en powershell, tu n'auras effectivement pas beaucoup plus d'intérêt que de le faire en vbs.
Mais powershell est quand même un peu plus souple; une petite base de ce qui pourrait être fait:

[code:1]$reg=Get-Content \".\tonfichier.reg\"
$reg|?{
if ($_ -match \"^\[\"«») #Si car [ --> recup de la cle de registre
{$pathkey=$_}
else
{if ($_ -match \"^\x22\"«») #Sinon si carac \" , recup de la val et de la donnee
{$val=$_.split(\"=\"«»)[0];$dat=$_.split(\"=\"«»)[1]
write-host \"Path= $pathkey Valeurs= $val Données= $dat\"}
}}
[/code:1]

Sinon, plutôt que de faire de la conversion .reg, peut-être pourrais-tu directement les extraire via powershell...

Tu peux essayer via cette méthose pour mettre la base de registre à distance:
thepowershellguy.com/blogs/posh/archive/...with-powershell.aspx


Ensuite, je ne connais pas vraiment d'autres solutions que ce que propose Arnaud pour le mettre à distance.
L'utlisation de regedit via psexec, rsh, telnet... me semble être le plus simple.

Comme vous dites je suis passé par un regedit avec psexec avec .. du bon VBS

Vu que je me lance doucement dans le powershell j'aurais eu une bonne occasion de le faire si il savait interpréter les .reg!

Je vous joins mon bout de code VBS, ça peut toujours intéresser quelqu'un ... même si c'est d'un niveau débutant! Mais le principal c'est que ça fonctionne!

[code:1]
strDate = Date
strDate = Replace(strDate,\"/\",\"-\"«»)
Set obj_fso = CreateObject(\"Scripting.FileSystemObject\"«»)
Set obj_network = WScript.CreateObject(\"Wscript.Network\"«»)
Set obj_shell = Wscript.CreateObject(\"Wscript.shell\"«»)
Set liste_srv = obj_fso.OpenTextFile(\"liste_serveur.txt\",1)

chemLogs = \"Logs_\" & strDate & \".txt\"
If obj_fso.FileExists(chemLogs) = True Then
Set logFile = obj_fso.OpenTextFile(chemLogs,8)
Else
Set logFile = obj_fso.CreateTextFile(chemLogs)
End if

strUser = inputbox(\"Login de l'administrateur:«»(ex: NEOCORP\srvcdu)\",\"Information\"«»)
verif(strUser)
strPass = inputbox(\"Mot de passe de l'administrateur:\",\"Information\"«»)
verif(strPass)
mountPart = inputbox(\"Lettre de partition disponible pour monter le lecteur réseau:«»(en local, de type F/G/Y/...)\",\"Information\"«»)
verif(mountPart)
destPart = inputbox(\"Lettre de la partition système du système distant:«»(C/M/...)\",\"Information\"«»)
verif(destPart)
nomReg = inputbox(\"Quel est le nom du fichier REG?\",\"Information\"«»)
verif(nomReg)
Set monFichier = obj_fso.GetFile(\"DATA\\" & nomReg)

choix = MsgBox(\"Lancer le script?\", vbOKCancel + vbInformation, \"Confirmation\"«»)
verif(choix)

logFile.WriteLine(\"<

---

DEBUT DU SCRIPT

---

>\"«»)
logFile.WriteLine(\"Utilisateur -> \" & strUser)
logFile.WriteLine(\"Montage réseau lecteur sur -> \" & mountPart & \":\"«»)
logFile.WriteLine(\"Partition de destination -> \" & destPart & \":\"«»)

Do While liste_srv.AtEndOfStream = False
monServeur = liste_srv.ReadLine
wscript.echo (\"Connexion au serveur \" & monServeur)
logFile.WriteLine(vbCrLf & \"********** \" & Ucase(monServeur) & \" **********\"«»)
obj_network.MapNetworkDrive mountPart & \":\",\"\\\" & monServeur & \"\\" & destPart & \"$\", false, strUser, strPass
logFile.WriteLine(\"-> Montage du lecteur \" & mountPart & \":\"«»)
monFichier.Copy mountPart & \":\\"
obj_shell.run \"cmd /c psexec \\\" & monServeur & \" -u \" & strUser & \" -p \" & strPass & \" regedit /s \" & destPart & \":\\" & nomReg,0,true
logFile.WriteLine(\"=> Lancement du fichier \" & destPart & \":\\" & nomReg)
obj_fso.DeleteFile(mountPart & \":\\" & nomReg)
logFile.WriteLine(\"=> Suppression du fichier \" & mountPart & \":\\" & nomReg)
obj_network.RemoveNetworkDrive(mountPart & \":\"«»)
logFile.WriteLine(\"-> Démontage du lecteur \" & mountPart & \":\"«»)
Loop
logFile.WriteLine(\"<

---

FIN DU SCRIPT

---

>\"«»)
wscript.echo \"Mise à jour terminée avec succès\"

logFile.Close

Sub verif(ByVal Valeur)
If Len(Valeur) = 0 OR Valeur = vbCancel Then
wscript.echo \"Fin du script\"
wscript.quit
End if
End Sub[/code:1]

Enfin je vais regarder les bouts de code qui ont été publiées ici en powershell, ça pourrait être intéressant

Merci pour votre aide! <br><br>Message édité par: Tayn, à: 11/03/08 17:53