strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_DiskDrive",,48) MaLigne = "" Wscript.Echo "SerialNumber" & VbTab & "DeviceID" & VbTab & "PNPDeviceID" & VbTab & "Caption" & VbTab & "Name" For Each objItem in colItems MaLigne = objItem.SerialNumber & VbTab & objItem.DeviceID & VbTab & objItem.PNPDeviceID & VbTab & objItem.Caption & VbTab & objItem.Name Wscript.Echo MaLigne Next