[vb.net] Récupération du nom de la machine

Bonjour, je ne parviens pas à trouver une fonction qui me récupère le nom de la machine sur laquelle je lance l'application!
Je ne pense pas que ça soit trop compliqué mais je ne trouve pas...

Merci pour votre aide!

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Public Function nomordi() As String
' Retourne le nom de l'ordinateur
Dim stTmp As String, lgTmp As Long, requete As String
stTmp = Space$(250)
lgTmp = 251
Call GetComputerName(stTmp, lgTmp)
ComputerName = Left$(stTmp, lgTmp)
Msgbox (stTmp)

@ toute

Salut

'Classe qui donne le nom de la machine

Public Class DonneNomMachine

      Public Shared ReadOnly Property MachineName() As String

      Get

      End Get

      End Property

End Class

'Utilisation
Dim NomdeMachine as string=MachineName

@+
LIM

Bonjour,

Si tu est sur vs2005, utilise My.Computer.Name

Kenji

---

Merci à vous!!!
Lim : En effet je pense qu'il manque qqch dans ton code!! tu as juste effectué une property qui porte le nom MachineName mais qui ne fait rien...
Crenaud76 : Je pense que je vais utilisé ta fonction!! mais que faut-il importer car system seul ne fonctionne pas et en le parcourant un peu je ne trouve pas...

Merci pour aux autres pour vos réponses!

Bon en fait j'ai trouvé... j'étais dans ma couche data... hors c'est nécessaire d'être dans une forme!!
Merci à vous!

Je veux bien avoir oublié quelquechose, mais quelqu'un pourrait-il m'expliquer pourkoi çà marche ?



@+
LIM

Bah ça m'étonnait alors j'ai essayé et... ça ne fonctionne pas chez moi!! ça me renvoi, comme prévu..., "nothing"!

Vérifie que tu n'as pas une fonction du même nom ou qqchose comme ça dans la class dans laquelle tu effectue : Dim NomdeMachine as string=MachineName!!
 
car si on suit ta façon de faire,cad d'appeler ta fonction d'une autre classe on devrait écrire :

Dim Machine as new DonneNomMachine
Dim NomdeMachine as string = Machine.MachineName

au lieu de :

Dim NomdeMachine as string=MachineName

 

OK, je vais farfouiller pour trouver le pourkoi du comment!

Merci

@+
LIM