Nach dem Verschieben einer Partition oder Kopieren, kann es zu Boot Problemen kommen. Im Vorfeld kann es helfen ein Wiederherstellungslaufwerk zu erstellen. Ist das nicht passiert, hat Folgendes mal geholfen: Boot von Windows 10 installation media, „Repair your computer“ sfc /scannow chkdsk X: /f bootrec /fixmbr bootrec /fixboot bootrec /scanos bootrec /rebuildbcd
Als Admin bcdedit /set {current} safeboot minimal ausführen. Nun Rechner neustarten, dabei im BIOS den AHCI Modus aktivieren. Nun wieder als Admin bcdedit /deletevalue {current} safeboot ausführen und neustarten.
Basics E-Mail versenden function SendMail (strSub, strText, strFrom, strTo) Dim TobjMail Set TobjMail = CreateObject(„cdonts.newmail“) TobjMail.To = strTo TobjMail.From = strFrom TobjMail.Subject = strSub TobjMail.Body = strText TobjMail.Send() end Function Datei kopieren Function CopyFile (strSrc, strDest) Dim FSO, WshShell, TstrTemp Set WshShell = CreateObject(„WScript.Shell“) Set FSO = CreateObject(„Scripting.FileSystemObject“) if FSO.FileExists (strSrc) then FSO.CopyFile strSrc, strDest,