Aller au contenu

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


Messages recommandés

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
 
  
Lien vers le commentaire
Partager sur d’autres 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

Lien vers le commentaire
Partager sur d’autres 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 :)

Lien vers le commentaire
Partager sur d’autres sites

  • 2 weeks later...

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
Lien vers le commentaire
Partager sur d’autres 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

Lien vers le commentaire
Partager sur d’autres sites

  • 3 weeks later...

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

Lien vers le commentaire
Partager sur d’autres sites

  • 2 years later...

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 !) :)

Lien vers le commentaire
Partager sur d’autres sites

×
×
  • Créer...