Récupérer le nom du poste

Résolu
Signaler
Messages postés
23
Date d'inscription
lundi 13 novembre 2006
Statut
Membre
Dernière intervention
6 mars 2009
-
Messages postés
1
Date d'inscription
vendredi 30 mars 2007
Statut
Membre
Dernière intervention
30 mars 2007
-
Bonjour,
Je souhaite récupérer le nom du poste dans une page Web. Quelqu'un peut-il me mettre sur la piste svp ? VBScript le permet-il ?
Merci pour votre aide....

4 réponses

Messages postés
2237
Date d'inscription
lundi 29 mai 2006
Statut
Membre
Dernière intervention
29 mai 2008
11
Salut:

Vb6:
 Dim NomOrdinateur As String
 NomOrdinateur = Environ("COMPUTERNAME")
 
VB.Net
 NomOrdinateur = My.Computer.Name
Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" _
                                        (ByVal lpBuffer As String, nSize As Long) As Long

API: 
Private Function NomOrdinateur() As String


Dim sComputerName As String
Dim iSize As Long


GetComputerName sComputerName, iSize


sComputerName = Space(iSize)


GetComputerName sComputerName, iSize
NomOrdinateur = sComputerName


End Function

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
26
 Bonjour à tous

Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain &vbCr&_
             "Nom ordinateur = " & WshNetwork.ComputerName &vbCr&_
             "Nom utilisateur = " & WshNetwork.UserName
Set WshNetwork = Nothing

jean-marc
Messages postés
1
Date d'inscription
vendredi 23 mai 2003
Statut
Membre
Dernière intervention
18 janvier 2007

Bonjour a tous!

Dans le meme esprit que jpclutier Je dois gérer dans un netlogon certains parametres de connexion au domaine, dont une partie de la variable d'environnement Windows: %COMPUTERNAME%
J'ai cherché a utiliser un fichier Batch (.bat) pour faire cela mais sans succes.
Je me suis donc tourné vers le VBS qui me parait plus approprié a ce que je souhaite faire ( fonction mid(...) ) malheureusement le script VBS fourni plus haut qui parai exactement dans ma vision des choses ne fonctionnent pas chez moi

recup_hostname.vbs

Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain &vbCr&_
             "Nom ordinateur = " & WshNetwork.ComputerName &vbCr&_
             "Nom utilisateur = " & WshNetwork.UserName
Set WshNetwork = Nothing

<hr size="2" width="100%" />#> wscript  recup_hostname.vbs
    ou
#> cscripr  recup_hostname.vbs

Erreur : Un composant ActiveX ne peut pas créer un objet.: "Wscript.Network"

Auriez vous une idée? Soit pr le script VBS ou eventuellement pr un script batch!

Merci

m@T
Messages postés
1
Date d'inscription
vendredi 30 mars 2007
Statut
Membre
Dernière intervention
30 mars 2007

Bonjour,
Depuis des MAJ faites par windows update, j'ai exactement le même problème sur mon Intranet.
Quelq'un a-t-il réussi à résoudre ce problème ?

Merci par avance,
Atxeco