Ce script va récupérer le nom des ordinateurs contenus dans un fichier Ordinateurs.txt puis écrire dans une feuille Excel le nom de la machine ainsi que son numéro de série.
Ma solution de montage vidéo : Quand on parle montage vidéo on arrive rapidement sur Adobe Première ou Final Cut Pro. Si c'est votre activité principale OK mais si c'est pour un usage personnel ou pour monter du VLOG je vous conseille une solution bien plus abordable financièrement et demandant moins d'expertise.
Ca fait 3 ans maintenant que j'ai abandonné Première pour Magix Vidéo Deluxe. Magix fait des logiciels professionnel comme Vega ou Pro X, mais sa version Vidéo Deluxe à 69 € seulement permet de faire des choses très impressionnantes même avec un PC assez basique.
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
intRow = 2
objExcel.Cells(1, 1).Value = "Nom Machine"
objExcel.Cells(1, 2).Value = "Numéro de série"
Set Fso = CreateObject("Scripting.FileSystemObject")
Set InputFile = fso.OpenTextFile("MachineList.Txt")
Do While Not (InputFile.atEndOfStream)
strComputer = InputFile.ReadLine
On Error Resume Next
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
If Err.Number <> 0 Then
objExcel.Cells(intRow, 1).Value = UCase(strComputer)
objExcel.Cells(intRow, 2).Value = "Introuvable"
Err.Clear
Else
For Each objItem in colItems
objExcel.Cells(intRow, 1).Value = UCase(objItem.Name)
objExcel.Cells(intRow, 2).Value = UCase(objItem.SerialNumber)
Next
End If
intRow = intRow + 1
Loop
objExcel.Range("A1:B1").Select
objExcel.Selection.Interior.ColorIndex = 19
objExcel.Selection.Font.ColorIndex = 9
objExcel.Selection.Font.Bold = True
objExcel.Cells.EntireColumn.AutoFit
wscript.echo "Terminé"
Ce code est correctement formaté.
Vous pouvez directement le COPIER / COLLER dans un fichier VBS.