VirtualPC - Änderungen der VM per vba-Script übernehmen

Dim objFileSystem 
Dim objShell 
Dim strZiel 

Set objVS = CreateObject("VirtualPC.Application")  
Set objVM = objVS.FindVirtualMachine("Windows XP Mode")  

If  objVM.State = 5 then
    objVM.Turnoff()
    WScript.Sleep 10000
End If

    objVM.DiscardUndoDisks

Set objFileSystem = CreateObject("Scripting.FileSystemObject")   
Set objShell = CreateObject("Wscript.Shell")   
 
strZiel = "V:\VM - XP-Modus\Sicherungen\Kopierte Dateien\" & Right(Date,4) & "-" & Mid(Date, 4, 2) & "-" & Left(Date, 2)  
If Not (objFileSystem.FolderExists(strZiel)) Then objFileSystem.CreateFolder(strZiel) 

strQuelle = "V:\VM - XP-Modus\"  

Set objfs = CreateObject("Scripting.FileSystemObject")  

If  NOT objfs.FolderExists(strZiel) Then
    objfs.CreateFolder strZiel
End If

On Error Resume Next
objfs.CopyFile strQuelle & "*.*", strZiel  

If Err.Number > 0 Then
     MsgBox "Der Zielordner existiert bereits. Bitte erst löschen.", , "Sicherung XP-Mode Dateien ..."  

     Err.Clear
Else
     WScript.Echo "Kopiervorgang erfolgreich beendet."  
     Err.Clear
End If

On Error GoTo 0

...

Set objVS = CreateObject("VirtualServer.Application")  
Set objVM = objVS.FindVirtualMachine("Windows XP Mode")  
objVM.commitUndoDisks()

...