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