Depuis quel serveur mon application a-t-elle été lancée?
3dflix
Messages postés
43
Date d'inscription
dimanche 9 mars 2003
Statut
Membre
Dernière intervention
20 février 2013
-
21 avril 2008 à 16:47
3dflix Messages postés 43 Date d'inscription dimanche 9 mars 2003 Statut Membre Dernière intervention 20 février 2013 - 22 avril 2008 à 11:42
3dflix Messages postés 43 Date d'inscription dimanche 9 mars 2003 Statut Membre Dernière intervention 20 février 2013 - 22 avril 2008 à 11:42
A voir également:
- Depuis quel serveur mon application a-t-elle été lancée?
- Application de loto turbo 2 - Forum C / C++ / C++.NET
- Application j2ee ✓ - Forum Java
- Un point d'arrêt a été atteint ✓ - Forum C++ & C++ .NET
- Récupérer serveur san ✓ - Forum ASP.NET
- Des exemples des application avec J2EE ✓ - Forum Java
2 réponses
fred0381
Messages postés
26
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
11 mars 2009
22 avril 2008 à 09:43
22 avril 2008 à 09:43
Salut,
Essaie ca :
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function Nom_Du_Serveur() as string
Dim sBuffer As String
Dim lSize As Long
on error resume next
err = 0
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetComputerName(sBuffer, lSize)
If lSize > 0 Then
Nom_Du_Serveur = Left$(sBuffer, lSize)
Else
Nom_Du_Serveur = vbNullString
End If
end Function
Essaie ca :
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function Nom_Du_Serveur() as string
Dim sBuffer As String
Dim lSize As Long
on error resume next
err = 0
sBuffer = Space$(255)
lSize = Len(sBuffer)
Call GetComputerName(sBuffer, lSize)
If lSize > 0 Then
Nom_Du_Serveur = Left$(sBuffer, lSize)
Else
Nom_Du_Serveur = vbNullString
End If
end Function
3dflix
Messages postés
43
Date d'inscription
dimanche 9 mars 2003
Statut
Membre
Dernière intervention
20 février 2013
22 avril 2008 à 11:42
22 avril 2008 à 11:42
Salut fred0381.
C'est un bon debut car effectivement je recupe bien le nom de mon pc.
Maintenant il faut que j'arrive à dire :
-Recupere le nom du serveur qui fait tourner l'application qui est sur mon poste.
Je continu les recherche.
Merci encore.
C'est un bon debut car effectivement je recupe bien le nom de mon pc.
Maintenant il faut que j'arrive à dire :
-Recupere le nom du serveur qui fait tourner l'application qui est sur mon poste.
Je continu les recherche.
Merci encore.
