' rdisks.vbs - auto create ERD
' Windows2000.FAQ
' http://homepage2.nifty.com/winfaq/w2k/

Set WShell = WScript.CreateObject("WScript.Shell")
Set FS = WScript.CreateObject("Scripting.FileSystemObject")

' 無人実行させたい場合は、Do から Loop までの 5 行を削除してください。
Do 
  if WShell.Popup("フォーマット済みフロッピーディスクをセットしてください。",,"確認",1+64) = 2 then
    WScript.Quit()
  end if
Loop Until FS.FolderExists("A:\")

WShell.Run "ntbackup.exe"
WScript.Sleep("500")

WShell.Sendkeys("{ENTER}")
WScript.Sleep("200")

WShell.AppActivate("バックアップ")
WShell.Sendkeys("%{M}")
WScript.Sleep("100")

WShell.AppActivate("システム修復ディスク")
WShell.Sendkeys("%{B}")
WScript.Sleep("200")

WShell.Sendkeys("{ENTER}")
' 以下の Sleep はディスク作成にかかる時間 (20秒) をみています。
' 環境にあわせて調整が必要かもしれません。
WScript.Sleep("20000")

WShell.AppActivate("システム修復ディスク")
WShell.Sendkeys("%{F4}")
WScript.Sleep("200")

WShell.Sendkeys("{ENTER}")
WScript.Sleep("200")

WShell.AppActivate("バックアップ")
WShell.Sendkeys("%{F4}")

WScript.Quit()