Find out all the drives including Caption,size from one machine

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_DiskDrive",,48)
For Each objItem in colItems
msgbox "Caption: " & objItem.Caption
msgbox "DeviceID: " & objItem.DeviceID
msgbox "Partitions: " & objItem.Partitions
msgbox "Size: " & objItem.Size
Next

Add all Recovery scenarios to new test through code

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable

Dim qtTestRecovery 'As QuickTest.Recovery ' Declare a Recovery object variable

Dim intIndex ' Declare an index variable
' Open QuickTest and prepare objects variables

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application

objectqtApp.Launch ' Start QuickTest

qtApp.New ' Open a new test

qtApp.Visible = True ' Make the QuickTest application visible

Set qtTestRecovery = qtApp.Test.Settings.Recovery ' Return the Recovery object for the current test
If qtTestRecovery.Count > 0 Then ' If there are any default scenarios specified for the test qtTestRecovery.RemoveAll ' Remove them

End If
' Add recovery scenarios

qtTestRecovery.Add "C:\Recovery.qrs", "ErrMessage", 1 ' Add the "ErrMessage" scenario as the first scenario

qtTestRecovery.Add "C:\Recovery.qrs", "AppCrash", 2 ' Add the "AppCrash" scenario as the second scenario

qtTestRecovery.Add "C:\Recovery.qrs", "ObjDisabled", 3 ' Add the "ObjDisabled" scenario as the third scenario
' Enable all scenarios

For intIndex = 1 To qtTestRecovery.Count ' Iterate the scenarios

qtTestRecovery.Item(intIndex).Enabled = True ' Enable each Recovery Scenario (Note: the 'Item' property is default and can be omitted)

Next
' Enable the recovery mechanism (with default, on errors, setting)

qtTestRecovery.Enabled = True
'Ensure that the recovery mechanism is set to be activated only after errors

qtTestRecovery.SetActivationMode "OnError"

'OnError is the default, the other option is "OnEveryStep".
Set qtApp = Nothing ' Release the Application object

Set qtTestRecovery = Nothing ' Release the Recovery object