Comment récupérer l'adresse ip dans un script VBS

Il y a 402 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici

Voir les posts : Par défaut Tous Les bonnes notes Les notes insuffisantes

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment récupérer l'adresse ip dans un script VBS

Nasbe

Plus d'informations

11-09-2007 à 11:44:28

Salut,

je sais que le nom d'un utilisateur est stocké dans la variable d'environnement %Username%, mais qu'en est-il de l'adresse ip de cette machine?

Je voudrais créer un script qui me permette d'obtenir ces deux choses en VBS ou JavaScript.
Quelles sont les commandes système à utiliser?

D'avance merci de pouvoir m'aider.

zeb

Profil : Modérateur libre

Plus d'informations

11-09-2007 à 14:23:44

Masquer

Une machine ne possède pas une adresse IP mais autant que de cartes réseaux correctement configurées.

Soluce @ MS : http://www.microsoft.com/technet/s [...] alued.mspx

---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...

Nasbe

Plus d'informations

11-09-2007 à 15:24:44

Masquer

Merci bien pour ton aide, voila le code que j'ai rédigé, comment faire maintenant pour récupérer le username et le mettre dans un fichier texte avec son ip correspondante?

Code :

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "!\\" & strComputer & "\root\cimv2" )
Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True" )
For Each objAdapter in colAdapters
IPdebut = LBound(objAdapter.IPAddress)
IPfin = UBound(objAdapter.IPAddress)
If (objAdapter.IPAddress(IPdebut) <> "" ) then
For i = IPdebut To IPfin
msg = msg & "utilise l'adresse IP " & objAdapter.IPAddress(i) & vbCrLf
Next
End If
Next
Wscript.Echo msg

Aller à :

FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Comment récupérer l'adresse ip dans un script VBS

Page générée en 0.243 secondes