SysKB.com

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é"