Relevé n° série de PC a distance
ordinateur!
-
michel_m Messages postés 16602 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 16602 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
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:
- Récupérer numéro de série pc à distance
- Allumer pc à distance - Guide
- Télécharger idm gratuitement sans numéro de série - Télécharger - Téléchargement & Transfert
- Reinitialiser pc - Guide
- Numero prive - Guide
- Test performance pc - Guide
1 réponse
Bonjour
sur monoposte à adapter (voir active directory). je suis sur monoposte
liste des éléments.jr n'en suis pas l'auteur (vbscript)
Michel
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