duosbackup.vbs

val = MsgBox("AMIDuOS 1.xのバックアップをしますか？", 4 + 32)

If val = 6 Then
  Set obj = CreateObject("Scripting.FileSystemObject")
  If obj.FileExists("DuOSMigrate.exe") Then
     Set sh = CreateObject("WScript.Shell")
     sh.Run "cmd /c DuOSMigrate.exe backup",1,true
  Else
     WScript.Echo("DuOSMigrate.exeが見つかりません。同じフォルダにDuOSMigrate.exeを入れてもう一度実行してください")
  End If
End if