On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _     "associators of {win32_logicaldisk.deviceid='G:'} WHERE ResultClass=Win32_DiskPartition") For Each objItem in colItems  TargetIndex = objItem.DiskIndex  Set Items = objWMIService.ExecQuery( _   "SELECT * FROM Win32_DiskDrive Where DeviceID Like '%" & objItem.DiskIndex & "'",,48)  For Each Item in Items   Wscript.Echo "Model: " & Item.Model  Next Next