Relevé n° série de PC a distance

ordinateur! -  
michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   -
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

1 réponse

  1.
    michel_m Messages postés 18903 Date d'inscription   Statut Contributeur Dernière intervention   3 320
     
    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