Obtenir nom, n° de série machines d'un réseau
mathii
Messages postés
3
Statut
Membre
-
mathii Messages postés 3 Statut Membre -
mathii Messages postés 3 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
A voir également:
- Obtenir nom, n° de série machines d'un réseau
- Le message n'a pas été envoyé car le service n'est pas activé sur le réseau - Forum Xiaomi
- Télécharger idm gratuitement sans numéro de série - Télécharger - Téléchargement & Transfert
- Nom de l'adresse - Forum Réseaux sociaux
- Trouver un nom avec une adresse ✓ - Forum Loisirs / Divertissements
- Mot de passe reseau - Guide
3 réponses
Bonjour,
Prkoi developper une applciation alors qu'il existe deja en + open souce.
https://ocsinventory-ng.org/?lang=fr
A+
Prkoi developper une applciation alors qu'il existe deja en + open souce.
https://ocsinventory-ng.org/?lang=fr
A+
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
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
