Sommaire

1. Introduction
2. Script

I- Introduction

Bonjour à toutes et à tous.

Ce petit script vous permet de visualiser quelques informations sur votre PC. Voici le liste de ces informations :

• Le Domaine.
• Le Nom Netbios de l’ordinateur.
• L’utilisateur actuellement connecté (la session ouverte).
• L’adresse MAC.
• L’adresse IP de la machine.

Informations :

• Difficulté : Facile
• 

II- Script

Ouvrez le célèbre Bloc-Note et copiez/collez ce script.

Code : Tout sélectionner

1. set wshnetwork=wscript.createobject("wscript.network")
2. strComputer = "."
3. Set objWMIService = GetObject("winmgmts:\\"&  strComputer & "\root\cimv2")
4. Set colAdapters = objWMIService.ExecQuery _
5.     ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
6. n = 1
7. For Each objAdapter in colAdapters
8. msgbox "Domaine : " &wshnetwork.userdomain & vbcr & vbcr &"Nom de l'ordinateur: "  &wshnetwork.computername & vbcr & vbcr &"Utilisateur Connecté: "  &wshnetwork.username & vbcr & vbcr &"Adresse MAC: "   & objAdapter.MACAddress & vbcr& vbcr &  "Adresse IP: " & objAdapter.IPAddress(i) 
9. next

Enregistrez au format .vbs, et double-cliquez sur le script afin d’afficher les quelques informations de votre ordinateur.


darky.