Récupérer le nom de la machine local en VB/VBA [Résolu]
raharez3
Messages postés lundi 10 octobre 2005Date d'inscription
11 octobre 2005
Dernière intervention
-
10 oct. 2005 à 15:21 - Dernière réponse : raharez3
Messages postés lundi 10 octobre 2005Date d'inscription
11 octobre 2005
Dernière intervention
- 11 oct. 2005 à 11:42
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.
'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 !?
