[VB] recuperer le nom du pc sous Vb

Marsh Posté le 25-02-2003 à 16:39:19

salut
je voudrais recuperer le nom de mon pc en vb
merci d avance :sol:

Reply

Marsh Posté le 25-02-2003 à 16:39:19

Reply

Marsh Posté le 25-02-2003 à 16:47:48

:??: personne ne sait ?

Reply

Marsh Posté le 25-02-2003 à 16:48:27

A ma connaissance il faut utiliser une API pour ça
Je cherche...

Trouvé!
Un exemple que j'avais en stock depuis qq temps

'example by Donavon Kuhn (Donavon.Kuhn@Nextel.com)
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String
'Create a buffer
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X" )
'Get the computer name
GetComputerName strString, dwLen
'get only the actual data
strString = Left(strString, dwLen)
'Show the computer name
MsgBox strString
End Sub

Message édité par tegu le 25-02-2003 à 16:50:21

Reply

Marsh Posté le 25-02-2003 à 16:48:40

Sakuraba a écrit :

salut
je voudrais recuperer le nom de mon pc en vb
merci d avance :sol:

tu n'as pas le choix, c'est en utilisant les API windows, je te donne deux liens, va voir tu as tous dessus !

http://docvb.free.fr/api.php
http://www.allapi.net/

Reply

Marsh Posté le 25-02-2003 à 16:50:15

merci je vais voir

Reply

Marsh Posté le 25-02-2003 à 16:50:37

Code :

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 :

Code :

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

winner ! :sol:

Message édité par cvb le 25-02-2003 à 16:51:03

Reply

Marsh Posté le 25-02-2003 à 16:52:16

dsl cvb, mon edit a été fait avant, lol

Reply

Marsh Posté le 25-02-2003 à 16:55:13

Tegu a écrit :

dsl cvb, mon edit a été fait avant, lol

Et merde ! j'avais parlé des API avant toi ! :kaola: :lol: :jap:

Reply

[VB] recuperer le nom du pc sous Vb

Sujets relatifs:

Leave a Replay