Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour mml, mml a écrit :
Bonjour,
Quelqu'un sait-il comment aller chercher le nom de l'ordinateur local ?
Merci d'avance
Tu peux utiliser la variable d'environnement :
MsgBox ("COMPUTERNAME")
ou l'API GetComputerName :
Private Declare Function GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long
Private Function MachineName ()As String Dim lResult As Long
MachineName = Space(255) lResult = GetComputerName(MachineName, 255) If lResult <> 0 Then MachineName = Left(MachineName, InStr(MachineName, vbNullChar) - 1) End If End Function
-- Cordialement,
Jacques.
Bonjour mml,
mml a écrit :
Bonjour,
Quelqu'un sait-il comment aller chercher le nom de l'ordinateur local ?
Merci d'avance
Tu peux utiliser la variable d'environnement :
MsgBox ("COMPUTERNAME")
ou l'API GetComputerName :
Private Declare Function GetComputerName Lib "kernel32" _
Alias "GetComputerNameA" (ByVal lpBuffer As String, _
nSize As Long) As Long
Private Function MachineName ()As String
Dim lResult As Long
MachineName = Space(255)
lResult = GetComputerName(MachineName, 255)
If lResult <> 0 Then
MachineName = Left(MachineName, InStr(MachineName, vbNullChar) - 1)
End If
End Function
Quelqu'un sait-il comment aller chercher le nom de l'ordinateur local ?
Merci d'avance
Tu peux utiliser la variable d'environnement :
MsgBox ("COMPUTERNAME")
ou l'API GetComputerName :
Private Declare Function GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long
Private Function MachineName ()As String Dim lResult As Long
MachineName = Space(255) lResult = GetComputerName(MachineName, 255) If lResult <> 0 Then MachineName = Left(MachineName, InStr(MachineName, vbNullChar) - 1) End If End Function
