Discussion :

[xander82]

Bonjour,

Voila j'ai un ptit problème pour un script pourtant tout simple...

Il ne marche tout simplement pas...pouvez-vous me dire ou est le problème ??

merci et voila la source :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit 
 
Set ws = WScript.CreateObject(\"WScript.Shell\") 
Dim ws, x1, x2, title, compname, name, vbdefaultbutton 
Dim itemtype 
 
x1 = \"HKLM\\SYSTEM\\CurrentControlSet\\Control\\ComputerName\\ComputerName\\\" 
 
name = ws.RegRead(x1 & \"ComputerName\") 
title = \"Change Computer Name\" 
compname = InputBox(\"Please type a new computer name\", title, name) 
If compname <> \"\" Then 
  ws.RegWrite x1 & \"ComputerName\", compname 
End If

[SfJ5Rpw8]

déjà c'est quoi tous ces anti-slash .. \ devant tes " ..?

[xander82]

Aucune idée j'ai trouve la source sur internet parce que j'ai pas le temp de le faire moi meme...mais apparamment on peut les supprimer sans soucis...

a++

[SfJ5Rpw8]

et donc tu as testé sans ces anti-slash... ?

[xander82]

Oui et il me met une erreur au Niveau de la clé registre...

essaie le pour voir...tu comprendras mieux...

merci de prendre du temps pour moi en tout cas..

a+

[SfJ5Rpw8]

c'est quoi l'erreur ..? et c'est quel est le script utilisé ..?

[xander82]

L'erreur c'est :

Racine incorrecte dans la clé de registre "HKLM\\SYSTEM\\CurrentControlSet\\Control\\ComputerName\\ComputerName\\\"

Source : WshShell.RegRead

et le script ?? que veux tu dire par la ?

J'enregistre mon fichier en .VBS

[SfJ5Rpw8]

ben le script nettoyé de tous ces \ en trop ...

[xander82]

et ca marche chez toi sans les anti-slash ?

[Thulkash]

Regarde ton erreur :

Racine incorrecte dans la clé de registre "HKLM\\SYSTEM\\CurrentControlSet\\Control\\ComputerName\\ComputerName\\\"

Source : WshShell.RegRead

Il semblerait qu'il y ait un anti-slash en trop...
Nettoie ton script de tous les \. C'est vrai que c'est illisible comme ça...

Edit : Je ne suis pas sûr (je n'ai pas testé) qu'il faille mettre deux \ entre chaque niveau de la base de registre. plus clairement, essaye avec :

Code :

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

x1 = "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\"

[xander82]

Merci ca marche nikel en tout cas....

merci encore