Comment obtenir le nom de la machine ?

Bonjour,

Je voudrais savoir comment récupérer le nom de la machine où est exécuté mon script VBScript ainsi que d'autre information comme l'adresse IP, etc... enfin toutes les informations réseaux.

Merci d'avance.

bonjour,
en vrac: :aie:

Code:

1
2
3
4
Set WshNetwork = WScript.CreateObject("WScript.Network")
WScript.Echo "Domaine = " & WshNetwork.UserDomain
WScript.Echo "Nom ordinateur = " & WshNetwork.ComputerName
WScript.Echo "Nom utilisateur = " & WshNetwork.UserName

et

Code:

1
2
3
4
5
6
7
8
9
set IPConfigSet = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery _
  ("select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
for each IPConfig in IPConfigSet
 if Not IsNull(IPConfig.IPAddress) then 
  for i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
   WScript.Echo IPConfig.IPAddress(i)
  next
 end if
next

Merci beaucoup !!