Aller au contenu
TheCyberSeb

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
 
  

Partager ce message


Lien à poster
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

Partager ce message


Lien à poster
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 :)

Partager ce message


Lien à poster
Partager sur d’autres 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

Partager ce message


Lien à poster
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

Partager ce message


Lien à poster
Partager sur d’autres 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 ?

Partager ce message


Lien à poster
Partager sur d’autres 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"

Partager ce message


Lien à poster
Partager sur d’autres 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

Partager ce message


Lien à poster
Partager sur d’autres 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 !) :)

Partager ce message


Lien à poster
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant

×