duosrestore.vbs

Set sh = WScript.CreateObject("Shell.Application")
Set f = sh.BrowseForFolder(0, "DuOS_Backupフォルダを指定してください", 0)
If Not f Is Nothing Then
  val = MsgBox(f.Items.Item.Path +" からAMIDuOS 1.xのリストアをしますか？", 4 + 32)
  If val = 6 Then
    Set obj = CreateObject("Scripting.FileSystemObject")
    If obj.FileExists("DuOSMigrate.exe") Then
      Set sh2 = CreateObject("WScript.Shell")
      sh2.Run "cmd /c DuOSMigrate.exe restore "+f.Items.Item.Path,1,true
    Else
      WScript.Echo("DuOSMigrate.exeが見つかりません。同じフォルダにDuOSMigrate.exeを入れてもう一度実行してください")
    End If
  End if
End if