Problème VBS changer le nom du l'ordi

Version imprimable

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:

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

14/08/2007, 20h47
SfJ5Rpw8

déjà c'est quoi tous ces anti-slash .. \ devant tes " ..?
14/08/2007, 20h57
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++
14/08/2007, 21h10
SfJ5Rpw8

et donc tu as testé sans ces anti-slash... ?
14/08/2007, 21h23
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+
14/08/2007, 21h28
SfJ5Rpw8

c'est quoi l'erreur ..? et c'est quel est le script utilisé ..?
14/08/2007, 21h35
xander82

L'erreur c'est :

Citation:

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
14/08/2007, 21h38
SfJ5Rpw8

ben le script nettoyé de tous ces \ en trop ...
14/08/2007, 21h41
xander82

et ca marche chez toi sans les anti-slash ?
16/08/2007, 09h04
Thulkash

Regarde ton erreur :

Citation:

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:

x1 = "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\"
16/08/2007, 16h20
xander82

Merci ca marche nikel en tout cas....

merci encore