[VB] recuperer le nom du pc sous Vb

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VB] recuperer le nom du pc sous Vb

sakuraba

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

Publicité

sakuraba

:??: personne ne sait ?

tegu

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

cvb

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/

sakuraba

merci je vais voir

cvb

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

tegu

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

cvb

Tegu a écrit :

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

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

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VB] recuperer le nom du pc sous Vb

Sujets relatifs
recuperer une clé ds la base de registre a l aide d un batch :/	[PHP] récupérer l'adresse de la page actuelle
[C/C++] [Win32 API] Récupérer le nom du dossier contenant ce programme	[DELPHI] comment récupérer le chemin ...
Peut on recuperer la resolution d'un ecran client avec Apache/PHP ?	recuperer la valeur d'un attribut CSS directement en javascript
[PHP] récupérer l'icone d'un fichier	[ASP] récupérer une adresse mail depuis le carnet d'adresses outlook
Récupérer le statut de MSN Messenger	comment recuperer les infos sur le sysyteme
Plus de sujets relatifs à : [VB] recuperer le nom du pc sous Vb

Page générée en 0.038 secondes