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

Signaler
Messages postés
3
Date d'inscription
lundi 10 octobre 2005
Statut
Membre
Dernière intervention
11 octobre 2005
-
Messages postés
3
Date d'inscription
lundi 10 octobre 2005
Statut
Membre
Dernière intervention
11 octobre 2005
-
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, ++

2 réponses

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
16
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 !?
Messages postés
3
Date d'inscription
lundi 10 octobre 2005
Statut
Membre
Dernière intervention
11 octobre 2005

Merci, cé nickel, ça marche
C'est exactement ce que je voulais.

@+