// RDisk-like utility for Windows 2000
// Copyright ABSecure 2000
// http://www.absecure.com

// Create shell object
var shell = new ActiveXObject("WScript.Shell");

// Open an alert window
shell.Popup("RDisk-like utility for Windows 2000\n\nŠ 2000 ABSecure - http://www.absecure.com\n\nPlease insert a blank floppy disk in your drive A:\n\n", 6);

// Launch backup utility
shell.Run("ntbackup.exe");
WScript.Sleep("500");

// Send keystrokes to automate the necessary actions
shell.Sendkeys("{ENTER}");
WScript.Sleep("500");

shell.AppActivate("Backup");
WScript.Sleep("500");
shell.Sendkeys("{TAB}");
WScript.Sleep("50");
shell.Sendkeys("{TAB}");
WScript.Sleep("50");
shell.Sendkeys("{TAB}");
WScript.Sleep("50");
shell.Sendkeys("{ENTER}");
WScript.Sleep("500");

shell.AppActivate("Emergency Repair Disk");
WScript.Sleep("500");
shell.Sendkeys("{ }");
WScript.Sleep("500");
shell.Sendkeys("{ENTER}");
WScript.Sleep("20000");

shell.AppActivate("Emergency Repair Disk");
WScript.Sleep("500");
shell.Sendkeys("%{F4}");
WScript.Sleep("500");
shell.Sendkeys("{ENTER}");
WScript.Sleep("500");

// Quit Backup
shell.AppActivate("Backup");
WScript.Sleep("100");
shell.Sendkeys("%{F4}");

// Cleanup
//shell = Nothing

// End of script
WScript.Quit();