Question : vCenter Converter (P2V) converting errors.

Hi, We are having a problem with converting our physical machine to virtual using VMware vCenter.

Our version of vCenter is the Converter Standalone version 4.0.1 build 161434. The converter is installed on a networked local machine, connecting via i.p. address to the source and target computer.

The Server we are having problems with is a front-end exchange server running:

Windows server 2003.
Kaspersky Anti-Virus V 6
Microsoft Exchange 2003.

The following is an example of the error that occurs:

FAILED at 95%.
FAILED: Unable to find the system volume, reconfiguration is not possible.

Here is the log highlights:

Completed cloning volume 'C:'.
Updating the boot sectors on the target machine.
Updating drive letters for the target volume layout.
Starting reconfiguration.
Processing the reconfiguration datastore.
Error: Reconfiguration failed.

We have the "Synchronize changes that occur during cloning" set to "Yes".

Has anyone had this problem before? What can be causing this problem?

Answer : vCenter Converter (P2V) converting errors.

Why do you have all the Activate stuff?

I've got a feeling that it might be mucking up your PasteSpecial, perhaps causing there to be nothing to actually paste.

You might also want to consider the order you are doing things.

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:



Option Explicit

Sub Copy_Paste3()
Dim wb As Workbook
Dim objFileDLG As Office.FileDialog
Dim strFilePath, lcTargetCell
Dim intSrcRows As Integer
Dim intTgtRows As Integer

    ChDir "D:\Data\"
    Set objFileDLG = Application.FileDialog(msoFileDialogFilePicker)
    Dim copyRange As Range

    intTgtRows = 2

    Do While True
        strFilePath = ""
        With objFileDLG
            .Filters.Add "Excel Files", "*.xls", 1
            .FilterIndex = 1
            .AllowMultiSelect = False
            .Title = "Select The Workbook to copy From "
            If .Show() <> 0 Then
                strFilePath = .SelectedItems(1)
            End If
        End With

        If Trim(strFilePath) = "" Then Exit Do

        Set wb = Workbooks.Open(strFilePath)

        intSrcRows = wb.Worksheets(1).Cells(Cells.Rows.Count, "A").End(xlUp).Row

        Set copyRange = wb.Worksheets(1).Range("B6:B" & intSrcRows)

        Set copyRange = Union(copyRange, copyRange.Offset(, 4), copyRange.Offset(, 6).Resize(, 6))

        copyRange.Copy

        Set lcTargetCell = ThisWorkbook.Worksheets(2).Range("A" & Rows.Count).End(xlUp).Offset(1)

        lcTargetCell.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
                                  xlNone, SkipBlanks:=False, Transpose:=False

        ThisWorkbook.Worksheets(2).Range("B:B").NumberFormat = "dd-mmm"

        Application.CutCopyMode = False
        
        wb.Close
        
        Set wb = Nothing

        intTgtRows = intTgtRows + intSrcRows - 1
        
    Loop
    'new lines

    On Error Resume Next

    ThisWorkbook.Worksheets(1).Columns(1).SpecialCells(xlBlanks).EntireRow.Delete
End Sub