Add scripts for creating user

profiles/DerGeret/Windows/Restore.ps1

@@ -5,4 +5,5 @@ Write-Host "Starting Restoration of Windows";
 . "$PSScriptRoot/../../../scripts/Windows/OS/Install.ps1";
 [Context]$context = [Context]::new();
 $context.EntryPoint = "$($MyInvocation.MyCommand.Path)";
+$context.UserName = "Manuel";
 Invoke-WindowsInstallation $context;

scripts/Windows/OS/Install.ps1

@@ -1,11 +1,13 @@
 . "$PSScriptRoot/../Scripts/Context.ps1";
 . "$PSScriptRoot/Manage.ps1";
 . "$PSScriptRoot/Upgrade.ps1";
+. "$PSScriptRoot/User.ps1";
 
 function Invoke-WindowsInstallation([Context] $context)
 {
     Write-Host "Starting Installation and Restoration of Windows";
     . "$PSScriptRoot/../../../scripts/Windows/Scripts/Prerequisites.ps1";
     Invoke-Upgrade $context;
+    New-PersonalUser $context;
     Invoke-WindowsRestore $context;
 }

scripts/Windows/OS/User.ps1

@@ -0,0 +1,23 @@
+. "$PSScriptRoot/../Scripts/Context.ps1";
+
+function New-PersonalUser([Context] $context)
+{
+    Write-Host "Creating Personal User";
+
+    if (-not (Get-LocalUser $context.UserName))
+    {
+        Write-Host (
+            [string]::Join(
+                "`n",
+                "So... Windows is too dumb to create users which are bound to a Microsoft Account.",
+                "Thus, you have to do it by yourself.",
+                "So sorry..."));
+
+        $users = Get-LocalUser | Select-Object { $_.Name };
+        Read-Host "Please hit enter once you're done...";
+
+        $user = Get-LocalUser | Select-Object { -not ($users -contains $_.Name) } | Select-Object -Last;
+        Rename-LocalUser $user $context.UserName;
+        Add-LocalGroupMember -Group "Administrators" -Member $user;
+    }
+}

scripts/Windows/Scripts/Context.ps1

@@ -2,6 +2,7 @@ class Context {
     [string]$EntryPoint;
     [string]$RootDir;
     [string]$BackupName;
+    [string]$UserName;
     [string] BackupRoot() {
         if (-not $this.RootDir)
         {