Récupérer le nom de la machine local en VB/VBARésolu

Question

Salut,

j'aimerais savoir comment on r&#233;cup&#232;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, ++

cs_CanisLupus · Answer

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 &#231;a o&#249; tu veux :

var_nom_du_pc = GetPCName

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

raharez · Answer

Merci, c&#233; nickel, &#231;a marche
C'est exactement ce que je voulais.

@+