Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VirtualPC - Änderungen der VM per vba-Script übernehmen

Mitglied: goodbytes

goodbytes (Level 2) - Jetzt verbinden

31.01.2011, aktualisiert 13:36 Uhr, 4099 Aufrufe, 3 Kommentare

Hallo,
der XP-Modus in Windows 7 nutzt ja VirtualPC als Umgebung.

Um eine Sicherungskopie zu erstellen fahre ich die VM per vbs herunter (falls sie läuft), verwerfe dann die Änderungen und kopiere alle Dateien weg:

01.
Dim objFileSystem  
02.
Dim objShell  
03.
Dim strZiel  
04.
 
05.
Set objVS = CreateObject("VirtualPC.Application") 
06.
Set objVM = objVS.FindVirtualMachine("Windows XP Mode") 
07.
 
08.
If  objVM.State = 5 then 
09.
    objVM.Turnoff() 
10.
    WScript.Sleep 10000 
11.
End If 
12.
 
13.
    objVM.DiscardUndoDisks 
14.
 
15.
Set objFileSystem = CreateObject("Scripting.FileSystemObject")  
16.
Set objShell = CreateObject("Wscript.Shell")  
17.
  
18.
strZiel = "V:\VM - XP-Modus\Sicherungen\Kopierte Dateien\" & Right(Date,4) & "-" & Mid(Date, 4, 2) & "-" & Left(Date, 2) 
19.
If Not (objFileSystem.FolderExists(strZiel)) Then objFileSystem.CreateFolder(strZiel)  
20.
 
21.
strQuelle = "V:\VM - XP-Modus\" 
22.
 
23.
Set objfs = CreateObject("Scripting.FileSystemObject") 
24.
 
25.
If  NOT objfs.FolderExists(strZiel) Then 
26.
    objfs.CreateFolder strZiel 
27.
End If 
28.
 
29.
On Error Resume Next 
30.
objfs.CopyFile strQuelle & "*.*", strZiel 
31.
 
32.
If Err.Number > 0 Then 
33.
     MsgBox "Der Zielordner existiert bereits. Bitte erst löschen.", , "Sicherung XP-Mode Dateien ..." 
34.
 
35.
     Err.Clear 
36.
Else 
37.
     WScript.Echo "Kopiervorgang erfolgreich beendet." 
38.
     Err.Clear 
39.
End If 
40.
 
41.
On Error GoTo 0
Dies funktioniert auch prima.
Nun wollte ich auch eine Möglichkeit haben die Änderungen zu übernehmen und erst dann zu sichern:

01.
... 
02.
 
03.
Set objVS = CreateObject("VirtualServer.Application") 
04.
Set objVM = objVS.FindVirtualMachine("Windows XP Mode") 
05.
objVM.commitUndoDisks() 
06.
 
07.
...
Aber leider funktioniert dies nicht. Wie kann ich das bewerkstelligen?

Wie könnte ich beide Varianten in ein einziges Script packen, so dass ich eine Abfrage bekomme ob ich die Änderungen übernehmen oder verwerfen möchte?

Torsten
Mitglied: Logan000
31.01.2011 um 14:20 Uhr
Moin Moin

01.
... 
02.
objVM.commitUndoDisks()  
03.
...
Eine solche Methode kennt das Objekt objVM wohl nicht.
Siehe: http://msdn.microsoft.com/en-us/library/dd796617%28v=VS.85%29.aspx

Was passiert eigentlich wenn du den Aufruf
01.
... 
02.
objVM.DiscardUndoDisks  
03.
...
einfach mal weg lässt?

Gruß L.
Bitte warten ..
Mitglied: goodbytes
03.02.2011 um 12:12 Uhr
Hallo Logan000.
ich wollte schon, dass dann die Änderungen dauerhaft übernommen werden.

Vielen Dank für den Link, mit der Methode "MergeUndoDisks " sollte es dann eigentlich klappen.

Werds mal testen.

Gruß
Torsten
Bitte warten ..
Mitglied: goodbytes
03.02.2011 um 12:40 Uhr
Also mit der Methode funktioniert es prima.

Aber wie könnte ich einen Fortschrittsbalken während des Kopiervorgangs anzeigen lassen?

Torsten
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBA Code Änderung Access 2010
gelöst Frage von Dr.CornwallisVB for Applications6 Kommentare

Liebe Gemeinde, ein Kollege hat mir einmal einen VBA Code zur Ermittlung des 1. und 5. Arbeitstags eines Monats ...

Microsoft Office

VBA Script überwacht Dokumentenlänge

gelöst Frage von QuinniMicrosoft Office1 Kommentar

Hallo allesamt, ich suche seit einigen Stunden ein Script das permanent das Word Dokument überwacht und eine message box ...

VB for Applications

Fehler im VBA Code. Kann Feld nicht von einer Datei in die andere uebernehmen

gelöst Frage von Detel1VB for Applications2 Kommentare

Hallo Profis! Bin ein Frischling in VBA. Ich moechte eine Excel Vorlage mit weiteren Felder anpassen. Habe jetzt versucht ...

VB for Applications

VBA Word Formularfelder Effekt von Bearbeitungseinschränkung auf Result-Änderung

gelöst Frage von tombola22VB for Applications3 Kommentare

Hallo zusammen, ich schreibe momentan an einem Word-Makro, mit dem ich ausgehend von einer existierenden Tabelle, weitere - bis ...

Neue Wissensbeiträge
Windows 10

USB Maus und Tastatur versagen Dienst unter Windows 10

Erfahrungsbericht von hardykopff vor 1 TagWindows 105 Kommentare

Da steht man ziemlich dumm da, wenn der PC sich wegen fehlender USB Tastatur und Maus nicht bedienen lässt. ...

Administrator.de Feedback
Update der Seite: Alles zentriert
Information von Frank vor 1 TagAdministrator.de Feedback18 Kommentare

Hallo User, die größte Änderung von Release 5.8 ist das Zentrieren der Webseite (auf großen Bildschirmen) und ein "Welcome"-Teaser ...

Humor (lol)

WhatsApp-Nachrichten endlich auch per Bluetooth versendbar

Information von BassFishFox vor 2 TagenHumor (lol)4 Kommentare

Genau darauf habe ich gewartet! ;-) Der beliebte Messaging-Dienst WhatsApp erhält eine praktische neue Funktion: Ab dem nächsten Update ...

Google Android

Googles "Android Enterprise Recommended" für Unternehmen

Information von kgborn vor 2 TagenGoogle Android3 Kommentare

Hier eine Information, die für Administratoren und Verantwortliche in Unternehmen, die für die Beschaffung und das Rollout von Android-Geräten ...

Heiß diskutierte Inhalte
Windows Netzwerk
WSUS4 und Windows 10 Updates automatisch installieren
Frage von sammy65Windows Netzwerk15 Kommentare

Hallo miteinander, ich habe mit einen neuen WSUS Server aufgesetzt Server 2016 darauf einen aktuellen WSUS. Grund, wir stellen ...

Speicherkarten
Vergessliche USB-Sticks?
Frage von hanheikSpeicherkarten14 Kommentare

Ich habe in den letzten Tagen 500 USB-Sticks mit Bilddateien bespielt. Obwohl ich die Dateien mit größter Sorgfalt kopiert ...

Windows Server
NTFS Berechtigungen Ordnerstruktur
Frage von hukahu23489Windows Server11 Kommentare

Hallo, ich bin seit kurzem in einer neuen IT-Abteilung und bin über das Berechtigungskonzept des Unternehmens sehr schockiert. Ich ...

Hyper-V
Hyper-V mit altem XEON-Server. Was ist falsch?
Frage von LollipopHyper-V11 Kommentare

Hallo Bin etwas frustriert. Kleinbetrieb, ca. 15 PC's, 2 Stk. Server mit einigen virtuellen PC's für Fernwartung, VaultServer für ...