ETTTTTTTTTTTTTTTT
cs_pierre81
Messages postés
38
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
24 juin 2003
-
3 juin 2003 à 16:31
cs_Arnaud01 Messages postés 40 Date d'inscription mardi 22 avril 2003 Statut Membre Dernière intervention 25 avril 2005 - 3 juin 2003 à 16:43
cs_Arnaud01 Messages postés 40 Date d'inscription mardi 22 avril 2003 Statut Membre Dernière intervention 25 avril 2005 - 3 juin 2003 à 16:43
1 réponse
cs_Arnaud01
Messages postés
40
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
25 avril 2005
3 juin 2003 à 16:43
3 juin 2003 à 16:43
Voila ce que tu aurais trouvé en cherchant ne serais ce qu'un petit peu. Mais peut etre n'as tu pas le temps ...
Fonction GetComputerName
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" ( _
ByVal lpBuffer As String, _
nSize As Long) As Long
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : Oui
Description :
Avec cette fonction, vous pouvez connaître le nom de l'ordinateur.
lpBuffer est la chaîne qui contiendra le résultat après appel de la fonction.
nSize est la taille du buffer ci-dessus.
Comme d'habitude sur les appels de ce genre, il est conseillé d'initialiser la chaîne avec suffisament d'espaces (ex 250), et d'indiquer une taille de chaîne +1 (c-a-d, nSize = Len(lpBuffer)+1).
Retourne "Faux" en cas d'échec, sinon "Vrai".
Exemple d'utilisation :
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
Bonne prog !!! 8-)
Fonction GetComputerName
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" ( _
ByVal lpBuffer As String, _
nSize As Long) As Long
Versions :
. Windows 95/98 : Oui
. Windows NT : A partir de 3.1
. Windows 2000/XP : Oui
Description :
Avec cette fonction, vous pouvez connaître le nom de l'ordinateur.
lpBuffer est la chaîne qui contiendra le résultat après appel de la fonction.
nSize est la taille du buffer ci-dessus.
Comme d'habitude sur les appels de ce genre, il est conseillé d'initialiser la chaîne avec suffisament d'espaces (ex 250), et d'indiquer une taille de chaîne +1 (c-a-d, nSize = Len(lpBuffer)+1).
Retourne "Faux" en cas d'échec, sinon "Vrai".
Exemple d'utilisation :
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
Bonne prog !!! 8-)