Obtenir nom, n° de série machines d'un réseau
mathii
Messages postés
3
Date d'inscription
Statut
Membre
-
mathii Messages postés 3 Date d'inscription Statut Membre -
mathii Messages postés 3 Date d'inscription Statut Membre -
Bonjour,
Je suis actuellement en stage informatique option développeur et je doit programmer une application en php récupérant les nom et numéros de série de toutes les machines du réseaux et les stocker dans une base de données je voulais donc avoir de l'aide pour coder car je ne vois pas comment faire.
Mercis
Je suis actuellement en stage informatique option développeur et je doit programmer une application en php récupérant les nom et numéros de série de toutes les machines du réseaux et les stocker dans une base de données je voulais donc avoir de l'aide pour coder car je ne vois pas comment faire.
Mercis
Configuration: Windows XP Firefox 3.6
3 réponses
-
Bonjour,
Prkoi developper une applciation alors qu'il existe deja en + open souce.
https://ocsinventory-ng.org/?lang=fr
A+ -
Car comme cela l'application est utilisable sur n'importe quel machines
-
Bonjour,
J'ai réussis à récupérer le n° de série de mon PC grâce à ce code mais pour les autres machines du réseaux je n'y arrive pas. Quelqu'un peut t-il m'aider s'il vous plait.
Cordialement.
On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = Array("nom PC")
For Each strComputer In arrComputers
WScript.Echo
WScript.Echo "=========================================="
WScript.Echo "Computer: " & strComputer
WScript.Echo "=========================================="
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery("SELECT SerialNumber FROM Win32_BIOS", "WQL", _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
For Each objItem In colItems
WScript.Echo "SerialNumber: " & objItem.SerialNumber
Next
Next
