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

Question

Bonjour, je ne parviens pas &#224; trouver une fonction qui me r&#233;cup&#232;re le nom de la machine sur laquelle je lance l'application!

Je ne pense pas que &#231;a soit trop compliqu&#233; mais je ne trouve pas...



Merci pour votre aide!

crenaud76 · Accepted Answer

Salut,

lim < Manquerait pas une ligne de code ou deux dans ton accesseur Get ??
NinJoDo < Pas besoin des APi en VB.NET. Ceci suffit 

MessageBox.Show(SystemInformation.ComputerName)


CR

NinJoDo · Answer

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

cs_lim · Answer

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

Charles Racaud · Answer

Bonjour,

Si tu est sur vs2005, utilise My.Computer.Name

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

Merry29 · Answer

Merci &#224; vous!!!

Lim : En effet je pense qu'il manque qqch dans ton code!! tu as juste
effectu&#233; une property qui porte le nom MachineName mais qui ne fait
rien...

Crenaud76 : Je pense que je vais utilis&#233; 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&#233;ponses!

Merry29 · Answer

Bon en fait j'ai trouv&#233;... j'&#233;tais dans ma couche data... hors c'est n&#233;cessaire d'&#234;tre dans une forme!!

Merci &#224; vous!

cs_lim · Answer

Je veux bien avoir oubli&#233; quelquechose, mais quelqu'un pourrait-il m'expliquer pourkoi &#231;&#224; marche ?

@+
LIM

Merry29 · Answer

Bah &#231;a m'&#233;tonnait alors j'ai essay&#233; et... &#231;a ne fonctionne pas chez moi!! &#231;a me renvoi, comme pr&#233;vu..., "nothing"!



V&#233;rifie que tu n'as pas une fonction du m&#234;me nom ou qqchose comme &#231;a
dans la class dans laquelle tu effectue : Dim NomdeMachine as
string=MachineName!!

 

car si on suit ta fa&#231;on de faire,cad d'appeler ta fonction d'une autre classe on devrait &#233;crire :



Dim Machine as new DonneNomMachine


Dim NomdeMachine as string =
 Machine.
MachineName



au lieu de :



Dim NomdeMachine as string=MachineName

cs_lim · Answer

OK, je vais farfouiller pour trouver le pourkoi du comment!

Merci

@+
LIM

Merry29 · Answer

&#224; l'endroit ou tu appelles ta fonction!! selectionne l&#224; et fais juste
un "go to the definition"!! (par clic droit) et regarde ou quelle est
la fonction appel&#233;!