Jump to content
TheCyberSeb

Script info PC (fabricant + numéro de série)

Recommended Posts

Script récupéré sur le site de HP, ça remonte le nom du fabricant ainsi que le numéro de série du PC.

 

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colBIOS = objWMIService.ExecQuery _
    ("Select * from Win32_BIOS")
For each objBIOS in colBIOS
    Wscript.Echo "Manufacturer: " & objBIOS.Manufacturer
    Wscript.Echo "Serial Number: " & objBIOS.SerialNumber
Next
 
  

Share this post


Link to post
Share on other sites

Salut!

Merci de partager l'astuce!

 

Mais perso j'utilise juste une ptite commande :

wmic csproduct get vendor, name, identifyingnumber

Exemple de sortie :

IdentifyingNumber    Name                         Vendor
2CE4070MYW         HP ProBook 4740s    Hewlett-Packard

Share this post


Link to post
Share on other sites

Salut!

Merci de partager l'astuce!

 

Mais perso j'utilise juste une ptite commande :

wmic csproduct get vendor, name, identifyingnumber

Exemple de sortie :

IdentifyingNumber    Name                         Vendor

2CE4070MYW         HP ProBook 4740s    Hewlett-Packard

 

C'est encore plus simple :)

Share this post


Link to post
Share on other sites

Script de récupération d'infos que j'avais fait rapidement en 2012 pour des PC Dell.

 

On peut récupérer à distance, et ça donne:

  • Modèle
  • Nom
  • Service Tag
  • Version du bios

Le script peut largement être amélioré car les infos donné sont en msgbox mais j'ai plus le temps et c'est plus mon domaine d'activitée.

 

Script en VBS (donc à copier dans un fichier .vbs)

 

strComputer = inputbox("Veuillez entrer le nom ou l'adresse IP du PC")
if strComputer = "" Then
Wscript.quit


else
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
Set colItems2 = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)


For Each objItem in colItems2
MsgBox "Marque:  " & objItem.Manufacturer & vbcrlf & _
"Modele:  " & objItem.Model & vbcrlf & _
"Name: " & objItem.Name
Next


For Each objItem in colItems
MsgBox "Service Tag:  " & objItem.SerialNumber & vbcrlf & _ 
"Version du BIOS:  " & objItem.SMBIOSBIOSVersion
Next




End if


Wscript.quit

Share this post


Link to post
Share on other sites

Salut!

Merci de partager l'astuce!

 

Mais perso j'utilise juste une ptite commande :

wmic csproduct get vendor, name, identifyingnumber

Exemple de sortie :

IdentifyingNumber    Name                         Vendor

2CE4070MYW         HP ProBook 4740s    Hewlett-Packard

 

Nickel cette ligne de commande :D

Share this post


Link to post
Share on other sites

J'avoue qu elle est bien !!

Mais je ne maitrise pas encore wmic (je ne connaissais pas jusqu'à maintenant).

 

Que faut il rajouter pour ajouter l'adresse IP de la machine et/ou son nom NETBIOS ?

 

Merci

Share this post


Link to post
Share on other sites

J'avoue qu elle est bien !!

Mais je ne maitrise pas encore wmic (je ne connaissais pas jusqu'à maintenant).

 

Que faut il rajouter pour ajouter l'adresse IP de la machine et/ou son nom NETBIOS ?

 

Merci

 

Quelqu'un qui saurait ?

Share this post


Link to post
Share on other sites

Pour l'ip un truc du genre :

wmic NICCONFIG WHERE IPEnabled=true GET IPAddress

 

Pour le nom netbios, je ne sais pas si c'est accessible avec wmic

 

Sinon, il y a systeminfo sous dos

 

systeminfo | findstr /B /C:"Serveur d'ouverture de session"

Share this post


Link to post
Share on other sites

Bonjour  à tous

 

BIOSVersion : version ;
Manufacturer : fabricant ;
Name : nom.

Exemple :
 
BIOSVersion={"ALASKA - 1072009","BIOS Date: 01/03/13 12:43:51 Ver: 18.06"}
Manufacturer=American Megatrends Inc.
Name=BIOS Date: 01/03/13 12:43:51 Ver: 18.06

 

La ligne de commande à exécuter avec le nom de la classe :
wmic path Win32_BIOS get BIOSVersion,Manufacturer,Name /value

 

Bonne journée

Share this post


Link to post
Share on other sites

Pour les inventaires one shoot j'utilise Lansweeper en version démo (30 jours) éventuellement en envoyant un mail au service commercial pour avoir une clé extend (illimité 30 jours).

Ça remonte toutes les infos du monde et ça permet de filtrer et d'exporter des rapports sous Excel. (en ligne, hors ligne, clientless, par GPO, over WAN, etc)

 

Je désespère pas de motiver mon chef à prendre un abonnement entreprise pour gérer l'ensemble des parcs clients sous contrat en remplacement d'OCS qui est quand même plus limité (bien que gratuit !) :)

Share this post


Link to post
Share on other sites

×
×
  • Create New...