CONNAITRE LE NOM DU PC
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
21 juil. 2003 à 22:50
cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 - 23 juil. 2003 à 18:49
cs_dragon Messages postés 2336 Date d'inscription samedi 14 juillet 2001 Statut Membre Dernière intervention 5 mai 2009 - 23 juil. 2003 à 18:49
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7999-connaitre-le-nom-du-pc
https://codes-sources.commentcamarche.net/source/7999-connaitre-le-nom-du-pc
23 juil. 2003 à 18:49
23 juil. 2003 à 18:48
23 juil. 2003 à 17:44
Private Sub Form_Load()
MsgBox (Winsock1.LocalHostName)
End Sub
@+
Mattflyer
22 juil. 2003 à 17:33
2, c'est un code niveau 1
3, j'avou qu'il est pas top comme code, masi je l'ai mis pour montrer qu'il y a plusieurs façon d,arriver au même résultat
22 juil. 2003 à 17:15
je parie que tu vas bientot nous montrer un code pour donner l'ip du pc??
C'est cool mais bon...en plus y a même pas le moindre commentaire pour les newsb.
je vais de ce pas voir tes autres sources histoire de voir si c'est du même niveau.
Néanmoins ton initiative est louable.
@+
22 juil. 2003 à 13:09
22 juil. 2003 à 13:03
Dim strName as string
strName=ENVIRON("COMPUTERNAME")
21 juil. 2003 à 23:19
21 juil. 2003 à 23:19
21 juil. 2003 à 22:50
en plus, il manque la declaration d'API...
voici ce que ca donne...
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function API_GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'# Pour Visual Basic 6
Public Function GetComputerName()
Dim Buffer As String * MAX_COMPUTERNAME_LENGTH
Call API_GetComputerName(Buffer, MAX_COMPUTERNAME_LENGTH)
GetComputerName = Split(Buffer, vbNullChar)(0)
End Function
'# Pour Visual Basic 5 (et 6 !! ) :
Public Function GetComputerName()
Dim Buffer As String * MAX_COMPUTERNAME_LENGTH
Dim Length As Long
Length = API_GetComputerName(Buffer, MAX_COMPUTERNAME_LENGTH)
GetComputerName = Left$(Buffer, Length)
End Function
ensuite, il suffit de faire, par exemple :
Private Sub Form_Load()
Call MsgBox(GetComputerName)
End Sub