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é ..?