Sujet Précédent Sujet Suivant

Relevé n° série de PC a distance

Fermé
ordinateur! - 24 mars 2016 à 07:19
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 26 mars 2016 à 08:32
Bonjour,

merci de m’éclairer a réaliser cette macro
relevé n° série de PC a distance

DÉMARREZ ->EXÉCUTER->\\nom de machine\c$==>

demande un login et un mot de passe "compte admin"


system32\cmd "TAPER: wmic bios get serialnumber"

le résultat le mettre dans une cellule feuil excel




A voir également:

1 réponse

Réponse 1 / 1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
Modifié par michel_m le 26/03/2016 à 08:34
Bonjour

sur monoposte à adapter (voir active directory). je suis sur monoposte
liste des éléments.jr n'en suis pas l'auteur (vbscript) 

Sub numero_becane() 
On Error Resume Next

StrComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & StrComputer & "\root\cimv2")

Set Colitems = objWMIService.ExecQuery("Select * from Win32_BaseBoard")

For Each Objitem In Colitems
    'For Each strOption In Objitem.ConfigOptions
        'Msgbox "Configuration Option: " & strOption
    'Next
    'Msgbox "Depth: " & Objitem.Depth
    'MsgBox "Description: " & Objitem.Description
    'MsgBox "Height: " & Objitem.Height
    'MsgBox "Hosting Board: " & Objitem.HostingBoard
    'MsgBox "Hot Swappable: " & Objitem.HotSwappable
    'MsgBox "Manufacturer: " & Objitem.Manufacturer
    'MsgBox "Model: " & Objitem.Model
    'MsgBox "Name: " & Objitem.Name
    'MsgBox "Other Identifying Information: " & _
        Objitem.OtherIdentifyingInfo
    'MsgBox "Part Number: " & Objitem.PartNumber
    'MsgBox "Powered-On: " & Objitem.PoweredOn
    'MsgBox "Product: " & Objitem.Product
    'MsgBox "Removable: " & Objitem.Removable
    'MsgBox "Replaceable: " & Objitem.Replaceable
    ''MsgBox "Requirements Description: " & Objitem.RequirementsDescription
    'MsgBox "Requires Daughterboard: " & Objitem.RequiresDaughterBoard
    MsgBox "Serial Number: " & Objitem.SerialNumber
    'MsgBox "SKU: " & Objitem.SKU
    'MsgBox "Slot Layout: " & Objitem.SlotLayout
    'MsgBox "Special Requirements: " & Objitem.SpecialRequirements
    'MsgBox "Tag: " & Objitem.Tag
    'MsgBox "Version: " & Objitem.Version
    'MsgBox "Weight: " & Objitem.Weight
    'MsgBox "Width: " & Objitem.Width
Next
'
End Sub



 Michel
0