6.2

write/install-startup.ps1

@@ -0,0 +1,21 @@
+# Get Startup folder path
+$startup = [Environment]::GetFolderPath('Startup')
+$batPath = "E:\GitHub\blog\write\start-silent.bat"
+$vbsPath = Join-Path $startup "WriteBot.vbs"
+
+# Create VBS wrapper for silent execution (no cmd window)
+$vbs = @"
+Set WshShell = CreateObject("WScript.Shell")
+WshShell.Run Chr(34) & "$batPath" & Chr(34), 0, False
+Set WshShell = Nothing
+"@
+
+$vbs | Out-File -FilePath $vbsPath -Encoding ASCII
+
+# Verify
+if (Test-Path $vbsPath) {
+    Write-Host "WriteBot startup script installed to: $vbsPath"
+    Write-Host "It will start silently on Windows login."
+} else {
+    Write-Host "Failed to install startup script."
+}