Discussion :

[mickool_kool]

bonjour à tous,

voila je dois faire un script qui change le nom d'un ordinateur sous windows xp, j'ai donc effectué quelques recherches et j'ai abouti sur ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long  
 
Public Function ChangerNomOrdi(NouveauNomOrdi As String) As Boolean
    On Error Resume Next
    Dim Changer As Long
    Changer = SetComputerName(NouveauNomOrdi)
    If Err.Number = 0 Then 
        ChangerNomOrdi = True
    Else
        ChangerNomOrdi = False
    End If
End Function
 
'Pour Changer le nom de votre ordinateur :
Dim Retour As Boolean
Retour = ChangerNomOrdi("MonOrdi")
If Retour = True Then
    MsgBox("Le nom de votre ordinateur a été changé")
Else
    MsgBox("Le nom de votre ordinateur n'a pas été changé")
End If

Cependant, lors de la compilation, j'ai le droit à une jolie erreur :

Erreur de syntaxe : 800A03EA
Sur : Declare Function SetComputerName Lib "kernel32" Alias "SetComputerNameA" (ByVal lpComputerName As String) As Long
(caractere : 10)

Si quelqu'un sait comment la résoudre, je suis preneur.

Merci

[ced600]

En VBS on ne peut pas déclarer le type des variables :

Code :

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

Dim i As int

N'est pas correcte.

Mais ceci est correcte :

Code :

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

Dim i

En VBS, les variables sont donc tous du type Variant jusqu'à l'affectation d'une valeur.
En effet i prend le type int lorsque je fait ceci.

Code :

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

i = 1

Et si à la place j'avais fait :

Code :

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

i = "toto"

Il serait alors une chaine de caractère.

Donc je pense que tu comprends d'où vient ton erreur

Au passage la réponse est dans la

[mickool_kool]

hum en effet... autant pour moi merci

[AlainTech]

Problème résolu?

Bouton !

Merci