anchor.diff:  End Function
   
   Function GetLogicalDisks(ByVal DriveDevice)
  -	Set GetLogicalDisks = CreateObject("System.Collections.ArrayList")
  +	Set GetLogicalDisks = new List
   	Set DrivePartitionsColumn = WMIService.ExecQuery _
   		("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & _
   			DriveDevice & """} WHERE AssocClass = " & _
  
positive.code: 
  Function GetTopLevelDrives()
  	OperatingSystemDevice = GetOperatingSystemDevice()
  	Set GetTopLevelDrives = CreateObject("System.Collections.ArrayList")
  	Set TopLevelDrivesColumn = WMIService.ExecQuery("SELECT * FROM Win32_DiskDrive")
  	For Each TopLevelDrive In TopLevelDrivesColumn
  		Set Summary = CreateObject("Scripting.Dictionary")
  
negative.code: 		Summary.Add "Description", TopLevelDrive.Caption
  		Summary.Add "Size", TopLevelDrive.Size
  
  		Set Mountpoints = new List
  		IsRemovable = InStr(TopLevelDrive.MediaType, "Removable") = 1
  		IsProtected = False
  
  		Set LogicalDisks = GetLogicalDisks(DeviceID)
  
  		For Each LogicalDisk In LogicalDisks.GetArray()
  			Mountpoints.Add(LogicalDisk.Item("Device"))
  
  			If LogicalDisk.Item("IsProtected") Then
  