- Visual Basic / VB.NET : Récupérer le nom de domaine (DNS) d'une IP - CodeS SourceS
- Visual Basic / VB.NET : Récupérer le nom de domaine (DNS) d'une IP - CodeS SourceS
- [VB.NET] Récupérer le nom du PC
- [vb.net] Récuperer les noms de chaque fichiers d'un répertoire...
- Visual Basic / VB.NET : Récupérer l'adresse ip et le nom local de votre pc avec le con
[vb.net] Récupération du nom de la machine [Résolu]
Signaler
Merry29
Merry29
- Messages postés
- 78
- Date d'inscription
- mercredi 21 juillet 2004
- Statut
- Membre
- Dernière intervention
- 23 février 2009
Merry29
- Messages postés
- 78
- Date d'inscription
- mercredi 21 juillet 2004
- Statut
- Membre
- Dernière intervention
- 23 février 2009
A voir également:
- Ninjodo
- Visual Basic / VB.NET : Récupérer le nom de l'ordinateur - CodeS SourceS - Guide
- Visual Basic / VB.NET : Récupérer le nom unc en vb5/6 - CodeS SourceS - Guide
- Visual Basic / VB.NET : Récupérer le nom du pc connecté à un serveur en - Guide
- Visual Basic / VB.NET : Récupérer le nom d'utilisateur correspondant à un proce - Guide
- Visual Basic / VB.NET : Récupérer le nom de domaine (DNS) d'une IP - CodeS SourceS - Guide
10 réponses
crenaud76
- Messages postés
- 4172
- Date d'inscription
- mercredi 30 juillet 2003
- Statut
- Membre
- Dernière intervention
- 9 juin 2006
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
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
- Messages postés
- 23
- Date d'inscription
- mercredi 11 février 2004
- Statut
- Membre
- Dernière intervention
- 5 mars 2007
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
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
- Messages postés
- 329
- Date d'inscription
- jeudi 20 novembre 2003
- Statut
- Membre
- Dernière intervention
- 10 mai 2014
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
'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
- Messages postés
- 3172
- Date d'inscription
- dimanche 15 février 2004
- Statut
- Membre
- Dernière intervention
- 9 avril 2017
Bonjour,
Si tu est sur vs2005, utilise My.Computer.Name
Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Si tu est sur vs2005, utilise My.Computer.Name
Kenji
<hr size="2" width="100%">
Merci de cliquer sur "Réponse acceptée" si une réponse vous convient.
Merry29
- Messages postés
- 78
- Date d'inscription
- mercredi 21 juillet 2004
- Statut
- Membre
- Dernière intervention
- 23 février 2009
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!
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!
Merry29
- Messages postés
- 78
- Date d'inscription
- mercredi 21 juillet 2004
- Statut
- Membre
- Dernière intervention
- 23 février 2009
Bon en fait j'ai trouvé... j'étais dans ma couche data... hors c'est nécessaire d'être dans une forme!!
Merci à vous!
Merci à vous!
cs_lim
- Messages postés
- 329
- Date d'inscription
- jeudi 20 novembre 2003
- Statut
- Membre
- Dernière intervention
- 10 mai 2014
Je veux bien avoir oublié quelquechose, mais quelqu'un pourrait-il m'expliquer pourkoi çà marche ?
@+
LIM
@+
LIM
Merry29
- Messages postés
- 78
- Date d'inscription
- mercredi 21 juillet 2004
- Statut
- Membre
- Dernière intervention
- 23 février 2009
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
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