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

[TheCyberSeb]

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

 

  

[Pyrithe]

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

[demonlight]

Merci pour l'info

[TheCyberSeb]

  Le 18/07/2015 à 07:10, Pyrithe a dit :

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

[Pyrithe]

  Le 18/07/2015 à 09:36, TheCyberSeb a dit :

C'est encore plus simple

[modjo]

Merci, c'est très utile. j'y avais même pas pensé, j’étais encore a galérer pour regarder sous le pc. +1

[MathTek]

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

[TheCyberSeb]

Merci MathTeK 

[xawey]

  Le 18/07/2015 à 07:10, Pyrithe a dit :

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

[hgfyrglp]

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

[modjo]

j'ai utilisé la ligne de commande mais les infos n’était pas suffisantes pour recupe les drivers. 

[hgfyrglp]

  Le 31/07/2015 à 11:12, hgfyrglp a dit :

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 ?

[fabrice]

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"

[ALAIN95]

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

[Steph69]

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