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.
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.
Voici mon GPS pour faire du vélo ! Le Garmin Edge 830 est une vraie réussite avec une autonomie de plus de 15 heures cartographie activée et un écran tactile désormais absolument parfait qui réagit au doigt et à l'oeil, comme un smartphone.
Créez un itinéraire sur Strava ou sur Garmin Connect et il est aussitôt transmis à vote GPS. Si vous êtes pressé ou dans un lieu inconnu, le générateur de boucle vous guidera tout simplement. Si vous décidez de changer de prendre un autre chemin le recalcul est automatique et un nouvel itinéraire vous sera proposé.
Voir mon classement des meilleurs GPS pour en savoir plus !