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