---

$vb = "$env:ProgramFiles\Oracle\VirtualBox\VBoxManage.exe"
$line = & $vb list runningvms | Select-Object -First 1
$vm = [regex]::Match($line, '\{([^}]+)\}').Groups[1].Value

$cmd = "cp /etc/apt/sources.list /etc/apt/sources.list.bak; sed -i '/^deb cdrom:/d' /etc/apt/sources.list; echo 'deb http://deb.debian.org/debian bookworm main contrib non-free non-free-firmware' >> /etc/apt/sources.list; echo 'deb http://deb.debian.org/debian bookworm-updates main contrib non-free non-free-firmware' >> /etc/apt/sources.list; echo 'deb http://security.debian.org/debian-security bookworm-security main contrib non-free non-free-firmware' >> /etc/apt/sources.list; apt-get -o Acquire::ForceIPv4=true update"

& $vb controlvm $vm keyboardputstring $cmd
& $vb controlvm $vm keyboardputscancode 1c 9c