Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Nom du PC

Nom du PC

3 réponses
Avatar
mml
Bonjour,

Quelqu'un sait-il comment aller chercher le nom de l'ordinateur local ?

Merci d'avance

--
Cordialement,

Marc LAGARDETTE
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
DJ
mml wrote:
Bonjour,

Quelqu'un sait-il comment aller chercher le nom de l'ordinateur local
?

Merci d'avance


bonjour essaie ca:

Function PcName()
Dim oNetwork
Set oNetwork = CreateObject("wscript.network")
PcName = oNetwork.computername
Set oNetwork = Nothing
End Function

Avatar
Gilbert
Bonjour,



Avec ça :

Tavariable = Environ$("COMPUTERNAME")



Gilbert

"mml" a écrit dans le message de
news:%
Bonjour,

Quelqu'un sait-il comment aller chercher le nom de l'ordinateur local ?

Merci d'avance

--
Cordialement,

Marc LAGARDETTE




Avatar
mml
Merci beaucoup : nickel chrome !


"DJ" a écrit dans le message de
news:%23%
mml wrote:
Bonjour,

Quelqu'un sait-il comment aller chercher le nom de l'ordinateur local
?

Merci d'avance


bonjour essaie ca:

Function PcName()
Dim oNetwork
Set oNetwork = CreateObject("wscript.network")
PcName = oNetwork.computername
Set oNetwork = Nothing
End Function