Soyez le premier à donner votre avis sur cette source.
Snippet vu 16 869 fois - Téléchargée 73 fois
' Déclaration de la fonction Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" ( ByVal lpBuffer As String, nSize As Long) As Long Public Function ComputerName() As String ' Retourne le nom de l'ordinateur Dim stTmp As String, lgTmp As Long stTmp = Space$(250) lgTmp = 251 Call GetComputerName(stTmp, lgTmp) ComputerName = Split(stTmp, Chr$(0))(0) End Function
Commentaires
Merci Alain_Guerin.
The Unyk Sniper
Dim sComputername as string
sComputername = Environ("COMPUTERNAME")
bien vu
:-)
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.