NinJoDo
Messages postés23Date d'inscriptionmercredi 11 février 2004StatutMembreDernière intervention 5 mars 2007 2 févr. 2006 à 11:58
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)
Merry29
Messages postés78Date d'inscriptionmercredi 21 juillet 2004StatutMembreDernière intervention23 février 20091 2 févr. 2006 à 13:47
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...
Merry29
Messages postés78Date d'inscriptionmercredi 21 juillet 2004StatutMembreDernière intervention23 février 20091 2 févr. 2006 à 14:50
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 :
Merry29
Messages postés78Date d'inscriptionmercredi 21 juillet 2004StatutMembreDernière intervention23 février 20091 2 févr. 2006 à 16:22
à l'endroit ou tu appelles ta fonction!! selectionne là et fais juste
un "go to the definition"!! (par clic droit) et regarde ou quelle est
la fonction appelé!