COMPUTER NAME [Résolu]

PROTEUS91 156 Messages postés mardi 4 novembre 2003Date d'inscription 28 décembre 2010 Dernière intervention - 24 oct. 2004 à 19:00 - Dernière réponse : PROTEUS91 156 Messages postés mardi 4 novembre 2003Date d'inscription 28 décembre 2010 Dernière intervention
- 17 janv. 2005 à 03:33
Bonjour à toutes et à tous,

Je voudrai savoir s'il existe un moyen simple de recuperer le nom de l'ordinateur sur lequel on travail, j'ai deja un code qui me permet de le faire, mais je trouve ce fameux code trop long.

Merci à toutes et à tous.
Afficher la suite 

5 réponses

Meilleure réponse
cs_CanisLupus 3758 Messages postés mardi 23 septembre 2003Date d'inscription 13 mars 2006 Dernière intervention - 24 oct. 2004 à 19:33
3
Merci
Salut, met le code suivant dans un module et tu appelles la fonction comme ça :

Variable = GetPCName
ou msgbox GetPCName

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function GetPCName() As String
Dim nom As String, ret As Long

  nom = Space$(255)
  ret = GetComputerName(nom, Len(nom))
  GetPCName = Split(nom, Chr(0))(0)

End Function


Cordialement, CanisLupus

Merci cs_CanisLupus 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 96 internautes ce mois-ci

crenaud76 4172 Messages postés mercredi 30 juillet 2003Date d'inscription 9 juin 2006 Dernière intervention - 25 oct. 2004 à 09:27
0
Merci
Plus simple : Msgbox Environ("Computername")

Christophe R.
tchoo83 42 Messages postés mercredi 31 mars 2004Date d'inscription 27 octobre 2004 Dernière intervention - 25 oct. 2004 à 11:03
0
Merci
Ou si tu veux, le nom de l'utilisateur
MsgBox Environ ("Username")

:-p Bon Codage, Bon Courage !!! See ya 8-)
cs_CanisLupus 3758 Messages postés mardi 23 septembre 2003Date d'inscription 13 mars 2006 Dernière intervention - 25 oct. 2004 à 18:52
0
Merci
Désolé, crenaud76 et tchoo83, Environ() est plus simple en effet mais ne fonctionne pas partout.

Cordialement, CanisLupus
PROTEUS91 156 Messages postés mardi 4 novembre 2003Date d'inscription 28 décembre 2010 Dernière intervention - 17 janv. 2005 à 03:33
0
Merci
Merci a tous pour votre aide, merci CanisLupus, j'ai integré ton code dans mon programme Merci encore a tous.

PROTEUS

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.