Posez votre question Signaler

Récupérer le nom de la machine local en VB/VBA [Résolu]

Messages postés
3
Date d'inscription
lundi 10 octobre 2005
Dernière intervention
11 octobre 2005
 - - Dernière réponse : raharez
Messages postés
3
Date d'inscription
lundi 10 octobre 2005
Dernière intervention
11 octobre 2005
 - 11 oct. 2005 à 11:42
Visual Basic Posez votre question Signaler
Salut,

j'aimerais savoir comment on récupère le nom de la machine locale en VB.
En gros les actions que je dois effectuer dependent de la machine sur laquelle mon programme tourne.
J'ai vu qu'il y avait des bouts de codes qui donnent le nom de la machine en fonction de l'IP mais je pense qu'il doit y avoir bcp plus simple.

Merci, ++
Afficher la suite 

2 réponses

Signaler Commenter la réponse de cs_CanisLupus
Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Dernière intervention
13 mars 2006
 8
0
Merci
Salut,

une fonction avec une api :

'dans un module :
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
nom = Space$(255)
Call GetComputerName(nom, Len(nom))
'pour vba et vb
GetPCName = Mid(nom, 1, InStr(nom, Chr(0)))
'pour vb seulement
'GetPCName = Split(nom, Chr(0))(0)
End Function

et tu appelles cette fonction comme ça où tu veux :

var_nom_du_pc = GetPCName

-------------------------------------------------
Dresseur de puces, .... normal pour un loup !?
Signaler Commenter la réponse de raharez
Messages postés
3
Date d'inscription
lundi 10 octobre 2005
Dernière intervention
11 octobre 2005
-2
Merci
Merci, cé nickel, ça marche
C'est exactement ce que je voulais.

@+
Posez votre question
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.