Discussion :

[Gat-]

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.

[omen999]

bonjour,
en vrac:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gat-]

Merci beaucoup !!