Se connecter avec
S'enregistrer | Connectez-vous

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

Dernière réponse : dans Programmation
Lassé par la pub ? Créez un compte


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?

  1. strComputer = "."
  2.  
  3. Set objWMIService = GetObject("winmgmts:" & "!\\" & strComputer & "\root\cimv2")
  4. Set colAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
  5. For Each objAdapter in colAdapters
  6.  
  7. IPdebut = LBound(objAdapter.IPAddress)
  8. IPfin = UBound(objAdapter.IPAddress)
  9. If (objAdapter.IPAddress(IPdebut) <> "") then
  10.  
  11.  
  12. For i = IPdebut To IPfin
  13. msg = msg & "utilise l'adresse IP " & objAdapter.IPAddress(i) & vbCrLf
  14. Next
  15.  
  16. End If
  17. Next
  18.  
  19.  
  20. Wscript.Echo msg

Lassé par la pub ? Créez un compte