Changer le nom de l'ordinateur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 36 373 fois - Téléchargée 88 fois


Commenter

Contenu du snippet


Source / Exemple : 


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

A voir également

Ajouter un commentaire

Commentaires

Signaler
mourax2004
Messages postés
2
Date d'inscription
dimanche 10 décembre 2000
Statut
Membre
Dernière intervention
23 juin 2009
bonjour A tous,


je cherche un script qui peut renommer plusieurs mahines par correspondance de leurs @MAC de leurs cartes réseaux,le but est d'automatiser ces tache vu la masse de parc informatique qui dépasse 1000 position ,imaginez on change le nom de la machine et ouis on fait la jointure au domaine
Signaler
cs_mimo2008
Messages postés
3
Date d'inscription
jeudi 12 juin 2008
Statut
Membre
Dernière intervention
12 juin 2008
merci nix votre script fonctionne bien mais il change seulement le nom netbios. avez vous un script qui change le nom complet de l'ordinateur et qui s'excute au démarrage( pas le nom netbios).merci
Signaler
Philippe734
Messages postés
309
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
15 juin 2015
 1
pour changer le nom sous windows XP ou 2000 c'est là :

http://www.vbfrance.com/code.aspx?ID=27725
Signaler
Philippe734
Messages postés
309
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
15 juin 2015
 1
en ce n'est valable que pour changer le nom Netbios. pour les anciennes conception. Sous XP, ca ne change pas le nom de l'ordi, juste que ca change son nom pour netbios. comment faire pour changer son nom ? celui utilisé par xp.

:-)
Signaler
Philippe734
Messages postés
309
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
15 juin 2015
 1
merci, c exactement ce que je cherchai
Afficher les 7 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Nix)